Fatal编程技术网
  • r/
  • R 类点阵条

R 类点阵条

r

R 类点阵条,r,strip,lattice,wireframe,R,Strip,Lattice,Wireframe,我正在尝试以类似矩阵的方式将条带添加到叠加线框图中： 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^

我正在尝试以类似矩阵的方式将条带添加到叠加线框图中：

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)
)

库（晶格）

g在这种情况下，我认为很简单，只要知道在不同的包中有这样一个函数：


require(latticeExtra)
?useOuterStrips

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



require（latticeExtra）
？使用外部行程
西铁