Discussion :

[Puppet_Master]

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 :

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

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)

[xavier-Pierre]

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

Code :

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

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)

[Puppet_Master]

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:

[xavier-Pierre]

je pense que c'est bon

Code :

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

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

[Puppet_Master]

Bonjour xavier-Pierre.

Merci pour votre réponse.

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



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

Merci!