r - 如何在 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)

也许将轴的颜色更改为“蓝色”？