在acf图的x轴上更改滞后

Question

有没有办法更改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))

Answer 1

是的，首先，您需要删除打印绘图的默认设置。 采用

acf_var = acf(ts(N,frequency=1),plot=FALSE)

现在，您需要将acf图偏移1个单位，我已将结果概括为任何偏移量，而offset 0将给出实际的acf图。 注意，在绘图中使用type ='h'使其看起来像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')

注意：有效范围可以从此答案中给出的过程中获得