ggplot2 und ein gestapeltes Balkendiagramm mit negativen Werten

Question

Angesichts das folgende Daten-Set:

Division Year OperatingIncome 
1 A 2012   11460 
2 B 2012   7431 
3 C 2012   -8121 
4 D 2012   15719 
5 E 2012    364 
6 A 2011   12211 
7 B 2011   6290 
8 C 2011   -2657 
9 D 2011   14657 
10 E 2011   1257 
11 A 2010   12895 
12 B 2010   5381 
13 C 2010   -2408 
14 D 2010   11849 
15 E 2010    517 

Wie fülle ich ein gestapeltes Balkendiagramm in ggplot2, die die negativen Werte enthalten? Hier ist die grundlegende Grafik-Sequenz Ich verwende:

ggplot(income_m, aes(x=Year, y=OperatingIncome, fill=Division)) + geom_bar() + 
+ scale_fill_brewer(type = "seq", palette = 1) 

Dies gibt einen Fehler zurück:

Warning message: Stacking not well defined when ymin != 0

Und statt des erwarteten Ergebnisses - negative Werte unterhalb der X-Achse angezeigt werden - sie sind einfach nicht vorhanden im gestapelten Balkendiagramm. Gibt es eine Möglichkeit, das Diagramm mit allen positiven und negativen Werten zu erstellen?

Answer 1

aktualisieren: Ab ggplot2 2.2.0, für negative Werte Stapelung erfolgt automatisch, ohne separate Schichten für die positiven und negative Werte erstellen zu müssen.

Wenn ich verstehe, was Sie suchen, ist der Trick, die beiden positiven und negativen Daten in getrennten Schichten zu setzen, und auch stat = "identity" zu verwenden:

dat <- read.table(text = " Division Year OperatingIncome 
1 A 2012   11460 
2 B 2012   7431 
3 C 2012   -8121 
4 D 2012   15719 
5 E 2012    364 
6 A 2011   12211 
7 B 2011   6290 
8 C 2011   -2657 
9 D 2011   14657 
10 E 2011   1257 
11 A 2010   12895 
12 B 2010   5381 
13 C 2010   -2408 
14 D 2010   11849 
15 E 2010    517",header = TRUE,sep = "",row.names = 1) 

dat1 <- subset(dat,OperatingIncome >= 0) 
dat2 <- subset(dat,OperatingIncome < 0) 
ggplot() + 
    geom_bar(data = dat1, aes(x=Year, y=OperatingIncome, fill=Division),stat = "identity") + 
    geom_bar(data = dat2, aes(x=Year, y=OperatingIncome, fill=Division),stat = "identity") + 
    scale_fill_brewer(type = "seq", palette = 1)