How to get the same scales for bilops obtained from the :: biplot and ggplot2 :: autoplot statistics from the ggfortify R package?

Question

The load scales for the biplots obtained from the stats::biplot and ggplot2::autoplot from ggfortify R are different. I would really appreciate if someone could help me get the same scales for the biplots obtained from stats::biplot and ggplot2::autoplot from ggfortify R Thanks

 stats::biplot(prcomp(USArrests, scale = TRUE)) 

 library(ggfortify) ggplot2::autoplot(stats::prcomp(USArrests, scale=TRUE), label = TRUE, loadings.label = TRUE)