Построение двумерного графика pca с помощью ggplot2

Интересно, можно ли построить результаты двухплотного графика pca с помощью ggplot2. Предположим, если я хочу отобразить следующие результаты двоичного графика с помощью ggplot2

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

Любая помощь будет принята с благодарностью. Спасибо