Graphiques à une dimension

layout(matrix(1:(nombre_de_graphiques+1),(nombre_de_graphiques+1),1))

par(mar=c(4,13,3,4)) # Ces 4 valeurs définissent les marges du graphique

            # La 2ème valeur est la marge de gauche - agrandit pour permettre un titre de l'axe y horizontal

titre = "Productivité de travail\nKgw/UMA à rémunérer"

moyenne = 32100

tier_inf = 28000

tier_sup = 35000

seuil = 5000

xlim_min = moyenne-seuil

xlim_max = moyenne+seuil

plot(moyenne, 0,xlim=c(xlim_min,xlim_max),pch="|",cex=3,axes=F,xlab="",ylab="",font.lab=2)

points(tier_inf,0,pch=21,cex=3,col="red",bg="blue")

points(tier_sup,0,pch=22,cex=3,col="red",bg="green")

axis(1, c(xlim_min,moyenne,xlim_max,tier_inf,tier_sup))

# On peut aussi remplacer la ligne précédent par la ligne qui suit pour avoir les points sur l'axe :

axis(1, c(xlim_min,moyenne,xlim_max,tier_inf,tier_sup),pos=0)

mtext(titre,side=2,col="black",cex=0.8,font=2,las=1,adj=1,padj=0.5) # Cette ligne ajoute le titre de l'axe y

    # titre : contient le titre

    # side : indique un titre sur l'axe de gauche

    # col : couleur

    # cex : taille de police

    # font : titre en gras si = 2, italique si 3...

    # las : titre horizontal, rotation de y lab

    # adj : alignement à droite

    # padj : centrage verticalement du texte

#Cette partie doit rester à la fin

plot(0,0,axes=F,pch="|",cex=3,xlab="",ylab="",xlim=c(0,3),ylim=c(-4,1))

points(1,0,pch=21,cex=3,bg="blue",col="red")

points(2,0,pch=22,cex=3,bg="green",col="red")

text(0.05,0,"Valeur moyenne \ndes exploitations",adj=c(0,0.5))

text(1.05,0,"Population du tier inférieur\n de la rémunération SMIC/UMO",adj=c(0,0.5))

text(2.05,0,"Population du tier supérieur\n de la rémunération SMIC/UMO",adj=c(0,0.5))