Symbol dans une marge

[Christophe Genolini]

Bonjour,

Je voudrais inclure des symboles sous un graphe :

Code : Tout sélectionner

symboles <- c(3,4)
dn <- rbind(matrix(rnorm(20),,5),matrix(rnorm(20,2),,5))
listSymboles <- rep(symboles,each=4)

matplot(t(dn),pch=listSymboles,type="b")


Je voudrais que sous le graphe dans le xlab apparaisse une ligne qui serait

Code : Tout sélectionner

+ : homme ; x : femme


Il arrivera aussi qu'il y ait plus de groupes :

Code : Tout sélectionner

symboles <- c(3,4,5,6)
dn <- rbind(matrix(rnorm(20),,5),matrix(rnorm(20,2),,5))
listSymboles <- rep(symboles,each=2)

matplot(t(dn),pch=listSymboles,type="b")


dans ce cas, il faudrait

Code : Tout sélectionner

+ : ane ; x : Cheval ; [losange] : poney ; [Delta] : mule


Quelqu'un sait comment faire ? Merci

Christophe

[Olivier Delaigue]

Pourquoi pas une légende, tout simplement?

Code : Tout sélectionner

legend("bottomleft", pch = unique(listSymboles), legend = c("ane", "cheval", "poney", "mule"), inset = c(0,-0.175), horiz = TRUE, xpd = NA)

[Christophe Genolini]

Pourquoi pas une légende, tout simplement?

Je l'ai fait, mais la distance entre les marques et la légende n'est pas fixe. En particulier, si une légende est bien placé avec un graphe, elle sera mal placé avec 2 graphe :

Code : Tout sélectionner

symboles <- c(3,4)
dn <- rbind(matrix(rnorm(20),,5),matrix(rnorm(20,2),,5))
listSymboles <- rep(symboles,each=4)

layout(matrix(c(1,1,2,3),2))

matplot(t(dn),pch=listSymboles,type="b")
legend("bottomleft", pch = unique(listSymboles), legend = c("ane", "cheval", "poney", "mule"), inset = c(0,-0.175), horiz = TRUE, xpd = NA)


matplot(t(dn),pch=listSymboles,type="b")
legend("bottomleft", pch = unique(listSymboles), legend = c("ane", "cheval", "poney", "mule"), inset = c(0,-0.175), horiz = TRUE, xpd = NA)


matplot(t(dn),pch=listSymboles,type="b")
legend("bottomleft", pch = unique(listSymboles), legend = c("ane", "cheval", "poney", "mule"), inset = c(0,-0.175), horiz = TRUE, xpd = NA)