如何在R中的xyplot中获得阴影背景？

using xyplot来自lattice包中，我绘制了多年的时间序列。我会为其中一些年份添加阴影区域，以表明这个时期是“特殊的”（例如战争）。

如果这是微不足道的，请道歉，但我不知道该怎么做，所以如果有人可以帮助我，或者至少为我指出正确的方向，我会很高兴。我认为我的主要问题是我真的不知道如何解决这个问题。我对 R 还比较陌生，并且lattice尤其。

这是一个最小的例子：

 xyplot( rnorm(100) ~ 1:100, type="l", col="black")

在相应的图中，我想要背景的颜色（来自说x-从绘图区域的底部到顶部的 45 到 65 之间的值应涂上阴影，例如浅灰色。

请注意，我到目前为止找到的解决方案使用base图形和polygon- 函数，但其​​目的是对曲线下方或上方的区域进行着色，这与我想要做的不同。我不“只是”想对我的线下方或线上方的区域进行着色。相反，我想在给定的时间间隔内对整个背景进行着色。

如果有人能在这里帮助我，我将非常感激！

See ?panel.xblocks在latticeExtra包中：

library(latticeExtra)
x <- 1:100
xyplot( rnorm(100) ~ x, type="l", col="black") + 
         layer_(panel.xblocks(x, x > 20, col = "lightgrey"))