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))