Graphique à 2 axes réalisé avec le logiciel R

1. Les données en abscisses et en ordonnées 

# Données d'abscisses (ce n'est qu'un exemple)

x=rep(1:25)*2.5

# Données des ordonnées

y_gauche=c(0,0,0,100,200,50,5,4,3,2,5,6,4,3,1,0,0,0,0,10,15,17,9,4,0) 

#Teneur en glucides (mesurée en fonction de la taille du précipité)

y_droite=c(0,0,0,0,0,0,0,0,0,0,0,1,1,2,3,2,2,1,0,0,0,0,0,0,0)

2. Tracer le graphique (partie gauche)

##### TRES IMPORTANT POUR POUVOIR AJOUTER DES AXES SUPPLÉMENTAIRE (tel un axe des ordonnées à droite)

par(mar=c(4,4,3,5))   # par redéfinit les marges du graphiques pour laisser de la place à droite pour l'ajout d'un axe.

# Le graphique (première courbe noire)

plot(x, y_gauche, pch=16, axes=F, ylim=c(0,300), xlab="", ylab="", type="o",col="black", main="Graphique à 2 axes")

# Légende de l'axe Y de gauche

axis(2, ylim=c(0,300),col="black")

mtext("Axe de la courbe noire",side=2,line=2.5)

box() # pour encadrer le graphique

3. Ajouter les axes

# Ajout de la courbe rouge correspondant à l'axe de droite

par(new=T) # Autorise la superposition des courbes et non le remplacement d'un graphique par un autre

plot(x, y_droite, pch=15,  xlab="", ylab="", ylim=c(0,3), axes=F, type="o", col="red")

# Légende de l'axe Y de droite

mtext("Axe de la courbe rouge",side=4,col="red",line=2.5)

axis(4, ylim=c(0,3), col="red",col.axis="red")

# AXE X

axis(1,pretty(range(x),10)) # la commande pretty permet de ne pas afficher la totalité des valeurs de x mais plutôt des intervalles

mtext("Volume d'élution (mL)",side=1,col="black",line=2.5)

4. Ajouter une légende

# Legend

legend(x="topleft",legend=c("Courbe noire","Courbe rouge"), text.col=c("black","red"), pch=c(16,15), col=c("black","red"))