在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