example(soc.mca)
map.ca.base() + add.ind(result, mapping = aes(color = sup$Gender)) +
add.ellipse(result, sup$Gender)
map.ca.base() + add.ind(result, mapping = aes(color = sup$Age == "65+")) +
add.ellipse(result, sup$Age == "65+", draw = "TRUE")
Run the code above in your browser using DataLab