title: Reproducing stats::biplot with ggplot2::autoplot from ggfortify R package
body: <p>I'm trying to reproduce the following <code>stats::biplot</code> plot with <code>ggplot2::autoplot</code> from <code>ggfortify</code> <code>R</code> package.</p>
  
  <pre><code>biplot(prcomp(USArrests, scale = TRUE))
  </code></pre>
  
  <p><img src="https://i.stack.imgur.com/6EsUk.png" alt="enter image description here"></p>
  
  <p>Here is my <code>ggplot2::autoplot</code> code from <code>ggfortify</code> <code>R</code> package with its output.</p>
  
  <pre><code>devtools::install_github("sinhrks/ggfortify")
   library(ggfortify)
  ggplot2::autoplot(stats::prcomp(USArrests, scale=TRUE), label = TRUE, loadings.label = TRUE)
  </code></pre>
  
  <p><img src="https://i.stack.imgur.com/TXfN2.png" alt="enter image description here"></p>
  
  <p><strong>Questions</strong></p>
  
  <ol>
  <li>Why the two plots are different? How to reproduce the base plot?</li>
  <li>How to add labels as shown in base plot?</li>
  </ol>