library(FactoMineR)library(factoextra)
data(tea)
res_mca <- MCA(tea[, 1:5], graph = FALSE)
res_hcpc <- HCPC(res_mca, nb.clust = 3, graph = FALSE)
fviz_cluster(res_hcpc, ) + scale_colour_manual(values = c("darkgreen", "orange", "red")) + scale_fill_manual(values = c("darkgreen", "orange", "red"))