2

1 つの条件 (x1) には 4 つのレベルがあり、もう 1 つの条件 (x2) には 2 つのレベルがあります。グラフには、各変数 x1 と x2 のストライプがあります (edit1: x3 は 2 つのレベルを持つ 3 番目の変数です)。

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 の第 1 レベルが含まれ、下のパネルには第 2 レベルが含まれます。x1 のストライプは、x1 (垂直線) のレベルの数に従って分割されます。意味あり。しかし、x2 のストライプも、レベル 0 の 4 倍をそれぞれ 1 として示す x​​1 のレベル数に従って分割されます。ストライプ x1 のラベルを 1 つだけ表示したいと思います。これはコードが提供するものです:

0000
ABCD

私はこれを見たいです：

  0
ABCD

助けてくれてありがとう。

4

1 に答える 1

5

このソリューションはストリップ名をマージしませんが、ストリップ名の代替表示を提供します。useOuterStrips()パッケージlatticeExtraには、1つの変数のストリップ名をプロットの横に配置する関数があります。

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

ここに画像の説明を入力してください

于 2013-01-03T17:36:04.313 に答える