r - 如何为不同面板中的不同分组变量在 lattice 中的 xyplot 中获得阴影背景

Question

通过拉起data.frame包装随附的内容lattice，latticeExtra我们得到以下信息：

require(lattice)
require(latticeExtra)
data("environmental")

这是head(environmental)看起来的方式：

ozone radiation temperature wind
41       190          67  7.4
36       118          72  8.0
12       149          74 12.6
18       313          62 11.5
23       299          65  8.6
19        99          59 13.8

现在请考虑情节的代码和情节本身：

temp.cut <- equal.count(environmental$temperature,4)

   xyplot(ozone~radiation | temp.cut,data = environmental,
   panel = function(x,y,...){
   panel.xyplot(x,y,...)
   x <- 1:400
   panel.xblocks(x,x>20&x<50,col = 'green',alpha=0.2)
   panel.xblocks(x,x>80&x<100,col = 'blue',alpha=0.2)
   })

我的疑问是如何让每个面板的阴影区域表现得合理？假设我想要第一个面板中的蓝色阴影而不是其他面板，同样的推理适用于绿色阴影区域，第二个面板而不是其他面板。提前致谢 ！

标签： rlattice