Version imprimable
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
Pour la deuxième question, on peut jouer avec les types de lignes et les couleurs().Code: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.
Bonjour,
Il faut bien sûr un peu augmenter les marges, e.g.Citation:
Envoyé par did10
puis, pour la légende, autoriser l'écriture dans les marges (paramètre xpd)Code:
2
3
en choisissant <x> et <y> pour être dans la marge.Code:legend(<x>, <y>, <legend>,..., xpd=NA)
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
Ça dépend des plages de valeurs de ton graphique. Pour une légende au dessus, il faudra typiquement un <y> > max(y)Citation:
Envoyé par did10
T'as pas du trop essayer alors ;)Citation:
Envoyé par did10
Bon, un p'tit exemple :
Code:
2
3
4
5
6
7
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 ...:(
Mais non, mais non... juste un peu d'automatisation :Citation:
Envoyé par did10
Code:
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
Ouais mais non Pitipoisson, c'est pas au point, des fois elle apparait pas, des fois elle mange le graph ...
Merci quand même, je ferai sans
Allons allons, faut pas perdre espoir...Citation:
Envoyé par did10
Envoie nous des exemples chiffrés, ça doit pouvoir s'arranger.
Voici deux exemples
Euh, avec le code à côté, ce serait bien mieux.Citation:
Envoyé par did10
D'autant que là, tu ne dois pas chercher à mettre la légende dans les marges, t'as pas la place pour ça. Les exemples que je t'ai donnés, c'était dans un cadre bien précis (marge suffisante et libre, etc., j'avais pas assez d'éléments pour en faire davantage). Si tu en sors, il faut évidemment adapter.
Pas grave, c'est trop compliqué, ya pa moyen de le mettre en titre par hasard ? au moins on serait pas embeté avec les différentes echelles