Wie zum überlagern von zwei geom_bar?

Ich versuche, overlay-2 die bars von geom_bar abgeleitet aus 2 separaten Daten.frames.

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

und

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

Die erste Handlung ist:

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)

aber ich will overplot mit anderen geom_bar von Daten.Rahmen LMD

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

und ich will eine Legende.

  • Es gibt keinen stichhaltigen Grund, nicht zu kombinieren, die zwei Datensätze vor der ggplot-Befehl?
InformationsquelleAutor Tali | 2011-11-15
  1. 20

    hier ist ein Beispiel:

    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

    Wie zum überlagern von zwei geom_bar?

    aber ich empfehle rbind Sie und zeichnen Sie es durch Ausweichen:

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

    Wie zum überlagern von zwei geom_bar?

    • können Sie verschieben die wich-Daten über jedes andere? wie ein negativer Abstand zwischen den beiden bar-Typen?
    • Sie können tun, dass mit position = "stack".
    InformationsquelleAutor kohske
Schreibe einen Kommentar