Gestapeltes Balkendiagramm mit angegebenen Fehlerbalkenwerten in R

Question

erstellen

Ich versuche ein gestapeltes Balkendiagramm in R mit Fehlerbalken für einen Wert zu erstellen, den ich vordefinieren, aber nicht berechnen möchte, aber jeder Balken hat einen anderen Wert.

Zum Beispiel, wenn mein Datenrahmen ist:

x<-data.frame(
    Period = c("B1","D1a"), 
    Sample = c("Glucose","Glucose"), 
    Mi = c(2,3), 
    M0 = c(4,6) 
) 

ich die Bar Plot machen kann ich mit diesem Code benötigen:

mx <- melt(x, id.vars=1:2) 
ggplot(mx, aes(x=Period, y=value, fill=variable), xLabels=NA) + 
    geom_bar(stat="identity") + 
    facet_grid(~Sample) + 
    scale_fill_manual(values = c("grey69","black")) + 
    theme_bw() + 
    xlab("") + 
    ylab ("") 

Wie füge ich eine Fehler bar für jeden , wenn meine Konfidenzintervalle für jeden B1 sind, Mi = 0,5, B1, M0 = 0,2, D1a, Mi = 0,1, D1a, M0 = 0,2

Wie kann ich Fehlerbalken auf jedem der Abschnitte des Balkens machen Diagramm?

Dank

Answer 1

Fügen Sie zuerst die oberen und unteren Grenzen zu Ihrem mx Datenrahmen:

library(dplyr) 
mx <- mx %>% group_by(Period) %>% 
    mutate(pos = cumsum(value)) %>% 
    ungroup() %>% 
    mutate(ci = c(.5, .1, .2, .2), 
     upper = pos + ci/2, 
     lower = pos - ci/2) 

Dann ein geom_errorbar zu Ihrem Grundstück hinzu:

ggplot(mx, aes(x=Period, y=value, fill=variable), xLabels=NA) + 
    geom_bar(stat="identity") + 
    geom_errorbar(aes(ymin = lower, ymax = upper), width = .2, col = "red") + 
    facet_grid(~Sample) + 
    scale_fill_manual(values = c("grey69","black")) + 
    theme_bw() + 
    xlab("") + 
    ylab ("")