Análisis de Correspondencias Simple

Se cargan los paquetes requeridos:

library("factoextra")

Loading required package: ggplot2

library("FactoMineR")

Ahora, se leen los datos:

#--- datos provitos en los paquetes: {FactoMineR}, {factoextra} y {ade4}
data("housetasks")

Los datos están en una matriz tipo tabla de contigencia: Primera fila con los nombres de las columnas. Primera columna con los nombres de las filas. Las celdas son el conteo que corresponde a cada caso.

Se hace el Análisis de Correspondencias:

res.ca <- CA(housetasks, graph = FALSE)

Se extraen los resultados:

#--- para las variables en las filas:
get_ca_row(res.ca)

Correspondence Analysis - Results for rows
 ===================================================
  Name       Description                
1 "$coord"   "Coordinates for the rows" 
2 "$cos2"    "Cos2 for the rows"        
3 "$contrib" "contributions of the rows"
4 "$inertia" "Inertia of the rows"      

#--- para las variables en las columnas:
get_ca_col(res.ca)

Correspondence Analysis - Results for columns
 ===================================================
  Name       Description                   
1 "$coord"   "Coordinates for the columns" 
2 "$cos2"    "Cos2 for the columns"        
3 "$contrib" "contributions of the columns"
4 "$inertia" "Inertia of the columns"      

Se visualizan las contribuciones en el eje 1:

#--- para las filas:
fviz_contrib(res.ca, choice = "row", axes = 1)

#--- para las columnas:
fviz_contrib(res.ca, choice = "col", axes = 1)

Se grafican los resultados:

#--- para las variables en las filas:
fviz_ca_row(res.ca, repel = TRUE)

#--- para las variables en las columnas:
fviz_ca_col(res.ca)

#--- y la visualización conjunta:
fviz_ca_biplot(res.ca, repel = TRUE)

Ejemplo de aplicación de CA, tomado de: http://www.sthda.com/english/wiki/factoextra-r-package-easy-multivariate-data-analyses-and-elegant-visualization