使用scale_fill_discrete()后是否可手动修改条形图的填充颜色？

结论 #

可以通过scale_fill_discrete()实现自定义填充色，同时完全保留你预先设置的分组排序逻辑，不需要调用scale_fill_manual()。

核心实现逻辑 #

scale_fill_discrete()自带palette参数，支持传入自定义调色板函数，直接替换默认的离散颜色映射，不会修改分组变量的因子水平顺序，因此不会影响你预先设置好的条形排序规则。

常用使用方式 #

1. 直接指定自定义颜色向量
   你只需要将和分组水平顺序完全对应的颜色向量包装为匿名函数传入即可，示例代码如下：

# 假设你的分组有3个水平，对应颜色顺序和因子水平顺序一致
scale_fill_discrete(palette = ~c("#FF5733", "#33FF57", "#3357FF"))

2. 调用预设调色板
   如果要使用成熟的官方调色板，可以结合scales包的调色板函数使用：

# 调用RColorBrewer的定性调色板Set1
scale_fill_discrete(palette = scales::brewer_pal(type = "qual", palette = "Set1"))

完整代码示例 #

以下示例基于mtcars数据集，演示了先按数值排序设置分组因子水平，再通过scale_fill_discrete()自定义颜色的全流程：

library(ggplot2)
library(dplyr)

# 预处理数据：按气缸数的平均油耗排序，保证条形顺序符合需求
plot_data <- mtcars %>%
  group_by(cyl) %>%
  summarise(avg_mpg = mean(mpg)) %>%
  # 按平均油耗升序设置气缸的因子水平，保证条形排序正确
  mutate(cyl = factor(cyl, levels = cyl[order(avg_mpg)]))

# 绘图
ggplot(plot_data, aes(x = cyl, y = avg_mpg, fill = cyl)) +
  geom_col(width = 0.7) +
  # 自定义填充色，颜色顺序和cyl的因子水平完全对应
  scale_fill_discrete(
    palette = ~c("#E69F00", "#56B4E9", "#009E73"),
    na.value = "grey50" # 可选：设置缺失值的填充颜色
  )

注意事项 #

• 自定义颜色的数量必须和分组变量的水平数量完全一致，否则会触发颜色循环或者缺失警告
• 颜色向量的顺序必须和你预先设置的分组因子水平顺序一一对应，才能保证每个分组映射到预期的颜色

内容的提问来源于stack exchange，提问作者Giuseppe D'alterio