ggplot2 ajouter une légende

Bonjour.

J'ai un bargraph en ggplot2 et j'aimerai lui ajouter une légende, mais je n'arrive à rien.

Voici un bout de code pour illustrer mon problème.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

d <- data.frame( num = c("123","456","789","147","258","369"), val1 = runif(6), val2 = runif(6) )   library(ggplot2)   ggplot(d) + aes(x = num, y = val1) + geom_bar(stat = "identity", aes( y = d$val1 ), col = "darkgreen", fill = "green" , alpha = 0.5) + geom_bar(stat = "identity", aes( y = d$val2 ), col = "darkred" , fill = "red" , alpha = 0.5)

---

bonsoir,
c'est à cause du format de ton tableau il faut le retravailler

Code:

---

1 2 3 4 5

library(tidyr) d2 <- gather(d,vals,value,-num)   ggplot(d2,aes(x=num, y= value, fill = vals))+ geom_col() ##dans ce cas là tu peux utiliser geom_col)

---

Bonjour xavier-Pierre.

Merci pour votre réponse.

Cette solution permet effectivement d'avoir une légende, mais cela modifie la représentation graphique. J'ai besoin que les deux jeux de valeurs se recouvrent l'un l'autre:

Pièce jointe 474160

je pense que c'est bon

Code:

---

1 2 3 4

d2 <- gather(d,vals,value,-num)   ggplot(d2,aes(x=num, y= value, fill = vals))+geom_bar(stat="identity",position ="identity",alpha =0.5)

---

cdlt

Bonjour xavier-Pierre.

Merci pour votre réponse.

Cette solution répond parfaitement à la question du topic:

Pièce jointe 474275

J'ai plus qu'à voir pour customiser les couleurs des barres et ce sera parfait.

Merci!