library(FactoMineR) wine = read.table("http://factominer.free.fr/bookV2/wine.csv",header=TRUE,row.names=1,sep=";",check.names=FALSE) res.ca=CA(wine,col.sup=11,row.sup=nrow(wine)) barplot(res.ca$eig[,1],main="Eigenvalues",names.arg=1:nrow(res.ca$eig)) summary(res.ca)