Modérateur : Groupe des modérateurs
Code : Tout sélectionner
for (i in names(data_SV)){
p <- eval(substitute(ggplot(data_SV %>% group_by(XX) %>% summarise(Count = n()), aes(x = XX, y = Count)) + geom_bar(stat = "identity"), list(XX = as.name(i))))
p <- p + geom_text(aes(label = Count), nudge_y = 0.5)
p <- p + ggtitle(paste(i,"distribution")) + scale_fill_hue(l=80) + theme_classic() + scale_fill_manual(values=cbPalette)
p <- p + theme(title = bold.italic.text, axis.title = bold.italic.text,text=element_text(size=15),plot.title = element_text(hjust=0.5),legend.title=element_blank())
print(p)
}
Retourner vers « Questions en cours »
Utilisateurs parcourant ce forum : Aucun utilisateur enregistré et 1 invité