Ajout des effectifs sur barplot et pie chart avec ggplot2

Postez ici vos questions, réponses, commentaires ou suggestions - Les sujets seront ultérieurement répartis dans les archives par les modérateurs

Modérateur : Groupe des modérateurs

Chloé Magnin
Messages : 16
Enregistré le : 24 Avr 2017, 06:45

Ajout des effectifs sur barplot et pie chart avec ggplot2

Messagepar Chloé Magnin » 10 Mai 2017, 07:15

[*]

Pierre-Yves Berrard
Messages : 1029
Enregistré le : 12 Jan 2016, 23:30

Re: Ajout des effectifs sur barplot et pie chart avec ggplot2

Messagepar Pierre-Yves Berrard » 10 Mai 2017, 07:23

Bonjour,

Code : Tout sélectionner

+ geom_text(aes(y = ..count..)
PY

Chloé Magnin
Messages : 16
Enregistré le : 24 Avr 2017, 06:45

Re: Ajout des effectifs sur barplot et pie chart avec ggplot2

Messagepar Chloé Magnin » 10 Mai 2017, 07:29

Merci de votre réponse Pierre-Yves, cependant j'ai déjà essayé l'option geom_text, que je n'arrive pas à faire fonctionner... L'erreur envoyée est la suivante: Error in eval(expr, envir, enclos) : object 'count' not found

Pierre-Yves Berrard
Messages : 1029
Enregistré le : 12 Jan 2016, 23:30

Re: Ajout des effectifs sur barplot et pie chart avec ggplot2

Messagepar Pierre-Yves Berrard » 10 Mai 2017, 07:56

Pardon, je n'avais pas vu que c'était des données individuelles.
Je dirais qu'il faut faire un précomptage avant de faire le graphique, mais quelqu'un a peut-être une meilleure solution.
PY

Logez Maxime
Messages : 3138
Enregistré le : 26 Sep 2006, 11:35

Re: Ajout des effectifs sur barplot et pie chart avec ggplot2

Messagepar Logez Maxime » 10 Mai 2017, 08:21

Bonjour,

avec dplyr en renfort :

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)
  }
Chez moi ça ne fonctionne pas à cause de bold.italic.text mais je pense que tu sais d'où ça sort.

Cordialement,
Maxime

Chloé Magnin
Messages : 16
Enregistré le : 24 Avr 2017, 06:45

Re: Ajout des effectifs sur barplot et pie chart avec ggplot2

Messagepar Chloé Magnin » 10 Mai 2017, 08:46

Merci Maxime, ça marche!

Mais maintenant il n'y a plus la légende, ni les couleurs pour les différentes modalités... Et je n'arrive pas à les remettre... La commande scale_fill_manual(values=cbPalette) ne fonctionne pas et je ne sais pas pourquoi :(
Pour info le "bold.italic.text est une fonction du package RColorBrewer

Pierre-Yves Berrard
Messages : 1029
Enregistré le : 12 Jan 2016, 23:30

Re: Ajout des effectifs sur barplot et pie chart avec ggplot2

Messagepar Pierre-Yves Berrard » 10 Mai 2017, 12:32

"cbPalette" est visiblement une variable que vous avez créée. Elle est initialisée ?
PY


Retourner vers « Questions en cours »

Qui est en ligne

Utilisateurs parcourant ce forum : Aucun utilisateur enregistré et 1 invité

cron