ggplot2堆叠条形图优化：实现标签仅显示一次而非两次

嗨，这个问题很好解决！因为你的观测数量在两个时间点（Main2和Main4）完全一致，我们只需要单独准备一份每个单词唯一的标签数据，然后在绘图时只添加一次标签图层就可以了，不用在每个时间点的图层里重复加标签。

具体步骤： #

1. 准备唯一标签数据集
   从你的原始数据data_words中，提取每个Word对应的观测数量，确保每个单词只保留一行数据。假设你的观测数量列名叫Observation_Count，记得替换成你实际的列名：

   # 加载dplyr（如果没安装先执行install.packages("dplyr")）
   library(dplyr)
   
   label_data <- data_words %>%
     distinct(Word, .keep_all = TRUE) %>%  # 每个Word只保留一行数据
     select(Word, Observation_Count)       # 仅保留需要的单词和数量列
   

2. 修改绘图代码
   保留你原来的两个时间点条形图层不变，新增一个geom_text图层，用上面准备好的label_data添加标签，这样每个单词就只会显示一次数量了。这里假设你是把两个时间点的条形并列展示（如果是堆叠在同一个条形内，调整position参数即可）：

   library(ggplot2)
   
   ggplot() +
     # Main2时间点的堆叠条形
     geom_bar(data = filter(data_words, Time == "Main2"),
              aes(x = Word, y = Score * 100, fill = Cognate),
              stat = "identity", position = "stack") +
     # Main4时间点的堆叠条形，用position_dodge实现并列
     geom_bar(data = filter(data_words, Time == "Main4"),
              aes(x = Word, y = Score * 100, fill = Cognate),
              stat = "identity", position = "stack",
              position_dodge = width = 0.9) +
     # 添加唯一标签，设置在条形顶部上方
     geom_text(data = label_data,
               aes(x = Word, y = max(data_words$Score * 100) * 1.05,  # 顶部位置可按需调整
                   label = Observation_Count),
               vjust = 0, size = 3) +  # 调整垂直对齐方式和字体大小
     # 其他绘图美化设置
     labs(x = "单词", y = "得分 (%)", fill = "同源词") +
     theme(axis.text.x = element_text(angle = 45, hjust = 1))  # 旋转x轴标签避免重叠
   

关键说明： #

• 我们把标签数据和绘图数据分离，确保每个Word只对应一个标签值，从根源避免重复显示。
• 如果想把标签放在条形内部（比如中间位置），只需要调整geom_text里的y参数即可，例如用y = (max(data_words$Score * 100))/2来定位到条形中间。

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