data(DataMix) # set of mixed data
data <- DataMix[,2:ncol(DataMix)]
rownames(data) <- DataMix[1:nrow(DataMix),1]
group.names = c("Grade Cafes/Work", "Formation/Dedication", "Coffees")
mf <- MFA(data, c(2,2,2), typegroups = c("n","c","f"), group.names) # performs MFA
tit <- c("Scree-Plot","Observations","Observations/Variables",
"Correlation Circle","Inertia of the Variable Groups")
Plot.MFA(MFA = mf, titles = tit, xlabel = NA, ylabel = NA,
posleg = 2, boxleg = FALSE, color = TRUE,
groupscolor = c("blue3","red","goldenrod3"),
namarr = FALSE, linlab = NA, savptc = FALSE,
width = 3236, height = 2000, res = 300,
casc = TRUE) # plotting several graphs on the screen
Plot.MFA(MFA = mf, titles = tit, xlabel = NA, ylabel = NA,
posleg = 2, boxleg = FALSE, color = TRUE,
namarr = FALSE, linlab = rep("A?",10),
savptc = FALSE, width = 3236, height = 2000,
res = 300, casc = TRUE) # plotting several graphs on the screen
Run the code above in your browser using DataLab