Factoextra is an excellent package to visualize the PCA result. And what I want to know is the value of the reference line in the PCA contributions plot. In this case it is about 10%. Is there a general principle what is this value?
library(factoextra)
library(FactoMineR)
df <- decathlon2[1:23, 1:10]
res.pca <- PCA(df, graph = FALSE)
fviz_contrib(res.pca, choice = "var", axes = 1, top = 10)
An example :