par Philippe MICHEL
Un barplot un peu particulier bien pratique pour comparer visuellement deux populations.
Partons d’un data.frame nommé [*cas*] contenant au moins les deux rubriques :
- [*age*] numérique
- [*sexe*] factorielle à deux niveaux "[**H*]" & "[**F*]"
Et traçons la pyramide des âges soit un barplot horizontal distinguant les hommes des femmes. Tout d’abord créons une variable factorielle contenant les âges classés par dizaines que nous appellerons [*cut.age*] :
cas$cut.age <- cut(cas$age,seq(0,100,10))
Puis commençons à tracer notre graphique avec les dames en rose & les messieurs en bleu (quelle originalité !). Comme le graphique est pivoté à l’horizontale les axes sont inversés & les réglages de l’axe de y sont sur l’ordonnée.
- age = age,
- sexe = sexe,
- ff = "F",
- mm = "M",
- titre = "Pyramide des âges") {
- ggplot(dfx) +
- aes(x = {{age}}, fill = {{sexe}}) +
- aes(y = ..count.. * (-1))) +
- coord_flip() +
- theme_light() +
- theme(
- plot.title = element_text(size = 16, face = "bold"),
- axis.title.x = element_blank(),
- axis.title.y = element_blank(),
- axis.text.x = element_blank(),
- axis.text.y = element_text(size = 12, face = "bold"),
- legend.position = "bottom",
- legend.title = element_blank(),
- )
- }
Volontairement je n’ai pas modifier le graphisme de base en jouant sur les polices, les traits etc. pour garder un code simple.