如何在R中的3D绘图中添加轴x = 0，y = 0和z = 0？

Question

我希望将abline(a,b)添加到绘图中，但使用rgl包添加为3维。

比方说，这是3D情节：

set.seed(12444)
X = rnorm (1000, 50, 10)
Y = X*0.6+rnorm(length(X), 0, 10)
Z = Y*0.3+ +rnorm(length(X), 0, 10) 
# using rgl package 
library(rgl)
plot3d(Z, X, Y, col="red", size=3)

我想在3D图中绘制轴x = 0，y = 0和z = 0。

Answer 1

这看起来不错：

lines3d(x=0,y = 0:range(X)[2], z=0, col="red", size=3)
lines3d(x=range(Z)[1]:range(Z)[2], y=0, z=0, col="red", size=3)
lines3d(x=0,y=0, z=range(Y)[1]:range(Y)[2], col="red", size=3)

但这看起来更好（IMO）：

lines3d(x=0,y = 0:range(X)[2], z=0, col="red", size=3)
lines3d(x=0:range(Z)[2], y=0, z=0, col="red", size=3)
lines3d(x=0,y=0, z=0:range(Y)[2], col="red", size=3)

可能会将轴的颜色更改为“蓝色”？