如何在不同面板中的不同分组变量的格子中的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)
   })

我的疑问是如何使阴影区域对于每个面板都表现得合理？假设我要在第一个面板上显示蓝色阴影，但在其他面板上不显示，相同的理由适用于第二个面板上的绿色阴影区域，但不在其他面板上。预先感谢！