如何在ggplot2带负值的堆叠柱状图中为达标高度柱子添加Division标签

嘿，这个需求我之前实操过，给你拆解成一步步的具体操作，保证能搞定：

首先得先拿到每个堆叠柱子的顶部坐标，还要判断这个柱子的高度是否够放标签。咱们用模拟数据举例子，你可以替换成自己的真实数据：

library(ggplot2)
library(dplyr)

# 模拟带正负值的堆叠数据
set.seed(123)
df <- tibble(
  Division = rep(c("Div A", "Div B", "Div C"), each = 3),
  Category = rep(c("Cat 1", "Cat 2", "Cat 3"), 3),
  Value = c(rnorm(3, 10, 2), rnorm(2, -8, 2), rnorm(1, 15, 2), rnorm(3, 5, 2))
)

# 计算每个部门堆叠柱子的顶部累计值，同时设置显示标签的阈值（这里设为5）
df_label <- df %>%
  group_by(Division) %>%
  mutate(cum_value = cumsum(Value)) %>%  # 计算堆叠累计值
  slice(n()) %>%  # 取每个部门的最后一行，也就是柱子顶部的位置
  ungroup() %>%
  mutate(show_label = abs(cum_value) > 5)  # 只有高度绝对值超过5才显示标签

接下来用ggplot画堆叠柱状图，然后通过geom_text()只给符合条件的柱子加标签，还要根据正负值调整标签位置，避免和柱子重叠：

ggplot(df, aes(x = Division, y = Value, fill = Category)) +
  geom_col(position = "stack") +  # 画堆叠柱状图
  # 只给满足show_label条件的柱子加标签
  geom_text(
    data = df_label %>% filter(show_label),
    aes(x = Division, y = cum_value, label = Division),
    # 正值柱子标签放上方，负值放下方，避免重叠
    vjust = ifelse(df_label$cum_value > 0, -0.5, 1.5),
    fontface = "bold",
    color = "darkslategray"
  ) +
  labs(title = "带条件标签的堆叠柱状图（含负值）", x = "部门", y = "数值") +
  theme_minimal()

• 累计值计算：堆叠柱子的顶部位置是该分组所有数值的累计和，所以用cumsum()后取每个分组的最后一行数据，就能拿到准确的y坐标。
• 阈值调整：你可以根据自己的图表密度调整abs(cum_value) > 5里的5，数据范围大就设大一点，小就设小一点，确保标签不会挤在一起。
• 位置微调：vjust的参数可以根据实际情况调整，比如正值的vjust=-0.3会更靠近柱子，负值的vjust=1.2也可以，只要不重叠就行。

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