滑动/窗口相关的X轴

Question

我正在尝试与window = 11年进行滑动关联。 这是我的代码：

library(gtools)
var1<-rnorm(52,0.010,0.05)
var2<-rnorm(52,0.015,0.01)
dat<-merge(var1,var2)
dat$year<-seq(1961,2012,1)

rc<-running(dat$x,dat$y,fun=cor, width=11)

我想将输出绘制成一个简单的线条图，如下所示：

plot(rc,type="l")

我的问题是x轴。如何将相关值与年份相匹配？添加填充值＆＃34; 0＆＃34;？

之类的东西

有关如何在R中正确执行此操作的任何建议。

我会感激任何帮助。 非常感谢提前。

Answer 1

rc <- running(var1, var2, fun = cor, width = 11)
plot(1971:2012, rc, type="l")