r - 多面板点阵图的不同 strip 高度

Question

更改格子图的默认 strip 高度很容易:只需 par.strip.text 参数即可。但是有没有一种简单的方法可以在一个多面板点阵图中具有不同高度的 strip ？

我想到了一个包含两行面板的图。第一行中 strip 的高度将不同于第二行中 strip 的高度。

我认为我可以通过创建两个图来创建这样的图形——一个用于第一行，另一个用于第二行——然后使用grid.layout来定位它们。但我想知道是否有更直接的方法来创建这样的图形。

Answer 1

我修改了 this 中的示例问题(这是一个更接近的重复)并设法实现这一目标:

bgColors <- c("black", "green4", "blue", "red", "purple", "yellow")
txtColors <- c("white", "yellow", "white", "white", "green", "red")
stripHt <- rep(c(-1,0),each = 3)

# Create a function to be passes to "strip=" argument of xyplot
myStripStyle <- function(which.panel, factor.levels, ...) {
    panel.rect(0, stripHt[which.panel], 1, 1,
               col = bgColors[which.panel],
               border = 1)
    panel.text(x = 0.5, y = 0.5,
               font=2,
               lab = factor.levels[which.panel],
               col = txtColors[which.panel])
}    
xyplot(yield ~ year | site, data = barley, strip=myStripStyle)

忽略那些可怕的颜色。您明白了，我们只是使用自定义 strip 函数。