如何在R的ggplot2水平条形图内部添加标签？

要把标签放在水平条形内部，只需调整geom_text的对齐参数与位置偏移，具体修改如下：

1. 替换对齐参数：水平条形图中，需用hjust = 1实现标签左对齐，让文字贴在条形的右侧内部（对应x轴数值方向的内侧），原代码的vjust是垂直对齐参数，对水平条形图不适用。
2. 添加位置偏移：给标签的x坐标设置小偏移（比如x = enrollments - 500），避免标签紧贴条形边缘，提升可读性。
3. 优化文字颜色：如果条形填充色较深，将标签设为白色（color = "white"），确保文字清晰可见。

修改后的完整代码：

library(ggplot2)

ggplot(below_mean_above_eta_pos_synergy, aes(x=enrollments, y=course_code, fill = type)) + 
  geom_bar(stat = "identity") +
  ggtitle("Below average courses, high interaction rate, positive synergy") +
  xlab("Enrollments") + ylab("Courses")+guides(fill=guide_legend(title="Course Category")) +theme(plot.title = element_text(face="bold")) +
  # 调整后的geom_text参数
  geom_text(aes(label=enrollments, x = enrollments - 500), 
            hjust = 1, position = position_dodge(0.9), 
            size = 3, color = "white") +
  theme(axis.text.x = element_text())

补充说明 #

• 如果调整过geom_bar的width参数，position_dodge的数值要和宽度保持一致（默认宽度为0.9，所以当前设置匹配）。
• 偏移量500可根据x轴数值范围灵活调整，确保标签完全处于条形内部。

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