example(soc.mca)
map.ca.base() + add.categories(result, check_overlap = TRUE)
map.ca.base() + add.categories(result, preset = "all",
mapping = aes(color = type, label = Modality), repel = TRUE)
Run the code above in your browser using DataLab