根据年份更改图的背景色

Question

我试图绘制一段时间内的滚动回报，并且我想突出显示出现衰退期的背景（或阴影，或以某种方式更改颜色）。

如果我使用索引号而不是日期，则可以使用，因此我认为日期格式一定是错误的。也许我怎么称呼他们？

plot(data$Date, data$Roll.Return, pch=20, cex = 0.5, main = paste("j = ", j))
lines(data$Date, data$Roll.5.Return,  cex = 1.5, main = paste("j = ", j), col="red")
u <- par("usr")
rect(as.yearmon("1940-1-1"), u[3], as.yearmon("1970-1-1"), u[4], border = 20, col ="blue")

我想要那个时间段的彩色矩形，但是我只是得到了右侧边框