R vous permet d’ajouter du texte à vos graphique en utilisant la fonction text. Il vous suffit de fournir les coordonnées du point où le texte doit être affiché. Si vous n’en avez aucune idée n’hésitez pas à utiliser la fonction locator() pour vous repérer.
Un exemple:
host<-function(t){5/(1+1000*exp(-1.18*t^0.4))}
time<-c(0:200)
par(mar=c(4, 6, 2, 1),cex.lab=1.3,cex.axis=1.2)
plot(host(time)~time,type='l',lwd=4.5,col="grey",ylab="Plant radius (cm)",
xlab="",ylim=c(0,5))
abline(h=1.1,col='gray10',lty=3)
abline(v=50,col='gray10',lty=3)
abline(h=3.15,col='grey',lty=3)
abline(v=100,col='grey',lty=3)
arrows(100,1.1,100,3.15,col='red',lwd=4,code=3)
arrows(50,1.1,100,1.1,col='black',lwd=4,code=3)
# on ajoute du texte en face des flèches en choisissant la couleur et la taille avec col et cex
text(150,2.2," croissance radiale",col='red',cex=1.5)
text(75,0.5,"dt",cex=1.5)