r - 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 的级别数来划分的，分别显示 4 倍级别 0 和 1。我希望只看到条带 x1 的一个标签。这是代码提供的内容：

0000
ABCD

我想看看这个：

  0
ABCD

谢谢你的帮助。

Answer 1

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

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