在堆积条形图上注释组

Question

在这个堆叠条形图示例中，我如何在条形本身的顶部添加“除法”标签？

ggplot2 and a Stacked Bar Chart with Negative Values

我只想为带有空格的值显示它（不想过度拥挤图形），所以也许这可以通过最小条形高度来实现。我怎么能只为最小高度的条做呢？

谢谢！

Answer 1

您可以使用带有check_overlap 参数的geom_text()——参见?geom_text()：

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)

ggplot(dat, aes(x = Year, y = OperatingIncome, fill = Division)) +
  geom_col() +
  geom_text(aes(label = Division), 
            position = position_stack(vjust = 0.5),
            check_overlap = TRUE)

但是，在示例中，您会看到标签没有重叠。