sliding/window 相关性的 X 轴

X-axis of sliding/window correlation

我正在尝试执行与 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 轴。如何将相关值与年份相匹配?比如添加填充值“0”?

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

如有任何帮助,我将不胜感激。 非常感谢。

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