Je voudrais faire une figure avec 2 pyramides des âges supperposées où celle du dessus soit en texture (rayure par exemple) pour que l'on puisse voir la pyramide du dessous même si il y a des barres plus longues que les barres du dessous.
Je ne sais pas si je me fais comprendre,
mais voici un code:
Code : Tout sélectionner
#Chargement de package
library(plotrix)
# Creation de la base "donnee1"
donnee1<-c(1:9)
donnee1<-as.data.frame(donnee1)
donnee1$age<-c("0-9","10-19","20-29","30-39","40-49","50-59","60-69","70-79","80 et +")
donnee1$nbrM<-c(25,26,17,12,10,5,3,1.4,0.6)
donnee1$nbrF<-c(23,27,20,13,7,4,3,2,1)
#Creation de la base "donnee2"
donnee2<-c(1:9)
donnee2<-as.data.frame(donnee2)
donnee2$age<-c("0-9","10-19","20-29","30-39","40-49","50-59","60-69","70-79","80 et +")
donnee2$nbrM<-c(14,30,18, 13,10,8,4,2,1)
donnee2$nbrF<-c(20, 33, 16, 11, 8, 5, 4, 2,1)
#Les deux pyramides:
#Pyramide de la base "donnee1"
par(mar=pyramid.plot(donnee1$nbrM,donnee1$nbrF,labels=c("0-9","10-19","20-29","30-39","40-49","50-59","60-69","70-79","80 et +"),
lxcol="#7F7F7F",rxcol="#7F7F7F",
laxlab=c(0,5,10,15,20,25,30,35),raxlab=c(0,5,10,15,20,25,30,35),
gap=3.2))
par(new=TRUE) #pour obtenir des figures supperposées
#Pyramide de la base "donnee2"
par(mar=pyramid.plot(donnee2$nbrM,donnee2$nbrF,labels=c("0-9","10-19","20-29","30-39","40-49","50-59","60-69","70-79","80 et +"),
lxcol=NULL,rxcol=NULL,
laxlab=c(0,5,10,15,20,25,30,35),raxlab=c(0,5,10,15,20,25,30,35),
gap=3.2))
Au lieu de mettre les couleurs, pour la pyramide de la base de données "donnee2", en NULL ou en d'autres couleurs, est-il possible que les remplissages soient en texture. Sinon, existe t-il une solution alternative?
Merci d'avance