R格子: Change panel title layout

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 的 strip 根据 x1 的级别数(垂直线)划分。这是有道理的。但 x2 的条纹也根据 x1 的级别数进行划分，显示级别 0 和 1 的 4 倍。我只想看到条纹 x1 的一个标签。这是代码提供的内容:

0000
ABCD

我想看看这个:

  0
ABCD

感谢您的帮助。

Answer 1

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

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