ggplot2问题：负值分类堆叠条形图标签位置与顺序异常

嗨，我明白你在创建发散堆叠条形图时遇到的困扰——负值部分的标签位置不对，堆叠顺序也不符合预期对吧？别担心，咱们一步步来修复这个问题：

首先，先补全并整理你的数据集，确保语义分类的顺序是明确的（我帮你补全了semanticLevels对应的5个分类）：

library(ggplot2)
library(dplyr)

# 补全完整数据集
foo <- data.frame(
  value = 2:6,
  percent = c(-.185, -.074, .148, .074, .518),
  col = c("#EF8A62", "#FDDBC7", "#D1E5F0", "#67A9CF", "#2166AC"),
  set = "Expectations",
  semantic = c("Very Negative", "Negative", "Neutral", "Positive", "Very Positive")
)

# 定义语义分类的顺序
semanticLevels <- c("Very Negative", "Negative", "Neutral", "Positive", "Very Positive")
# 将semantic转为因子，强制指定顺序，避免ggplot按字母排序
foo$semantic <- factor(foo$semantic, levels = semanticLevels)

接下来，问题的核心在于：默认的position_stack()虽然能处理负值堆叠，但标签的位置计算不会自动适配正负方向。我们需要手动计算每个堆叠条形的中点位置，这样标签才能准确落在每个条形的中心：

# 计算累积百分比和标签的y轴位置
foo <- foo %>%
  group_by(set) %>%
  arrange(semantic) %>% # 按我们指定的顺序排列数据
  mutate(
    cum_percent = cumsum(percent), # 计算堆叠的累积位置
    label_y = cum_percent - percent / 2 # 计算每个条形的中点位置
  )

最后，绘制图形，把计算好的label_y作为标签的y轴位置，同时确保颜色和堆叠顺序正确：

ggplot(foo, aes(x = set, y = percent, fill = semantic)) +
  # 绘制堆叠条形
  geom_col(position = "stack", width = 0.7) +
  # 添加百分比标签，用计算好的中点位置
  geom_text(
    aes(y = label_y, label = scales::percent(percent, accuracy = 1)),
    color = "black", size = 3.5
  ) +
  # 绑定你指定的颜色
  scale_fill_manual(values = foo$col, breaks = foo$semantic) +
  # 添加y=0的分隔线，区分正负区间
  geom_hline(yintercept = 0, color = "black", linewidth = 0.8) +
  # 把y轴转为百分比格式，调整范围适配数据
  scale_y_continuous(labels = scales::percent, limits = c(-0.25, 0.6)) +
  # 美化标签和主题
  labs(title = "Expectations: Diverging Stacked Bar Plot", x = "", y = "Percentage") +
  theme_minimal() +
  theme(legend.title = element_blank())

关键修复点说明： #

• 强制分类顺序：把semantic转为因子并指定levels，确保堆叠顺序是你想要的Very Negative → Negative → Neutral → Positive → Very Positive，而不是默认的字母顺序。
• 手动计算标签位置：通过cumsum计算累积百分比，再减去当前百分比的一半，不管是正值还是负值，标签都会精准落在每个堆叠条形的中间。
• 颜色精准映射：用scale_fill_manual绑定你提供的颜色向量，保证每个分类对应正确的颜色。

这样处理后，负值部分的堆叠顺序和标签位置就都正常啦！

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