使用ggplot2绘制瀑布图时无法正确添加数据标签

看起来你的瀑布图标签位置跑偏了，这在新手画瀑布图时挺常见的——核心原因通常是没给标签设置正确的基准位置（毕竟瀑布图的柱子不是从0开始的，是基于前一个柱子的终点来画的）。我先帮你补全并修正代码，一步步来：

第一步：补全数据预处理（计算累计位置） #

你的代码已经做了基础分类，但还缺瀑布图最关键的「累计起始/结束位置」计算。先把这部分补上：

library(ggplot2)

# 补全你的原始数据
dataset <- data.frame(
  TotalHeadcount = c(-417, -12, 276, -276, 787, 14),
  Category = LETTERS[1:6]
)

# 保持分类顺序（你原来的代码逻辑没问题）
dataset$SortedCategory <- factor(dataset$Category, levels = dataset$Category)
dataset$id <- seq_along(dataset$TotalHeadcount)
dataset$type <- ifelse(dataset$TotalHeadcount > 0, "in", "out")

# 关键：计算每个柱子的起始(y_start)和结束(y_end)位置
dataset$y_end <- cumsum(dataset$TotalHeadcount)
dataset$y_start <- c(0, head(dataset$y_end, -1))

第二步：修正标签位置 #

现在标签的位置要根据柱子的起始和结束来定，这里给你两种常用方案：

方案1：标签居中（最稳妥） #

用y = y_start + TotalHeadcount/2来定位，不管柱子是向上还是向下，标签都稳稳落在柱子中间：

ggplot(dataset, aes(x = SortedCategory)) +
  # 绘制瀑布柱子
  geom_col(aes(y = TotalHeadcount, ymin = y_start, ymax = y_end, fill = type), width = 0.7) +
  # 添加居中的 data label
  geom_text(aes(y = y_start + TotalHeadcount/2, label = TotalHeadcount), 
            color = "white", fontface = "bold") +
  # 美化样式（可选）
  scale_fill_manual(values = c("in" = "#2ecc71", "out" = "#e74c3c")) +
  labs(title = "Headcount Change Waterfall Chart", x = "Category", y = "Headcount") +
  theme_minimal()

方案2：正负标签分别在顶部/底部 #

如果想让正数标签在柱子顶部、负数标签在柱子底部，可以用ifelse动态调整y值和对齐方式：

ggplot(dataset, aes(x = SortedCategory)) +
  geom_col(aes(y = TotalHeadcount, ymin = y_start, ymax = y_end, fill = type), width = 0.7) +
  geom_text(aes(
    y = ifelse(TotalHeadcount > 0, y_end, y_start),
    label = TotalHeadcount,
    vjust = ifelse(TotalHeadcount > 0, 1.2, -0.2) # 控制标签和柱子的间距
  ), fontface = "bold") +
  scale_fill_manual(values = c("in" = "#2ecc71", "out" = "#e74c3c")) +
  labs(title = "Headcount Change Waterfall Chart", x = "Category", y = "Headcount") +
  theme_minimal()

为什么你的标签位置不对？ #

大概率是你直接把标签的y值设成了TotalHeadcount，但瀑布图的柱子是基于累计位置绘制的，不是从0开始的——所以标签会跟着跑到0基准的位置，自然就和柱子错位了。必须用计算好的y_start和y_end来定位标签，才能和柱子完美对齐。

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