Невозможно наложить точки на графике с помощью функции points3D в пакете plot3D в R

Question

Я строю некоторые точки, используя функцию scatter3D из пакета plot3D в R. Затем я хочу наложить еще несколько точек, используя функцию 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)