Trucs pour LaTeX & R

Pyramide des âges

mardi 9 janvier 2018 par Philippe MICHEL

Partons d’un data.frame nommé data 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 :

  1. data$cut.age <- cut(data$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.

  1. gg <- ggplot(data,aes(x=cut.age,fill=sexe))
  2. gg <- gg + geom_bar(data=subset(tt,sexe=="F"),aes(y=..count..*(-1))) # les valeurs deviennent négatives
  3. gg <- gg + geom_bar(data=subset(tt,sexe=="H"))
  4. gg <- gg + scale_fill_manual(values = c("pink","blue")) # Un peu de couleur
  5. gg <- gg + scale_y_discrete(limits=c(-100,0,100,200),labels=c(100,0,100,200)) # étiquettes pour l'axe des x, à modifier selon vos données.
  6. gg <- gg + coord_flip()
  7. plot(gg)

Télécharger

Volontairement je n’ai pas modifier le graphisme de base en jouant sur les polices, les traits etc. pour garder un code simple. Vous trouverez des exemples ici.


Accueil | Contact | Plan du site | | Statistiques du site | Visiteurs : 3 / 125754

Suivre la vie du site fr  Suivre la vie du site R  Suivre la vie du site ggplot2   ?    |    titre sites syndiques OPML   ?

Site réalisé avec SPIP 3.2.0 + AHUNTSIC

Creative Commons License