如何使用geom_text在geom_bars上方添加唯一问题文本？

要实现每个问题（Mittari分组）仅显示一次文本，核心是给geom_text提供每个问题仅出现一次的数据集，避免原数据中两次评估的重复记录导致文本重复。具体步骤如下：

1. 准备文本专用数据集 #

先基于原数据生成每个Mittari唯一的记录，同时设置文本的显示位置（比如对应问题的最高柱状条上方，加少量偏移避免重叠）：

library(dplyr)

# 定义自定义标签（和原代码中的custom_labels对应）
custom_labels <- c(
  "onn" = "幸福感评估",
  "pkm" = "通勤体验评估",
  "tyy" = "团队氛围评估",
  "yk" = "个人认可度评估"
)

# 生成文本数据：按Mittari分组，取每组最高value加偏移，绑定对应标签
text_data <- plot_data %>%
  group_by(Mittari) %>%
  summarise(
    max_y = max(value) + 0.03, # 偏移量可按需调整，控制文本与柱子的距离
    label = custom_labels[Mittari]
  )

2. 修改ggplot中的geom_text部分 #

替换原有的geom_text，指定专用的文本数据集，去掉不必要的position="dodge"，并调整位置参数：

ggplot(plot_data, aes(x = Mittari, y = value, fill = Arviointi)) +
  geom_bar(stat = "identity", position = position_dodge2(reverse = TRUE), width = 0.45, alpha = 1) +
  geom_errorbar(aes(ymin = Kansallinen, ymax = Kansallinen, group = Arviointi, width = 0.45), 
                position = position_dodge2(reverse = TRUE)) +    
  # 替换为专用文本数据，仅显示一次标签
  geom_text(data = text_data, aes(x = Mittari, y = max_y, label = label), 
            hjust = -0.1, colour = "black", size = 4) +
  scale_fill_manual(values = c("steelblue", "darkorange")) +
  scale_color_manual(values = c("steelblue", "darkorange")) +
  theme_minimal() +
  coord_flip() +
  scale_y_continuous(labels = scales::percent_format(scale = 100), minor_breaks = NULL) +
  scale_x_discrete(labels = custom_labels) +
  labs(y = " ", x= " ")

关键说明 #

• 专用数据集text_data确保每个Mittari仅对应一条文本记录，从根源避免重复显示。
• max_y的偏移量（比如+0.03）可以根据图表范围调整，让文本刚好在柱子上方不重叠。
• 因为用了coord_flip()，hjust参数控制文本的水平位置（相对于柱子），hjust=-0.1会让文本向右远离柱子，你可以根据需求调整为0（对齐柱子右侧）或更大的负数让文本更远。

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