如何使用 grid3d 沿 xy、xz 和 yz 平面放置三个网格?

How do I use grid3d to place three grids along the xy, xz, and yz planes?

我正在使用 R 和 rgl。我想沿着 xy、xz 和 yz 平面添加网格,穿过原点,而不是沿着边界框。类似这样的事情:

我很确定我需要 grid3d(),但我不知道要使用什么参数。

使用这样的东西:

xyz <- matrix(rnorm(30), ncol = 3)
plot3d(xyz, axes = FALSE)
abclines3d(x = matrix(0, ncol=3), a = diag(3), col="black", lwd=3)
grid3d("x", at = list(x = 0), col = "blue")
grid3d("y", at = list(y = 0), col = "red")
grid3d("z", at = list(z = 0), col = "green")