如何使用 R rgl 3D 图获得大小相等的轴

Question

我正在用 rgl-package 绘制一个 3D 点图

par(mar = c(0, 0, 0, 0), cex.lab=1)
plot3d(cart$x,cart$y,cart$z,"X","Y","Z")

这项工作到目前为止。 由于这些值，只有 3 轴的大小不同。

我需要相同尺寸的轴。

这是当前的输出。 所有 3 个轴都应该达到 10000，或者我设置的任何值。

我怎样才能做到这一点？

（据我了解，xlim 等不起作用）

Answer 1

我认为您想要aspect3d(1,1,1) （尽管没有给出可重现的示例）

从?aspect3d ：

aspect3d(x, y = NULL, z = NULL)
如果比率全为 1，则边界框将显示为近似填充显示的立方体。 可以根据需要将值设置得更大或更小。

Answer 2

我终于通过在轴的末端添加三个点来解决这个挑战。

endpoints <- read.table(header = TRUE, text = "
       x  y z
       -11000  0   0
       0  -11000 0
       0  0 11000
       ")
cart <- rbind(cart, endpoints)
plot3d(cart$x,cart$y,cart$z,"X","Y","Z")

也许不是最优雅的解决方案，但它对我有用。