将计数标签添加到聚类条形图ggplot2

Question

我倾向于为条形图添加标签。我想在此图表中的每个条形旁边添加计数标签，但数字不会放在正确的位置：

这是我的数据（更大数据集的一个子集）：

    max_pooling2d (MaxPooling) (None, 2, 5, 5)      

我尝试使用其他帖子中的geom_text（）建议，但一直得到类似的结果。

代码：

County  Group   Plan1   Plan2
County1 Group3  597     513
County2 Group3  182     130
County3 Group3  180     126
County4 Group3  266     284
County5 Group3  258     171
County6 Group3  159     71
County7 Group3  187     157
County8 Group3  101     84

如何在此图表中正确添加计数标签？感谢您的任何建议/意见！

Answer 1

试试这个：

library(tidyr)

df.g <- gather(df, 
#personal preference: avoid using variable names with spaces; looks cleaner that way.
               key = Plan.Type, 
               value = value, 
               -County, -Group)

ggplot(filter(df.g, Group == "Group3"),
       aes(x = County, y = value, 
           fill = Plan.Type,
           label = value)) +
  geom_col(position = "dodge") +
  geom_text(position = position_dodge(width = 0.9),
            hjust = 0) +
  # + other title / theme options
  coord_flip()