data(crime)
library(ggplot2)
crime.pca <-
crime |>
dplyr::select(where(is.numeric)) |>
prcomp(scale. = TRUE)
ggbiplot(crime.pca,
labels = crime$st ,
circle = TRUE,
varname.size = 4,
varname.color = "red") +
theme_minimal(base_size = 14)
Run the code above in your browser using DataLab