Discussion :

[Mjm]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[lilly74]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

J'espère que cela pourra vous aider

[Mjm]

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

[Mjm]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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"