Diagramme en bâtons à barres horizontales avec 2 axes

ages = c("<39","40-49","50-59","60-74","75-84","85-99","100-")

total = c(14,20,76,428,1717,3453,29)

barplot(total[3:7],horiz=T,names=ages[3:7],las=1,col="#2D69B3")

mtext(side=1, "nombre d'habitants",line=2.5)

             # side = 1 ; indique qu'il faut tracer l'axe du bas

             # line : indique la distance entre le titre de l'axe et l'axe

somme = sum(total[3:7])

total_s = c(14,20,76,428,1717,3453,29)/somme*100 ; total_s

par(new=TRUE)

barplot(total_s[3:7],axes=F,horiz=T,plot=T,col="#FE642E")

axis(3,pretty(total_s,10),col="#F5821F")

mtext(side=3, "%",line=2.5)