R 如何用多边形突出时间序列预测的置信域

我正在尝试使用两条蓝线之间的多边形函数为时间序列图上色，如下所示

我的代码如下：

生成上述图形的代码如下：

set.seed(2)
Original <- ts(na.omit(rnorm(1:96,mean=20, sd=1)), frequency = 12, start=c(2008,1))
upper <- ts(na.omit(rnorm(1:96,mean=30, sd=1)), frequency = 12, start=c(2015,1),end=c(2015,12))
lower <- ts(na.omit(rnorm(1:96,mean=10, sd=1)), frequency = 12, start=c(2015,1),end=c(2015,12))
predict <- ts(na.omit(rnorm(1:96,mean=18, sd=1)), frequency = 12, start=c(2015,1),end=c(2015,12))

par(mfrow=c(1,1))
plot(Original,type="l",col="gray", ylim=c(0,50))
lines(upper,col="blue")
lines(lower,col="blue")
lines(predict,col="red", lwd="2")               

polygon(x= c(tmp,rev(tmp)),y= c(upper,rev(lower)), col="grey", border=NA)

除我的X坐标外，上述代码是良好的。我无法指定X坐标，因为它是一个时间序列。时间序列为每月一次。蓝线从2015年1月开始，到2015年12月结束

是否有办法指定2015年1月至2015年12月期间在向量/矩阵/日期框架中显示的时间序列的“X”坐标

---

我的目标：我想给两条蓝线之间的区域上色，并且只在两条蓝线之间上色。因此，多边形的使用。

好的，你的问题是：如何在调用

Polygon

时获得变量

tmp

的适当值

现在，简单地尝试一下：

tmp <- seq(from = 2015, by = 1/12, length = 12)
polygon(x= c(tmp,rev(tmp)),y= c(upper,rev(lower)), col="grey", border=NA)

---

tmp你好，李哲远，我打算给两条蓝线之间的区域上色，因此，我想使用多边形函数。我已经上传了代码供您理解/试用。谢谢老板。你是一位大师：）