在 R 的堆积条形图上添加类别标签

Question

我在 ggplot2 中制作了一个geom_col()图表，我想在条形图上添加标签，但每个堆叠条形图只有一个。 这是我的图表没有标签的样子：

gI <- df %>% 
  ggplot(aes(fill = Category, y=csum, x= tijdas)) +
  geom_col()
plot(gI)

现在是棘手的部分。 每个堆叠条都有一个特定的 Meeting_type，我想将它添加到 plot。 我试过添加

geom_text(aes(label = Meeting_Type), position = position_dodge(width=0.9), vjust=-0.25)

但这导致每个条形图中每个类别的 label （所以很多文字）：

我希望每个（堆叠的）条形图中只有一个 label 来指示 Meeting_type。 最好放在可读的地方。

Answer 1

在没有查看数据的情况下很难知道最佳方法，但是用 geom_text 代替geom_text可能是对每一列求和以获得 label 的stat_summary的好方法：

library(ggplot2)
library(dplyr)

mtcars %>% 
  ggplot(aes(factor(cyl), y = mpg, fill = factor(gear))) +
  geom_col() +
  stat_summary(aes(label = factor(cyl), fill = NULL),
               fun = sum, 
               geom = "text", vjust = -0.25)

^{由代表 package (v0.3.0) 于 2020 年 12 月 15 日创建}

正如我所说，您的数据可能需要不同的 function - 如果这不是解决方案，请使用dput发布示例，我们将看看是否可以使其适用于您的数据。