install.packages("factoextra")
install.packages("FactoMineR")
library(factoextra)
library(FactoMineR)

data(hobbies)
names(hobbies)

hob.mca = MCA(hobbies,quali.sup = 19:22,quanti.sup = 23)
par(mfrow=c(2,2))
par(mfrow=c(1,1))

fviz_mca_biplot(hob.mca)
fviz_mca_biplot(hob.mca,invisible = "ind")
fviz_mca_ind(hob.mca,col.ind="cos2")
#first dim contributions
fviz_contrib(hob.mca,choice="var",axes=1)
#2nd dim contributions
fviz_contrib(hob.mca,choice="var",axes=2)
#collective contribution
fviz_contrib(hob.mca,choice="var",axes=1:2)