ACF Lô bằng ggplot2: Đặt chiều rộng của geom_bar

Question

Với acf chúng tôi có thể tạo ACF plot trong biểu đồ cơ sở R.

x <- lh 
acf(x) 

Các mã sau đây có thể được sử dụng để có được những ACF plot trong ggplot2.

conf.level <- 0.95 
ciline <- qnorm((1 - conf.level)/2)/sqrt(length(x)) 
bacf <- acf(x, plot = FALSE) 
bacfdf <- with(bacf, data.frame(lag, acf)) 

library(ggplot2) 
q <- ggplot(data=bacfdf, mapping=aes(x=lag, y=acf)) + 
     geom_bar(stat = "identity", position = "identity") 
q 

Câu hỏi

Làm thế nào để có được dòng chứ không phải thanh hoặc làm thế nào để thiết lập độ rộng của thanh để họ trông giống như dòng? Cảm ơn

Answer 1

Bạn đang có lẽ tốt hơn hết âm mưu với đoạn thẳng qua geom_segment()

library(ggplot2) 

set.seed(123) 
x <- arima.sim(n = 200, model = list(ar = 0.6)) 

bacf <- acf(x, plot = FALSE) 
bacfdf <- with(bacf, data.frame(lag, acf)) 

q <- ggplot(data = bacfdf, mapping = aes(x = lag, y = acf)) + 
     geom_hline(aes(yintercept = 0)) + 
     geom_segment(mapping = aes(xend = lag, yend = 0)) 
q 

Answer 2

Cách sử dụng geom_errorbar với chiều rộng = 0?

ggplot(data=bacfdf, aes(x=lag, y=acf)) + 
    geom_errorbar(aes(x=lag, ymax=acf, ymin=0), width=0) 

Answer 3

@ Konrad; thử đoạn mã sau:

library(ggfortify) 
p1 <- autoplot(acf(AirPassengers, plot = FALSE), conf.int.fill = '#0000FF', conf.int.value = 0.8, conf.int.type = 'ma') 
print(p1) 
library(cowplot) 
ggdraw(switch_axis_position(p1, axis = 'xy', keep = 'xy')) 

Answer 4

Từ gói dự báo được đưa ra một chức năng ggtsdisplay rằng âm mưu cả ACF và PACF với ggplot. x là số dư từ mẫu phù hợp (fit$residuals).

forecast::ggtsdisplay(x,lag.max=30)