有没有办法在acf和pacf图上更改x轴,使其从1开始而不是0?
这是一个示例图表:
N<-c(34913.60, 25555.69, 33132.19, 40212.03, 21973.67, 28005.34,30182.27, 69070.89, 46548.21, 57806.81 , 49925.19, 116612.29,71234.68, 81274.05, 60790.56, 159475.70, 93121.76, 92812.45,75588.42, 220922.25, 108124.88, 120144.80, 105067.53, 229750.52,101851.80, 177999.71, 112606.36)
N<-ts(N,deltat=1/4,start=c(8,1))
acf(ts(N,frequency=1))
答案 0 :(得分:0)
是,首先您需要删除打印图表的默认设置。使用
acf_var = acf(ts(N,frequency=1),plot=FALSE)
现在,你需要将你的acf图偏移1个单位,我已经将结果推广到任何偏移量,偏移量0将给出实际的acf图。请注意,键入=&#39; h&#39;用于绘图,使其看起来像一个acf / pacf图。
lag_x = acf_var$lags
acf_y = acf_var$acf
offset = 1
L = length(lag_x)
plot(x=lag_x[1+offset:L],y=acf_y[1+offset:L],type='h')
注意:可以从this answer
中给出的程序获得显着性带