使用ggplot2的ACF圖的延遲

Question

我正在嘗試使用ggplot2生成acf圖。 我的代碼如下：

library(ggplot2)
x = lh
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))
ggplot(data=bacfdf, mapping=aes(x=lag, y=acf)) + 
  geom_bar(stat="identity", position = "identity") + 
  ggtitle("Orders")

有了這個，我能夠產生一個自相關的ggplot2 acf圖，其滯后范圍從零到20。

我如何編輯它以使ggplot2繪圖滯后從-10到10不等？

我本質上使用了來自此來源的代碼來提出上面發布的代碼： http : //ask.programmershare.com/387_17805747/

Answer 1

滯后= 1的自相關函數 計算為

mx <- mean(x)
sum((x[1:(N-1)] - mx)*(x[2:N] - mx)) / sum((x-mx)^2)

對於滯后= -1，唯一會改變的是x[1:(N-1)]和x[2:N]更改其位置。 它是對稱的 ，因此將x[t]與x[th]比較與x[t+h]與x[t]進行比較是相同的，因為其思想是將第t個值與另一個相距h個步長的值進行比較。