Figure 7. Representation of the supplementary quantitative variables: liking scores.
plot.MFA(res.mfact.23,choix="var",invisible=c("col"),cex=1, title="", graph.type="classic" )
To build a plot with colours:
rownames(res.mfact.23$quanti.var.sup$coord)[1] <- "FrScore"
dfsup <- res.mfact.23$quanti.var.sup
pcircle <- plot.MFA(res.mfact.23, choix = "var", palette=c("black", "black"), lab.var=FALSE, graph.type="ggplot",
cex=1.4)
Figure7 <- pcircle + theme_light() + theme(panel.grid.major = element_blank(), panel.grid.minor = element_blank())+
ggtitle("")+ theme (legend.position="none") +
labs(x=labx)+labs(y=laby)+
theme(axis.title.x= element_text(size=17, face="bold"))+
theme(axis.title.y= element_text(size=17, face="bold"))+
theme(axis.text.x = element_text(size=rel(1.6)))+
theme(axis.text.y = element_text(size=rel(1.6))) +
theme(plot.margin = grid::unit(c(t=5,r= 2,b=5, l=2), "mm"))+
theme(plot.title.position = "plot")+
ggrepel::geom_label_repel(size=7, aes(x=dfsup$coord[,1], y=dfsup$coord[,2]),
label = c(rownames(dfsup$coord)),
fontface = c('bold.italic', 'bold'),
colour=c("red", "black")) +
ggtitle("Figure 7. Representation of the supplementary quantitative variables: liking scores")
Figure7
