Pluvio <- read.table("https://husson.github.io/livre_exo/chap15_ex4.csv", header = TRUE, sep=";",row.names=1, encoding = "latin1")
colnames(Pluvio)[19] <- "% de mai à août"

cor(Pluvio)

library(FactoMineR)
res <- PCA(Pluvio, quanti.sup = 13:ncol(Pluvio))
summary(res)