Discussion :

[did10]

Bonjour,

Je souhaiterais ajouter une legende sur mes graphiques mais pas sur le graphe car il n'y a pas la place, est-il possible de la mettre en titre ou en bas de page ou ailleurs ?

D'autre part, je voudrais superposer deux courbes l'une sur l'autre, comment faire pour qu'on puisse voir les deux couleurs des courbes bien distinctes au lieu d'une seule ?

Merci
Did

[balap]

Pour la deuxième question, on peut jouer avec les types de lignes et les couleurs(

Code :

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

lines(type='l/s/b...',lty=x,col=y,pch=z)

).
Pour la première question, j'avais eu le même problème il y a un petit moment, j'avais pas trouvé de solution simple, j'avais créer moi même ma légende en créant un cadre et en dessinant et écrivant dedans il me semble, tout ce que je me rappelle c'était pas facile.
Il existe peut être une autre manière plus simple.

[pitipoisson]

Bonjour,

Je souhaiterais ajouter une legende sur mes graphiques mais pas sur le graphe car il n'y a pas la place, est-il possible de la mettre en titre ou en bas de page ou ailleurs ?

Il faut bien sûr un peu augmenter les marges, e.g.

Code :

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

1
2
3
par(mar=c(5, 4, 6, 1) + 0.1)   # défaut : c(5, 4, 4, 1) + 0.1
 
# la fonction qui plot'...

puis, pour la légende, autoriser l'écriture dans les marges (paramètre xpd)

Code :

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

legend(<x>, <y>, <legend>,..., xpd=NA)

en choisissant <x> et <y> pour être dans la marge.

[did10]

Merci, mais je ne vois pas quelles valeurs mettre pour <x> et <y> ?
D'autre part, en agrandissant la marge je ne vois pas de difference

[pitipoisson]

Merci, mais je ne vois pas quelles valeurs mettre pour <x> et <y> ?

Ça dépend des plages de valeurs de ton graphique. Pour une légende au dessus, il faudra typiquement un <y> > max(y)

D'autre part, en agrandissant la marge je ne vois pas de difference

T'as pas du trop essayer alors

Bon, un p'tit exemple :

Code :

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

1
2
3
4
5
6
7
par(mfrow=c(1, 2))  # 2graphiques dans la même fenêtre
plot(1:2, 1:2, pch=16)
legend(1, 2.1, legend=letters[1:4], pch=16, col=gray(c(0.2, 0.4, 0.6, 0.8)))   # une légende qui sort légèrement de la zone de graphique mais qui n'a pas le droit d'écrire à l'extérieur !
 
par(mar=c(5, 4, 6, 1) + 0.1)   # On augmente la marge supérieure
plot(1:2, 1:2, pch=16)
legend(1, 2.3, legend=letters[1:4], pch=16, col=gray(c(0.2, 0.4, 0.6, 0.8)), xpd=NA)   # Et la légende dans la marge supérieure

[did10]

Ok merci j'ai compris le principe mais je dois faire ça sur 113 graphiques, en sachant qu'ils n' ont pas tous la même échelle, donc la galère ...

[pitipoisson]

...la galère ...

Mais non, mais non... juste un peu d'automatisation :

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
20
21
22
23
24
25
> d <- legend("top", legend=letters[1:4], pch=16, col=gray(c(0.2, 0.4, 0.6, 0.8)), xpd=NA, plot=FALSE)   # On récupère les dimensions de la légende, sans l'imprimer
> d
$rect
$rect$w
[1] 0.2057927

$rect$h
[1] 0.2268908

$rect$left
[1] 1.397104

$rect$top
[1] 2.04


$text
$text$x
[1] 1.528811 1.528811 1.528811 1.528811

$text$y
[1] 1.994622 1.949244 1.903866 1.858487


> legend("top", legend=letters[1:4], pch=16, col=gray(c(0.2, 0.4, 0.6, 0.8)), xpd=NA, inset = -d$rect$h)  # On l'imprime décalée de inset de la marge du haut