使用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个步长的值进行比较。