Meus caros amigos, estou tentando usar um exemplo de aplicação de MCA, script
abaixo:
#Usando MCA# load packagesrequire(FactoMineR)require(ggplot2)
# load data teadata(tea)teanames(tea)# select these columnsnewtea = tea[,
c("Tea", "How", "how", "sugar", "where", "always")]
# take a peekhead(newtea)names(newtea)str(newtea)cats = apply(newtea, 2,
function(x) nlevels(as.factor(x)))cats
# apply MCAmca1 = MCA(newtea, graph = FALSE)
# list of resultsmca1
# table of eigenvaluesmca1$eig
#We can use the package "ggplot2()" to get a nice plot:# data frame with
variable coordinatesmca1_vars_df = data.frame(mca1$var$coord, Variable =
rep(names(cats), cats))
# data frame with observation coordinatesmca1_obs_df =
data.frame(mca1$ind$coord)
par(cex.axis=0.5)# plot of variable
categoriesggplot(data=mca1_vars_df,cex.axis=0.5, cex.lab=0.5, aes(x =
Dim.1, y = Dim.2, label = rownames(mca1_vars_df))) + geom_hline(yintercept = 0,
colour = "gray70") + geom_vline(xintercept = 0, colour = "gray70") +
geom_text(aes(colour=Variable)) + ggtitle("MCA plot of variables using R
package FactoMineR")
# MCA plot of observations and categoriesggplot(data = mca1_obs_df, aes(x =
Dim.1, y = Dim.2)) + geom_hline(yintercept = 0, colour = "gray70") +
geom_vline(xintercept = 0, colour = "gray70") + geom_point(colour = "gray50",
alpha = 0.7) + geom_density2d(colour = "gray80") + geom_text(data =
mca1_vars_df, aes(x = Dim.1, y = Dim.2, label =
rownames(mca1_vars_df), colour = Variable)) + ggtitle("MCA plot of variables
using R package FactoMineR") + scale_colour_discrete(name = "Variable")
Como faço para mudar o tamanho da fonte do título, dos eixos, legenda, etc.?
Tentei os comandos cex, cex.axis, cex.lab, mas não consegui.
Alguém tem alguma sugestão?
[ ]'s.Edson Lira
Estatístico
Manaus-Amazonas_______________________________________________
R-br mailing list
R-br@listas.c3sl.ufpr.br
https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br
Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e forneça código
mínimo reproduzível.
