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

Question

我正在用RGL包装绘制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

我认为您想要expack3d（1,1,1）（尽管没有给出可重复的示例），

从？expack3d：

expack3d（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")

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