在ggplot2水平堆叠条形图中正确显示数据值及添加额外文本

一、修正堆叠条形图的数据值位置 #

你的代码里用了position_dodge()，这是分组条形图的位置调整方式，堆叠条形图需要用position_stack()让文本落在每个堆叠块内部（居中或指定位置）。结合coord_flip()的翻转效果，调整代码如下：

il <- ggplot(p11, aes(x = question, y = q.int.local))+
  geom_col(aes(fill = knowledge), width = 0.7)+ 
  coord_flip()+
  scale_fill_manual(values = c("#CA463F", "#E2CA58", "#B0D094", "#67BBD2", "#3C518F"))+
  # 改用position_stack，vjust=0.5让文本在堆叠块垂直居中（翻转后对应水平居中）
  geom_text(aes(label = q.int.local), color="white", size=2, 
            position = position_stack(vjust = 0.5))

如果想让文本靠近堆叠块外侧（翻转后右侧），可调整vjust为0.8；若要靠近内侧，设为0.2即可。

二、添加额外文本到指定条形 #

如果要在特定条形上添加自定义文本，可通过新增geom_text()实现，分两种场景：

方法1：直接指定固定位置 #

比如在question="Q1"的条形外侧添加文本"总占比100%"：

il <- il +
  geom_text(
    aes(x = "Q1", y = sum(q.int.local[question=="Q1"]), label = "总占比100%"),
    color = "black", size = 3, hjust = -0.1 # hjust=-0.1让文本在条形外侧
  )

方法2：用额外数据框批量添加 #

若需添加多个自定义文本，先创建包含位置和文本的数据框：

extra_text <- data.frame(
  question = c("Q1", "Q3"), # 指定要添加文本的question
  y = c(105, 110), # 翻转后y对应水平位置，设为略大于条形总长的数值，让文本在外侧
  label = c("重点关注", "数据异常")
)

il <- il +
  geom_text(
    data = extra_text,
    aes(x = question, y = y, label = label),
    color = "red", size = 3, hjust = 0
  )

补充说明 #

因为用了coord_flip()，x和y轴方向互换，所以调整文本位置时，hjust控制垂直方向对齐，vjust控制水平方向对齐，可根据实际效果微调参数。如果堆叠数值是百分比（总和为100），也可以用position_fill()替代position_stack()，此时y值会归一化到0-1区间，vjust参数同样适用。

内容的提问来源于stack exchange，提问作者user21870290