Discussion :

[ratatam25]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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)

[olivier.decourt]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[ratatam25]

C'est exactement ce que je cherchais à obtenir.



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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[olivier.decourt]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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)

[ratatam25]

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

Un grand merci pour ton aide.