使用lattice::wireframe()绘制直线曲面

Question

假设我想绘制以下数据帧：

df <- data.frame(expand.grid(1:10,1:10),rep(10,100))
colnames(df) <- c("x","y","z")

使用lattice wireframe()函数：

wireframe(z~x*y,df,colorkey=TRUE,drape=TRUE)

如何让它绘制给定的坐标？我假设这与必须缩放/调整z轴有关，因为wireframe中的自动缩放可能会被所有z坐标相等所混淆。

​

​

Answer 1

只需添加一个zlim参数。

wireframe(z~x*y,df,colorkey=TRUE,drape=TRUE, zlim=c(0,20))

​

​

Answer 2

这来自帮助页面的scales部分：“此参数最常见的用法是设置arrows=FALSE，这会导致使用刻度线和标签，而不是绘制箭头(默认设置)。”因此，只需将其作为列表值添加到“scale”：

wireframe(z~x*y,df,colorkey=TRUE,drape=TRUE,
          scales=list(arrows=FALSE), zlim=c(0,10.1))

当绘制的平面处于一个极端时，wireframe无法显示任何内容，这似乎至少是“意外行为”，如果不是bug的话。我怀疑你不会在真实的数据中看到这一点。使用plane没有多大意义，因为整个数据平面显示在白色的中点。(同样，如果您有与此病理示例不同的东西，这可能不是问题。)

​

​