Bac <- read.table("https://husson.github.io/livre_exo/chap15_ex9.csv", header = TRUE, sep=";", encoding = "latin1")

library(FactoMineR)
Bac[,1] <- as.factor(Bac[,1])
round(cor(Bac[,2:12]),2)
res <- PCA(Bac, quali.sup = 1)  
summary(res)