如何从stats :: biplot和ggplot2 :: autoplot从ggfortify R包中生成的biplots获得相同的加载比例?

MYa*_*208 6 r graph pca ggfortify

从包装生产的stats::biplotggplot2::autoplotggfortify R包装生产的双层的加载尺度是不同的.我怎样才能得到相同的负载秤从生产的二维图stats::biplot,并ggplot2::autoplotggfortify R包?

stats::biplot(prcomp(USArrests, scale = TRUE))
Run Code Online (Sandbox Code Playgroud)

在此输入图像描述

library(ggfortify)
ggplot2::autoplot(stats::prcomp(USArrests, scale=TRUE), label = TRUE, loadings.label = TRUE)
Run Code Online (Sandbox Code Playgroud)

在此输入图像描述