Fonction somme pour un ggplot

[Sylvain Gaudin]

Bonjour,

J'essaye de faire un graphique en barre qui fait la somme de données par année.

Mes données sont de la forme :

Code : Tout sélectionner

Annee <- as.factor(c(2020,2020,2021,2021,2022,2022,2022))
Nombre <- as.numeric(c(1,8,1,1,1,2,3))
Photo <- data.frame(Annee,Nombre)

Avec le code suivant :

Code : Tout sélectionner

library(ggplot2)
ggplot(data = Photo, aes(x = Annee))+
  geom_bar(fill="darkred")

J'obtiens un graphique qui me donne le nombre d'occurrences par année, mais pas la somme par année (2020 = 9, 2021 = 2, 2022 = 6). J'ai essayé plusieurs méthodes pour faire réaliser cette somme stat_function, stat=, etc. mais en vain.

Merci pour votre aide.

[Logez Maxime]

Bonjour,

Code : Tout sélectionner

library(ggplot2)
ggplot(data = Photo, aes(x = Annee, weight = Nombre))+
  geom_bar(fill="darkred")

Cordialement,
Maxime

[Maxime Deniaux]

Bonjour Sylvain,

la méthode de...Maxime (l'autre ;p) fonctionne évidemment mais voici une autre méthode si cela vous intéresse.

Code : Tout sélectionner

library('dplyr')
library('ggplot2')

Photo %>% group_by(Annee) %>% summarise(Nombre = sum(Nombre)) %>%
ggplot(aes(x = Annee, y = Nombre))+
  geom_bar(fill="darkred",stat = "identity")

Le code :

Code : Tout sélectionner

Photo %>% group_by(Annee) %>% summarise(Nombre = sum(Nombre))

permet de modifier votre dataframe Photo afin d'avoir les données finales que vous souhaitez. C'est-à-dire :

(2020 = 9, 2021 = 2, 2022 = 6)

.

Ensuite, il vous suffit de faire votre ggplot, qui est maintenant peut-être plus intuitif avec cette nouvelle table Photo (?), d'où ma proposition.

Bonne fin de journée !

[Sylvain Gaudin]

Un grand merci aux Maxime ! Gratias maximas !

Effectivement, j'avais pensé à synthétiser les données en passant par dplyr, mais il me semblait qu'il y avait une méthode directe en utilisant uniquement ggplot (mais j'étais très loin du compte).

Bien cordialement