scatter3d{car}-调整轴比例

我在网上和StackOverflow上下搜索过，但找不到如何在scatter3d中调整轴

我的示例代码是

library(mvtnorm)
library(rgl)
library(car)

# multivariate norm data, split into two groups
set.seed(41367)
sigma <- matrix(c(9,2,0,2,4,1,0,1,1), ncol=3)
pcaData <- data.frame(rmvnorm(n=100, mean=c(9,4,0), sigma=sigma), gl(2,50))

names(pcaData)<-c("PC1", "PC2", "PC3", "ID")

# Obtain overall min and max across all numerical data
minScale <- min(pcaData[,1:3]) # = -1.883 from 3rd column
maxScale <- max(pcaData[,1:3]) # = 16.309 from 1st column

with(pcaData,{
  scatter3d(PC1, PC2, PC3, surface=F, groups = ID, ellipsoid = T,  grid = F,
            axis.scales = T,
            xlim = c(minScale, maxScale),
            ylim = c(minScale, maxScale),
            zlim = c(minScale, maxScale),
            xlab = "PC-1", 
            ylab = "PC-2",
            zlab = "PC-3")
})

库（mvtnorm）
图书馆（rgl）
图书馆（汽车）
#多变量范数数据，分为两组
种子集（41367）
欢迎来到堆栈溢出！请提供一个示例，并包括运行代码所需的所有程序包。这样其他人就可以运行你的代码了。谢谢你，弗兰克。我的第一个尝试包括我对一个最小可复制示例的解释。您包含的链接内容丰富，非常有用。我相信
scatter3D（）
会强制轴与完全对称的立方体相匹配。因此，您必须深入研究函数以将轴和点平移到所需位置。