如何在格子bwplot中获得盒子矩形的交替颜色？

Question

当我执行以下代码时（数据集是格子包的一部分）：

ngroups <- length(unique(barley$site)) + 1

bwplot(yield ~ variety, data = barley, box.width = 1/ ngroups,
       groups = year, scales=(x=list(rot=45)), 
       auto.key = list(points = FALSE, rectangles = TRUE, space = "right"),
       par.settings=list(box.rectangle = list(col=c("red", "green"), lwd=3),
                         superpose.polygon=list(col=c("green", "red"), pch=c(15,15))
                         ),
       panel.groups = function(x, y, ..., group.number) {
         panel.bwplot(x + (group.number-1.5)/ngroups, y, ...)
       },
       panel=function(...) {
         panel.grid(h = -1, v=0)
         panel.superpose(par.settings=list(box.rectangle=list(col=c("green", "red"))),  ...)
       }
      ) 

我得到以下图表：

如何从左到右为盒子提供红色和绿色的交替颜色？ （我注意到如果我删除自定义面板它运行良好，但我想保留灰色参考线。）

感谢。

Answer 1

如果您愿意使用填充而不是边框​​来区分年份，我会为您提供解决方案。我还将颜色的顺序切换到一个看似错误的位置（？），并删除了一些冗余代码。

x