# NOT RUN {
## Performs a specific MCA on 'Taste' example data set
## ignoring every 'NA' (i.e. 'not available') categories,
## and then draws the cloud of individuals.
data(Taste)
getindexcat(Taste[,1:11])
mca <- speMCA(Taste[,1:11],excl=c(3,6,9,12,15,18,21,24,27,30,33))
ggcloud_indiv(mca)
# Points are colored according to gender
ggcloud_indiv(mca, col=Taste$Gender, palette='Set2')
# A density layer of contours is added
ggcloud_indiv(mca, density="contour")
# A density layer of hexagon bins is added
ggcloud_indiv(mca, density="hex", hex.bin=10)
# }
Run the code above in your browser using DataLab