data(wine)
table(wine.class)
wine.pca <- prcomp(wine, scale. = TRUE)
ggscreeplot(wine.pca)
ggbiplot(wine.pca,
obs.scale = 1, var.scale = 1,
groups = wine.class, ellipse = TRUE, circle = TRUE)
Run the code above in your browser using DataLab