R 如何将总计标签包含到已在堆栈中具有数据值的几何图形条形堆叠图中

这是一个后续问题

在下面的图中，我还想包括列总计，例如：第一个堆栈应显示总计963（168+259+226+340）：

---

Year您必须创建另一个汇总表（每年的频率总和），并将其添加到绘图中，作为另一个
geom_text
图层，其中
vjust
>1位于条形图上方

dfSum <- aggregate(Data$Frequency, list(Data$Year), sum)
ggplot(Data, aes(Year, Frequency, fill = Category, label = Frequency)) +
    geom_bar(stat = "identity") +
    geom_text(size = 3, position = position_stack(vjust = 0.5)) +
    geom_text(aes(Group.1, x, label = x), dfSum, inherit.aes = FALSE,
              position = position_stack(vjust = 1.05))

dfSum是的，但是对于我正在处理的绘图，我需要使用“堆叠”，因此，
position\u dodge
在这一瞬间对我不起作用
dfSum <- aggregate(Data$Frequency, list(Data$Year), sum)
ggplot(Data, aes(Year, Frequency, fill = Category, label = Frequency)) +
    geom_bar(stat = "identity") +
    geom_text(size = 3, position = position_stack(vjust = 0.5)) +
    geom_text(aes(Group.1, x, label = x), dfSum, inherit.aes = FALSE,
              position = position_stack(vjust = 1.05))