R lattice：更改面板标题布局

Question

我有一个有两个条件的点阵图：一个条件（x1）有4个级别，一个有2个级别（x2）。该图有每个变量x1和x2的条带（edit1：x3是具有2个级别的第三个变量）：

df <- data.frame(y = runif(100,0,10)
                 , x1 = rep(c("A","B","C","D"),25)
                 , x2 = as.numeric(c(runif(100)<0.5))
                 , x3 = c(runif(100) < 0.5)
                 )
df$x3 <- with(df, ifelse( x3 == TRUE, "R","S"))
histogram( ~y | x1 + as.factor(x2), data=df)

上面板包含第一级x2，下面板包含第二级。 x1的条带根据x1（垂直线）的级数划分。这是有道理的。但是，x2的条带也根据x1的级别数量划分，分别显示级别0的4倍。我希望看到条带x1只有一个标签。这就是代码提供的内容：

0000
ABCD

我想看到这个：

  0
ABCD

感谢您的帮助。

Answer 1

此解决方案不会合并条带名称，但会提供条带名称的替代显示。包useOuterStrips()中有函数latticeExtra，它将一个变量的条带名称放在图的一侧。

library(latticeExtra)
useOuterStrips(histogram( ~y | x1 + as.factor(x2), data=df))