#Maria Alejandra Molina Berbeo
#1022386325
#Clase de multivariados
#Análisis de correspondencia
library(factoextra)

## Loading required package: ggplot2

## Registered S3 methods overwritten by 'ggplot2':
##   method         from 
##   [.quosures     rlang
##   c.quosures     rlang
##   print.quosures rlang

## Welcome! Related Books: `Practical Guide To Cluster Analysis in R` at https://goo.gl/13EFCZ

library(FactoMineR)
data<-read.table("E:/MESTRIA UNAL/MULTIVARIADOS/fumar.txt")
data<-data.frame(data)
res.ca <- CA(data, graph = FALSE)

#COntribución de cada eje
fviz_contrib(res.ca, choice = "row", axes = 1)

fviz_contrib(res.ca, choice = "col", axes = 1)

fviz_ca_biplot(res.ca, repel = TRUE)