[Débutant] Texte et graphique

Bonjour,
Je redécouvre R après l'avoir utilisé de façon basique il y a quelques années.
Mon pb, sur la sortie graphique (Windows) je prepare la "place" pour 4 graphiques, j'en sort 3 , ma 4eme "case" est vide et j'aimerais y faire figurer un texte (éventuellement encadré) indiquant les valeurs de base de mes 2 populations (N, moy, var). Est-ce possible ? (ce pour exporter ensuite l'image pour une présentation).
mon code ;

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

lb1<-"[A terme]" op <- par(mfrow = c(2, 2))# 2 x 2 images plot(terme$gsp,terme$delfia,col="blue",main=paste(lb1,lb,", N=", length(terme$agest))) abline(fitterme,col="red") (1ere case) lm_tout <- round(coef(fitterme), 3) # coefficient mtext(bquote(y == .(lm_tout[2])*x + .(lm_tout[1])),adj=0) x<-format(summary(fitterme)$r.squared,digits=3,width=4) mtext(bquote(R2 == .(x)),adj=1,padj=-0.2) rm(x,lm_tout,lb1) hist(log(terme$delfia), breaks = 15, probability=T,right=F,col="lightblue", border="blue", main="Delfia (log)")2eme case points(density(log(terme$delfia), bw=.3), type='l', col="red", lwd=3) hist(log(terme$gsp), breaks = 15, probability=T,right=F, col="lightblue", border="blue", main="Gsp (log)")3eme case points(density(log(terme$gsp), bw=.3), type='l', col='red', lwd=3) <--- ici ! par(op)

---

Merci par avance

Bonjour,
je débute aussi alors ma solution n'est pas très élégante...
Pourquoi ne pas insérer un graphique "vide" avec une légende?

Code:

---

1 2	plot(0,0, pch=".", xaxt="n", yaxt="n") legend("center","essai", bty="n")

---

J'espère que cela pourra vous aider :)

Merci,

C'est tout à fait dans ce sens que je voulais aller. J'ai testé c'est un bon début.
Mais pour ma présentation je crois que je vais sortir les 3 figures indépendemment, ecrire mes valeurs dans un texte et recoller le tout dans une fiche Powerpoint.
Ce sera plus rapide pour moi, néanmoins pour le fun (et l'apprentissage) je vais travailler ce que vous m'avez conseillé.
Bonne soirée

J'ai essayé et finalement ce n'est pas aussi compliqué que cela, (après la mise du pied à l'étrier par votre aide)
l'insertion de

Code:

---

1 2 3 4 5 6

plot(0,0, pch=".", xaxt="n", yaxt="n") plo <- list(paste(" N = ",length(tab$agest)), paste(" Moy = ",format(mean(tab$agest),digits=4,width=4)), paste(" Sd = ",format(sd(tab$agest),digits=3,width=4))) legend("topleft",paste(plo[1:3]), bty="n")

---

n'est sans doute pas terrible pour la syntaxe, mais fonctionne parfaitement.
On peut donc mettre "résolu"