dat <- scale_sd(wine[, 2:6])
plot_pca_scree(data = dat)
## Different components, class coloring
clas <- as.factor(wine$Type)
plot_pca_scree(data = dat, components = c(1, 3), position = "center",
aes_args = list(color = clas, shape = clas))
Run the code above in your browser using DataLab