在堆积的条形图上注释组

Question

我怎样才能添加＆＃34; Division＆＃34;在这个堆积条形图的例子中，条形图本身顶部的标签？

ggplot2 and a Stacked Bar Chart with Negative Values

我只想展示它的空间值（不要过分拥抱图形），所以也许这可以用最小的条形高度来实现。我怎么能只为那个最小高度的酒吧做呢？

谢谢！

Answer 1

您可以使用geom_text()参数附带的check_overlap - 请参阅?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)

但是，在示例中，您将看到标签不重叠。