5

我想开发线框,例如在 X、Y 轴上使用非数字但在 Z 轴上使用数字的绘图。

# mydata 
set.seed(123)
yv <- rnorm(20, 10, 3)
gen <- rep(paste("G", 1:5, sep= ""), 4)
env <- c(rep(c("CA","MN","SD", "WI"), each = 5))
mdf <- data.frame(yv, gen, env) 

我尝试使用格子:

require(lattice)
wireframe(yv,gen, env, data = mdf)

Error in UseMethod("wireframe") : 
  no applicable method for 'wireframe' applied to 
  an object of class "c('double', 'numeric')"

任何建议表示赞赏。

4

2 回答 2

5

这似乎有效:

set.seed(123)
mdf <- data.frame(yv=rnorm(20, 10, 3),
                  gen=rep(paste("G", 1:5, sep= ""), 4),
                  env=c(rep(c("CA","MN","SD", "WI"), each = 5)))
library(lattice)
wireframe(yv~gen*env,data=mdf,scales=list(arrows=FALSE))

在此处输入图像描述

于 2011-11-09T17:53:28.863 回答
3

使用函数最简单的方法lattice是使用公式接口。

假设这yv是您的自变量:

wireframe(yv ~ gen + env, data = mdf)

在此处输入图像描述

于 2011-11-09T17:53:56.340 回答