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

Question

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

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

这是一个最小的例子:

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

在相应的图中，我希望从绘图区域的底部到顶部的背景颜色(例如 x -值 45 到 65)被阴影为浅灰色。

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

如果有人能在这里帮助我，我将不胜感激!

Answer 1

见 ?panel.xblocks在latticeExtra 包中:

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