在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. 我可以只绘制网格,还是使颜色透明,还可以看到"在后面"的部分？

2. 如何在绘图上添加点(在曲面上,例如以其他颜色点(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