Análise de componentes principais em r

library(FactoMineR)
library(factoextra)
res.pca = FactoMineR::PCA(X, scale.unit = TRUE, ncp = 5, graph = TRUE)
factoextra::fviz_eig(res.pca, addlabels = TRUE, ylim = c(0, 50))
Rocku0