r - 基于x轴值的plot()中的动态背景？

我正在寻找实现EXACTLY this，但使用plot()而不是ggplot2。博客上甚至有人说他们是用图来做的，但是到他们代码的链接已经死了。我实际上是在尝试做同样的事情。我已经使用quantmod的getSymbols()从FRED下载了数据，并将这些数据保存在df中，并使用plot()进行了绘制。 x轴是日期，我想根据一组特定的日期更改背景色。有什么想法或暗示我该如何利用情节做到这一点？

谢谢!

最佳答案

基于以下问题:R: change background color of plot for specific area only (based on x-values)

## plotting area with no axes
plot(unrate.df, type = "n")
lim <- par("usr")
## adding one rectangle
for (i in 1:nrow(recessions.trim)) {
     rect(recessions.trim[i, 1], lim[3],
          recessions.trim[i, 2], lim[4], border = "pink", col = "pink")
}
## adding the data
lines(unrate.df)
box()