如何使用“功能”手动为色条上色；使用OuterStrips“；“包装内”；格子额外“；？

我想做一个与下面的情节非常相似的情节。然而，我想有一个不同的颜色为每一条，例如，sub1在绿色，sub2在蓝色，sub3在红色。。。（所有座椅1至座椅4均相同）。到目前为止，我没有成功地做到这一点

我在这里看过这篇文章：但我没有设法修改它以实现我想要的。我认为这是由于使用了函数

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"))

require（晶格）
需要（格子额外）
cbPalette