Plotting pca biplot with ggplot2

Question

I wonder if it is possible to plot pca biplot results with ggplot2. Suppose if I want to display the following biplot results with ggplot2

fit <- princomp         


        

Answer 1

Here is the simplest way through ggbiplot:

library(ggbiplot)
fit <- princomp(USArrests, cor=TRUE)
biplot(fit)

ggbiplot(fit, labels =  rownames(USArrests))