如何构建适配全正/全负/混合数据的ggplot正负值分色柱状图模板？

这问题我之前踩过坑！核心原因是你原来用change < 0作为填充映射时，当数据里只有TRUE或只有FALSE，scale_fill_manual会按默认因子顺序取颜色，而不是按逻辑值的实际含义匹配。咱们来做一个真正通用的模板，不管输入全正、全负还是混合数据，颜色都能精准对应：

核心思路 #

不用直接映射逻辑值，而是先把数值转换成明确的分类标签（比如"positive"/"negative"/"zero"），然后给每个标签绑定固定的颜色，同时强制声明所有可能的标签类别——这样哪怕数据里没有某个类别，颜色映射关系也不会乱。

通用模板代码（推荐用dplyr处理数据，更清晰） #

# 先加载依赖包（没安装的话先跑 install.packages(c("ggplot2", "dplyr")) ）
library(ggplot2)
library(dplyr)

# 封装成函数，方便复用：传入数据框、x轴列名、y轴列名即可
plot_pos_neg_bar <- function(data, x_col, y_col) {
  # 第一步：给数据添加正负分类标签
  data_processed <- data %>%
    mutate(
      value_type = case_when(
        .data[[y_col]] > 0 ~ "positive",  # 正值标记为positive
        .data[[y_col]] < 0 ~ "negative",  # 负值标记为negative
        TRUE ~ "zero"                     # 零值可选，自定义颜色
      )
    )
  
  # 第二步：画图，关键是用命名颜色+limits固定映射
  ggplot(data_processed, aes(x = .data[[x_col]], y = .data[[y_col]], fill = value_type)) +
    geom_bar(stat = "identity") +
    scale_fill_manual(
      guide = FALSE,  # 隐藏图例，不需要的话可以删掉这行
      values = c(
        "positive" = "red",    # 固定正值为红色
        "negative" = "green",  # 固定负值为绿色
        "zero" = "gray"        # 零值颜色可自定义，不需要就删掉
      ),
      limits = c("positive", "negative", "zero")  # 强制声明所有可能的类别，避免缺失时映射混乱
    ) +
    labs(x = x_col, y = y_col)  # 自动设置轴标签，可选
}

测试三个数据集 #

# 测试data1（全负值）
data1 <- data.frame(group = as.factor(c("all", "men", "women")), change = as.numeric(c(-10000, -6000, -4000)))
plot_pos_neg_bar(data1, "group", "change")  # 所有柱子显示绿色，正确

# 测试data2（混合正负）
data2 <- data.frame(group = as.factor(c("all", "men", "women")), change = as.numeric(c(2000, 6000, -4000)))
plot_pos_neg_bar(data2, "group", "change")  # 正红负绿，正确

# 测试data3（全正值）
data3 <- data.frame(group = as.factor(c("all", "men", "women")), change = as.numeric(c(10000, 6000, 4000)))
plot_pos_neg_bar(data3, "group", "change")  # 所有柱子显示红色，正确

不用dplyr的base R版本 #

如果不想依赖dplyr，用base R的嵌套ifelse也能实现：

library(ggplot2)

plot_pos_neg_bar_base <- function(data, x_col, y_col) {
  data$value_type <- ifelse(
    data[[y_col]] > 0, "positive",
    ifelse(data[[y_col]] < 0, "negative", "zero")
  )
  
  ggplot(data, aes(x = .data[[x_col]], y = .data[[y_col]], fill = value_type)) +
    geom_bar(stat = "identity") +
    scale_fill_manual(
      guide = FALSE,
      values = c("positive" = "red", "negative" = "green", "zero" = "gray"),
      limits = c("positive", "negative", "zero")
    ) +
    labs(x = x_col, y = y_col)
}

为什么原来的代码失效？ #

你原来用fill = change < 0时，逻辑向量会被转换成因子，默认的因子水平是FALSE在前、TRUE在后。当数据全负时，所有值都是TRUE，ggplot只会保留这个因子水平，然后取scale_fill_manual(values = c("red", "green"))的第一个值（红色），这就和预期的绿色相反了。而用命名颜色+limits的方式，不管数据里有没有某个类别，颜色映射都是固定的，彻底解决了这个问题。

内容的提问来源于stack exchange，提问作者r-newbie