used - ggplot bar graph by group

ggplot2 y un gráfico de barras apiladas con valores negativos

Question

Dado el siguiente conjunto de datos:

 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

¿Cómo completo un gráfico de barras apiladas en ggplot2 que incluye los valores negativos? Aquí está la secuencia de gráficos básicos que estoy usando:

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

Esto devuelve un error:

Mensaje de advertencia: el apilamiento no está bien definido cuando ymin! = 0

Y en lugar del resultado esperado (los valores negativos se muestran debajo del eje X), simplemente no están presentes en el gráfico de barras apiladas. ¿Hay alguna manera de producir el cuadro con todos los valores, tanto positivos como negativos, contabilizados?

Answer 1

Actualización : a partir de ggplot2 2.2.0, el apilamiento para valores negativos se maneja automáticamente, sin tener que crear capas separadas para los valores positivos y negativos.

Si entiendo lo que está buscando, el truco es poner los dos datos positivos y negativos en capas separadas, y también usar stat = "identity" :

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)