r - R ggbiplot - 如何根据载荷长度更改轴比例？

Question

我使用 R prcomp 包执行了 PCA 分析（对 Iris 数据）。当我使用 ggbiplot 函数绘制结果时，轴的比例是根据旋转数据（= ir_pca$x）（参见下面的图片链接），但我希望轴根据载荷（= ir_pca$rotation ) 也是如此。两个地块会很好。一个带有载荷和相应的轴缩放比例，另外一个仅显示旋转数据及其相应轴比例的绘图。第三种选择是在一个图中显示两个比例，即在底部和左侧旋转数据，在顶部和右侧显示负载比例。

ir_pca <- prcomp(ir, center = TRUE, scale = TRUE) 

g = ggbiplot(ir_pca,
             choices = c(1,2),
             groups = iris[,5],
             var.axes = TRUE,
             obs.scale = 1,
             ellipse = TRUE)
print(g)

PCA（虹膜数据）分析的结果仅显示缩放轴上的旋转数据。