r - 将点添加到 r 中的 3d 图

Question

我是 R 中 3D 绘图的初学者，我需要帮助。我试着绘制一些简单的抛物面

library(rgl)
x <- seq(-1,1, 0.2)
y <- x
f <- function(x,y){
   -(x^2+y^2)
}
z <- outer(x,y, "f")
persp3d(x, y, z, col="gray")

所以，我的问题是:

我可以只绘制网格，或者使颜色透明以看到“在后面”的部分吗？

如何在绘图中添加点(在表面上，例如绘制其他颜色点 (1,1,2))？

Answer 1

见 ?material3d有关表面特性的信息。大多数这些属性，例如 alpha或 front="line"或 back="line" ，可以直接传给persp3d() .加点 points3d() (或 spheres3d())。

persp3d(x, y, z, col="gray", alpha=0.5)
points3d(1,1,2,col="red")
persp3d(x, y, z, col="gray", front="line", back="line")
spheres3d(1,1,2,col="red",radius=5)  ## appropriate radius: I used x <- y <- 1:20