Superposition 2 geom_bar

Bonjour,

J'ai des données sur 2 années: 2020 et 2019. Elles représentent les effectifs dans des catégories (CM).
Je cherche à représenter sur un même ggplot geom_bar d'une part l'activité 2019 et en superposition l'activité 2020.

Est ce possible ?
Le contraire me surprendrais mais là j'ai besoin d'aide car je ne trouve pas de solution.
Par avance merci.

Mon jeu de données:

Code:

---

1 2 3 4 5

q1 <- c("01","01","02","02","03","03","04","04") q2 <- c(2019,2020,2019,2020,2019,2020,2019,2020) q3 <- c(50,12,75,16,86,23,42,11) df <- data.frame(CM =q1, ANNEE=q2, EFF=q3)

---

Bonjour.
Le plus simple me semble de réorganiser tes données : plutôt que d'avoir une ligne par année (parfait pour mettre ANNEE en esthétique, mais moins pratique pour ce que tu veux faire), mettre les effectifs sous deux colonnes selon l'année. J'ai utilisé {tidyr} pour faire cette transposition mais d'autres packages seront tout aussi bien ({reshape2}, {cdata}, etc.).

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

library(tidyr) library(ggplot2)   df2 <- pivot_wider(df, names_from = "ANNEE", values_from = "EFF", names_prefix = "eff_")   ggplot(df2) + aes(x=CM) + geom_bar(aes(y=eff_2019), stat="identity", fill="yellow") + geom_bar(aes(y=eff_2020), stat="identity", alpha=0.2, fill="red")

---

Avec la forme actuelle de tes données, il faudrait que chaque geom_bar ait son propre argument data avec un filtre (which ou dplyr::filter, selon tes goûts). Ça me semble une solution plus lourde en code.

C'est exactement ce que je cherchais à obtenir.

Pièce jointe 553956

J'étais passé dans un premier temps via dplyr a une variable avec une colonne effectif par année mais je n'ai pas su aller plus loin.
J'ai donc repris cette variable et ai adapté mes geom_bar.

Je vais maintenant explorer ta proposition de création du df avec tidyr. Je n'ai pas encore regardé cet élément du tidyverse. Je redécouvre R; je l'avais abandonné depuis plusieurs années par faute d'utilité.

Une question encore si tu as la patience d'y répondre.
Si mes données n'avaient pas été groupées (pas de calcul d'effectif) et ainsi sur 2 variables :cm - année du type :

Code:

---

1 2 3 4 5 6 7 8 9

cm annee 01 2019 04 2020 02 2019 03 2020 03 2019 01 2020 04 2019 04 2020

---

Aurais-je du de toute façon passer par un calcul des effectifs ou bien ce calcul aurait-il pu être réalisé directement dans le geom_bar ?


Merci à toi.

Bonjour.
Dans le cas des données non agrégées, geom_bar fera bien les calculs tout seul. J'ai l'impression que la solution de réorganiser les données sera un peu moins simple dans ce cas. C'est l'occasion d'explorer la solution où on filtrer les années directement dans chaque geom_bar.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

library(tidyverse) library(ggplot2)   df <- tribble(~cm, ~annee, "01", 2019, "04", 2020, "02", 2019, "03", 2020, "03", 2019, "01", 2020, "04", 2019, "04", 2020)   ggplot() + aes(x=cm) + geom_bar(data=filter(df, annee == 2019), fill="yellow") + geom_bar(data=filter(df, annee == 2020), width = 0.5, alpha=0.2)

---

Cette solution me convient bien.
Elle est plus en adéquation avec le reste de mes données.

Un grand merci pour ton aide.