powered by
data("decathlon2")
X100m
Long.jump
Shot.put
High.jump
X400m
X110m.hurdle
Discus
Pole.vault
Javeline
X1500m
Rank
Points
Competition
Decastar
OlympicG
data(decathlon2) decathlon.active <- decathlon2[1:23, 1:10] res.pca <- prcomp(decathlon.active, scale = TRUE) fviz_pca_biplot(res.pca, data = decathlon.active)
Run the code above in your browser using DataLab