0

マトリックスのような方法で重ね合わせたワイヤーフレーム プロットにストリップを追加しようとしています。

library(lattice)
g <- expand.grid(x = 1:10, y = 5:15, gr = 1:2)
cond1 <- c(rep(1,2*dim(g)[1]),rep(2,2*dim(g)[1]))
cond2 <- c(rep(1,dim(g)[1]),rep(2,dim(g)[1]),rep(1,dim(g)[1]),rep(2,dim(g)[1]))

g$z <- log((g$x^g$gr + g$y^2) * g$gr)

g <- cbind(rbind(g,g,g,g),cond1,cond2)
wireframe(z ~ x * y | cond1+cond2, data = g, groups = gr,
          scales = list(arrows = FALSE),
          strip.left=T,
          strip=T,
          drape = TRUE, colorkey = F,
          screen = list(z = 30, x = -60)
)

質問: 左側のストリップに cond1 を排他的に配置し、上部のストリップに cond2 を排他的に配置して、外側の境界線に 1 回だけ表示する方法はありますか? (ちょうどマトリックスのように)

前もって感謝します！

ジョセフ

4

1 に答える 1

0

この場合、別のパッケージにそのような機能があることを知るのと同じくらい簡単だと思います:

require(latticeExtra)
?useOuterStrips

 wr <- wireframe(z ~ x * y | cond1+cond2, data = g, groups = gr,
 useOuterStrips(wr)

（あなたが説明したとおりではありませんが、かなり近いです。通常、条件変数に異なるレベルがある場合、外側のストリップに「値を1つだけ」持つことは意味がないと思います。）

于 2013-06-28T17:05:18.477 に答える