无法通过R中plot3D包中的points3D函数叠加在绘图上的点

Question

我正在使用R中scatter3D包中的函数plot3D绘制一些点。然后，我想使用函数points3D叠加一些点。我得到的是，新点按原样绘制，但原始点消失了（没有叠加）。我该如何解决？

library(plot3D)
n=100
set.seed(1); data=matrix(runif(4*n),ncol=4)
scatter3D(x=data[,1], y=data[,2], z=data[,3], colvar=NULL)
points3D(x=data[,1], y=data[,2], z=data[,4], col="red")

（（之后，我将从软件包plotrgl()中添加plot3Drgl以从各个角度检查绘图。不确定是否会影响该问题的答案。）

Answer 1

add=TRUE中包含选项points3D可以解决问题：

library(plot3D)
n=100
set.seed(1); data=matrix(runif(4*n),ncol=4)
scatter3D(x=data[,1], y=data[,2], z=data[,3], colvar=NULL)
points3D(x=data[,1], y=data[,2], z=data[,4], col="red", add=TRUE)