1 2 3 |
1 2 3 4 5 6 7 8 9 10 | library("FactoMineR")
data(wine)
wine_mfa <- ordi(wine[, -c(1:2)], "MFA", wine[, 1:2], group = c(5,3,10,9,2),
type = rep("s",5), graph = F)
plot_mvar_d3(wine_mfa)
plot_mvar_d3(wine_mfa, c("text", "arrow"), width = 500)
data(hobbies)
hobbies_mca <- ordi(hobbies[, 1:18], method = "MCA",
rows_annot = hobbies[, 19:23], graph = F)
plot_mvar_d3(hobbies_mca, width = 500, asp = 1)
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.