library(FactoMineR)
don = read.table("http://factominer.free.fr/livre/vins.csv",header=TRUE,row.names=1,sep=";")
colnames(don)=c("1S.Michaud","2S.Renaudie","3S.Trotignon","4S.Buisse","5S.BuisseCristal","6C.AubSilex","7C.Aub.Marigny","8C.FontDomaine","9C.FontBrűlés","10C.FontCoteaux","Somme")
res.ca=CA(don,col.sup=11,row.sup=nrow(don))
barplot(res.ca$eig[,1],main="Valeurs propres",names.arg=1:nrow(res.ca$eig))
round(res.ca$eig,3)