R语言：堆叠条形图误差线位置错误及转长格式堆叠失效求助

你的代码里给误差线用了position_dodge(.05)，但堆叠条形图的误差线需要对应堆叠后的位置，而非并排偏移。正确做法是先计算每个分组的堆叠累计y值，再基于累计值绘制误差线：

1. 预处理数据，计算堆叠累计值：

library(dplyr)
BTNOAG <- BTNOAG %>%
  group_by(ele) %>%
  arrange(desc(LiveDead)) %>% # 按堆叠顺序排序，比如让Dead在下方、Live在上方
  mutate(
    cum_biomass = cumsum(Biomass),
    cum_ymin = cum_biomass - STE,
    cum_ymax = cum_biomass + STE
  ) %>%
  ungroup()

2. 修改绘图代码，用累计值绘制误差线：

ggplot(data=BTNOAG, aes(x=ele, y=Biomass, group = LiveDead)) +
  geom_bar(aes(fill=LiveDead), position='stack', stat="identity", width=0.75) +
  geom_errorbar(
    aes(ymin=cum_ymin, ymax=cum_ymax), 
    position = position_stack(vjust=0.5), # vjust调整误差线垂直居中
    width = 0.2
  ) +
  theme_bw(base_size=16)

你在geom_errorbar中使用了position_dodge，这个参数会强制元素并排，直接破坏了堆叠逻辑。同时要确保长格式转换时，每个类别（Live/Dead）对应正确的误差值：

1. 修正长格式数据转换（假设原数据中Live对应STELive、Dead对应STEDead）：

BTNOAG_long <- BTNOAG %>%
  pivot_longer(
    cols = matches("^(Live|Dead)$|^STE(Live|Dead)$"),
    names_to = c(".value", "Status"),
    names_pattern = "(STE)?(Live|Dead)"
  )

2. 计算堆叠累计值并绘图：

BTNOAG_long <- BTNOAG_long %>%
  group_by(ele, Species) %>%
  arrange(desc(Status)) %>%
  mutate(
    cum_value = cumsum(Value),
    cum_ymin = cum_value - STEL,
    cum_ymax = cum_value + STEL
  ) %>%
  ungroup()

ggplot(data = BTNOAG_long, aes(x = ele, y = Value, fill = Status)) +
  geom_bar(stat = "identity", position = "stack", width = 0.75) +
  geom_errorbar(
    aes(ymin = cum_ymin, ymax = cum_ymax),
    position = position_stack(vjust=0.5),
    width = 0.2
  ) +
  facet_wrap(~Species) +
  labs(title = "Biomass by ele",
       x = "ele",
       y = "Biomass",
       fill = "Status") +
  theme_minimal()

核心注意点：

• 堆叠条形图的误差线绝对不能用position_dodge，必须基于堆叠后的累计y值，搭配position_stack使用
• 长格式转换时要保证每个类别和对应的误差值一一匹配，避免误差线错位

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