如何在ggplot堆叠填充柱状图中添加唯一分组标签并去重

1. 先处理数据：算出标签的正确位置 #

堆叠柱的标签要放在每个猎物块的中心，得先按月份分组，计算每个猎物占比的累计中间值，用dplyr就能搞定：

library(tidyverse)

# 模拟和你数据结构一致的示例数据（直接替换成你的真实数据就行）
set.seed(123)
df <- tibble(
  month = rep(c("1月", "2月", "3月", "4月"), each = 8),
  prey_name = rep(paste0("猎物", 1:8), 4),
  biomass_prop = runif(32, 0.01, 0.2) %>% round(2)
) %>% 
  group_by(month) %>% 
  mutate(
    # 计算每个堆叠块的垂直中心位置
    cum_prop = cumsum(biomass_prop) - biomass_prop/2,
    # 可选：过滤掉占比太小的标签，避免挤成一团
    label = ifelse(biomass_prop > 0.03, prey_name, "")
  ) %>% 
  ungroup()

这里核心是cum_prop的计算：用累计占比减去当前占比的一半，刚好就是每个块的中心位置，不会偏上偏下。

2. 绘制带正确标签的堆叠柱状图 #

用ggplot2绘图，geom_col做堆叠柱，geom_text用刚才算好的cum_prop当y轴位置，确保每个标签对应正确的猎物块：

ggplot(df, aes(x = month, y = biomass_prop, fill = prey_name)) +
  geom_col(position = "stack", width = 0.7) +
  # 添加标签，参数按需调整
  geom_text(aes(y = cum_prop, label = label), 
            size = 3,
            angle = 45, # 倾斜标签减少重叠
            color = "black",
            position = position_stack(vjust = 0.5)) + # 和堆叠柱严格对齐
  labs(title = "成年YP胃内猎物生物量占比",
       x = "月份",
       y = "生物量占比",
       fill = "猎物种类") +
  theme_minimal() +
  theme(axis.text.x = element_text(size = 10),
        legend.position = "right")

3. 常见问题的快速解决 #

• 标签重复：检查原始数据有没有重复行，或者geom_text有没有正确绑定prey_name分组。确保数据处理时是按月份分组计算的，不要跨组累加。
• 标签重叠：除了调整角度、大小，还可以用ggrepel包的geom_text_repel自动避开重叠，代码如下：

  library(ggrepel)
  ggplot(df, aes(x = month, y = biomass_prop, fill = prey_name)) +
    geom_col(position = "stack", width = 0.7) +
    geom_text_repel(aes(y = cum_prop, label = label),
                    size = 3,
                    color = "black",
                    position = position_stack(vjust = 0.5),
                    force = 1) # 数值越大，排斥力度越强
  

• 图表错乱：确认group_by(month)这一步没写错，cum_prop的计算必须是每个月份内的猎物占比累加，不能把不同月份的数据混在一起算。

核心注意点 #

• 绝对不能直接用原始的biomass_prop当标签的y值，不然所有标签都会堆在柱形底部。
• 过滤小占比分组是减少拥挤最有效的办法，没必要显示占比极低的猎物标签。
• 一定要加position = position_stack(vjust = 0.5)，保证标签和堆叠块完全对齐。

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