R 中的 3d 绘图 - 补丁

Question

我的数据框中有以下数据：

**x** in (0,1)
**y** in [0,1]
**z** in [0,1]

例如：

X,Y,Z
0.1, 0.2, 0.56
0.1, 0.3, 0.57
...

我想将它们绘制在这种类型的图表上：

我在 R 上尝试过，但我所能得到的只是 不太花哨的 3d 散点图。 我还阅读了有关 晶格 3d 线框，但我无法理解它。

我应该怎么做才能在 R 中获得类似 Matlab 的线框？ 涉及哪些数据转换？

这是文档中的示例代码：

x <- seq(-pi, pi, len = 20)
y <- seq(-pi, pi, len = 20)
g <- expand.grid(x = x, y = y)
g$z <- sin(sqrt(g$x^2 + g$y^2))
wireframe(z ~ x * y, g, drape = TRUE,
aspect = c(3,1), colorkey = TRUE)

我觉得它不是特别清楚。

编辑：persp3d 函数工作正常，我能够生成具有一种颜色的 3D 绘图。如何设置相对于 z 值的色标？

感谢您的任何提示， 穆隆

Answer 1

使用 outer 创建 z 值，然后使用 persp 绘制：

z <- outer(x,y, function(x,y) sin(sqrt(x^2+y^2)))
persp(x,y,z)

有用于着色和设置视角的选项，请参阅?persp。请参阅 Matlab 风格着色的第四个示例。

对于交互式绘图，请考虑使用 rgl 包中的 persp3d：

require(rgl)
persp3d(x,y,z,col="blue")

编辑

要添加颜色，与 中的方法略有不同>persp，因为颜色与顶点相关而不是与面的中心相关，但它使事情变得更容易。

jet.colors <- colorRampPalette( c("blue", "green") ) 
pal <- jet.colors(100)
col.ind <- cut(z,100) # colour indices of each point
persp3d(x,y,z,col=pal[col.ind])

帮助文件建议添加参数smooth=FALSE，但这取决于个人喜好。