facet_wrap堆叠柱状图中geom_text的位置调整问题

问题场景 #

在ggplot2绘制带facet_wrap的堆叠柱状图时，需要仅在每个分面的年份“22”对应的「Realschule」绿色分组中心添加文本标签，但现有代码无法实现准确定位。

问题原因 #

当前代码中geom_text使用了position_stack(vjust=0.5)，但由于过滤后的数据仅包含Realschule组，position_stack无法获取该组在堆叠结构中下方其他组的累计值，导致标签位置计算错误。

解决方法 #

提前计算每个分面、年份“22”下Realschule组的堆叠中心位置：先统计该组下方所有分组的Anteil总和，再加上自身Anteil的一半，以此作为标签的y轴坐标。

修改后的完整代码 #

library(dplyr)
library(ggplot2)

# 预处理数据，计算Realschule组的堆叠中心y值
text_data <- data %>%
  filter(year == "22") %>%
  # 按分面和年份分组，计算每个分组的累计Anteil（从下往上堆叠）
  group_by(Name, year) %>%
  # 注意：这里需要确保Empfehlung的顺序和堆叠顺序一致
  arrange(Empfehlung) %>%
  mutate(cum_anteil = cumsum(Anteil)) %>%
  filter(Empfehlung == "Realschule") %>%
  # 计算中心位置：下方累计值 + 自身Anteil的一半
  mutate(y_pos = cum_anteil - Anteil / 2) %>%
  ungroup()

p2 <- ggplot() +
  geom_bar(
    data = data, 
    aes(fill = Empfehlung, y = Anteil, x = year), 
    position = 'stack', stat = 'identity') +
  facet_wrap(Name~ ., ncol = 3) +
  labs(
    title = "Einzelbetrachtung",
    x = "",
    y = "",
    fill = ""  
  ) +
  scale_y_continuous(labels = function(x) format(x, big.mark = ".")) + 
  scale_fill_manual(values = farben) +
  theme_minimal() +
  theme(
    legend.position='none',
    axis.text.x = element_text(size = 9, face = "bold"),
    axis.text.y = element_blank(),
    strip.text = element_text(face = "bold", size = 9.0)
  ) +
  geom_text(
    data = text_data,
    aes(x = year, y = y_pos, label = paste0(format(Anteil, nsmall = 1), "")),
    size = 2.5, color= "black")

关键说明 #

• 数据预处理：通过group_by(Name, year)按分面和年份分组，arrange(Empfehlung)确保分组顺序与堆叠顺序一致，cumsum(Anteil)计算累计值。
• 中心位置计算：y_pos = cum_anteil - Anteil / 2得到Realschule组的堆叠中心坐标，避免依赖position_stack的自动计算。
• geom_text参数简化：无需再指定fill和position，直接使用预处理好的y_pos即可准确定位。

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