Comment superposer deux geom_bar?

Je suis en train de superposition de 2 barres de geom_bar dérivé de 2 séparer les données.les cadres.

dEQ
   lab perc
1  lmP 55.9
2  lmN 21.8
3   Nt  0.6
4 expG  5.6
5 expD  0.0
6 prbN 11.2
7 prbP  5.0

et

LMD
   lab perc
1  lmP 16.8
2  lmN  8.9
3   Nt  0.0
4 expG  0.0
5 expD  0.0
6 prbN  0.0
7 prbP  0.0

La première parcelle est:

p <- ggplot(dEQ, aes(lab, perc)) + 
     xlab(xlabel) + ylab(ylabel) +
     geom_bar(stat="identity", colour="blue", fill="darkblue")  + 
     geom_text(aes(vecX, vecYEQ+1.5, label=vecYlbEQ), data=dEQ, size=8.5)  + 
     theme_bw() +
     opts(axis.text.x = theme_text(size = 20, face = "bold", colour = "black")) +
     opts(axis.text.y = theme_text(size = 20, face = "bold", colour = "black")) +
     coord_flip() + 
     scale_y_continuous(breaks=c(0,10,20,30,40,50,60),
                        labels=c("0","","20","","40","","60"), 
                        limits = c(0, 64), expand = c(0,0))
print(p)

mais je veux overplot avec un autre geom_bar de données.cadre LMD

ggplot(LMD, aes(lab, perc)) + 
    geom_bar(stat="identity", colour="blue", fill="red", add=T)

et je veux avoir une légende.

Il n'y a aucune raison valable de ne pas combiner les deux jeux de données avant la ggplot commande?

OriginalL'auteur Tali | 2011-11-15

  1. 20

    voici un exemple:

    p <- ggplot(NULL, aes(lab, perc)) + 
  geom_bar(aes(fill = "dEQ"), data = dEQ, alpha = 0.5) +
  geom_bar(aes(fill = "LMD"), data = LMD, alpha = 0.5)
p

    Comment superposer deux geom_bar?

    mais je recommande de rbind et de l'intrigue, il en esquivant:

    dEQ$name <- "dEQ"
LMD$name <- "LMD"
d <- rbind(dEQ, LMD)
p <- ggplot(d, aes(lab, perc, fill = name)) + geom_bar(position = "dodge")

    Comment superposer deux geom_bar?

    vous pouvez déplacer le esquivé les données ci-dessus les uns des autres? comme un négatif de la distance entre les deux types de barres?
    Vous pouvez le faire avec position = "stack".

    OriginalL'auteur kohske