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)

Result of the PCA (Iris data) analysis displaying only the rotated data on the scaling axes.