2013-06-28 85 views
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 strip和cond2在頂部條上,並且只在外部邊界顯示一次? (就像一個矩陣)

在此先感謝!

約瑟夫

回答

0

在這種情況下,我認爲這很簡單,只要知道有在不同的包這樣的功能:

require(latticeExtra) 
?useOuterStrips 

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

(它像你描述的不是很,但它是相當密切的,並我認爲在外層帶上只有「一個值」是沒有道理的,當通常的情況是在調節變量中具有不同的水平)。