data(tea, package = "FactoMineR")
res.mca <- MCA2(tea, active_vars = 1:18)
res.mca %>%
ggmca(tea, sup_vars = c("SPC"), ylim = c(NA, 1.2), text_repel = TRUE) %>%
ggi() #to make the graph interactive
Run the code above in your browser using DataLab