在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')

注意：有效范圍可以從此答案中給出的過程中獲得