如何使用“latticeExtra”包中的函数“useOuterStrips”手动着色条？

Question

我想做一个与下面的情节非常相似的情节。但是我希望每个条带都有不同的颜色，例如sub1为绿色，sub2为蓝色，sub3为红色......（所有seas1至seas4均相同）。到目前为止，我没有成功做到这一点。

我在这里看了一下这篇文章：change background and text of strips associated to muliple panels in R / lattice但是我没有设法修改它以实现我想要的东西。我认为这是因为使用了函数useOuterStrips。

我使用R版本3.2.0，latticeExtra_0.6-26和lattice_0.20-31使用以下代码生成了该图：

require(lattice)
require(latticeExtra)
cbPalette <- c("#999999", "#E69F00", "#56B4E9", "#009E73", "#F0E442", "#0072B2", "#D55E00", "#CC79A7")
mydat <- data.frame(response=rnorm(400,mean=1),
                p = factor(sample(rep(1:4,each=100))),
                sub = factor(rep(sprintf("sub%i",1:4),each=100)),
                seas=factor(rep(sprintf("seas%i",1:4),100)))
useOuterStrips(bwplot(response~factor(p)|factor(sub)+factor(seas),
                  data=mydat,par.settings = list(strip.background=list(col = c("skyblue","gold"))),
                  fill = cbPalette,xlab="xlab",ylab="ylab"))

任何帮助都将受到高度赞赏！