在R中使用plot3D绘制三维散点图

我有以下要与plot3D一起使用的绘图

我使用的命令如下：

 library("plot3D");

 N  <- 100

 xs <- runif(N) * 87

 ys <- runif(N) * 61

 zs <- runif(N)*50 + 154

# scatter + surface
 scatter3D(xs, ys, zs, ticktype = "detailed", pch = 16, 
  bty = "f", xlim = c(1, 87), ylim = c(1,61), zlim = c(94, 215))

---

这组命令还可以创建曲面（“山”状零件）。我不确定的是如何从一组点定义此曲面（即，如何创建“火山”矩阵）。此外，我对散射点不感兴趣，只对由一组散射点确定的固定表面感兴趣。

当我在rgl:：plot3中查看这些点时，它们基本上填充了立方体。你认为应该显示什么样的“表面”功能？我猜是某种合适的模型，如中所示。@Backlin不幸的是，我无法访问你发送的URL。德温，我说的是一个连接所有这些点的曲面。一条线的泛化，该线穿过2D绘图中的所有点。请参阅此线程中的顶部答案：。它不是同一个库或函数，但它能满足您的需要吗？@Backlin-mmm，不完全一样。让我来编辑这个问题，我有一个更充实的例子。

 par(mfrow = c(1, 1))

# surface = volcano
M <- mesh(1:nrow(volcano), 1:ncol(volcano))

# 100 points above volcano 
N  <- 100

xs <- runif(N) * 87

ys <- runif(N) * 61

zs <- runif(N)*50 + 154

 # scatter + surface
 scatter3D(xs, ys, zs, ticktype = "detailed", pch = 16, 
   bty = "f", xlim = c(1, 87), ylim = c(1,61), zlim = c(94, 215), 
  surf = list(x = M$x, y = M$y, z = volcano,  
          NAcol = "grey", shade = 0.1))