ggplot中如何调用数据框存储的十六进制颜色码设置填充色

你遇到的渲染异常本质是ggplot的映射逻辑规则：当你把存储十六进制字符串的列直接作为fill美学的映射对象时，ggplot会把这些字符串值视为离散类别的名称，而非可直接解析的色值，因此会按照默认离散色板给每个“类别字符串”分配系统默认颜色，不会把字符串本身的内容识别为对应颜色。

你完全可以通过scale_fill_manual()的参数，直接复用数据框中存储的颜色码实现自定义填充，不需要在函数里硬编码色值，具体实现逻辑如下：

• 调整美学映射的目标：把fill的映射对象从存色值的列，替换为实际的分组变量（本例中为cyl）
• 从处理好的数据框中提取色值列，构造与分组levels一一对应的命名向量，传入values参数完成绑定
• 可根据需要关闭冗余的填充图例

完整可运行代码 #

library(dplyr)
library(ggplot2) # 注：原代码中加载ggplot的写法有误，实际需加载ggplot2包

# 预处理数据，存储十六进制填充色
plot_data <- mtcars %>% 
  mutate(cyl = as.factor(cyl)) %>% 
  count(cyl) %>% 
  mutate(
    fill = case_when(
      cyl == '4' ~ "#0177c9",
      TRUE ~ "#54b709"
    )
  )

# 绘图流程
plot_data %>% 
  ggplot(aes(x = cyl, y = n, fill = cyl)) +
  geom_col() +
  # 直接从数据框提取颜色值，构造分组-色值的映射向量
  scale_fill_manual(
    values = setNames(plot_data$fill, plot_data$cyl)
  ) +
  # 关闭和填充色重复的冗余图例
  guides(fill = "none")

• 上述配置中，values参数接收的命名向量会自动匹配分组的类别值和对应的色值，完全复用数据框中预先存储的十六进制码，不会出现色值和分组错配的问题。
• 如果你不需要用到scale_fill_manual()的全局色值调整、图例定制等扩展能力，也可以在美学映射中通过I()函数将颜色列标记为恒等映射，即写为aes(x = cyl, y = n, fill = I(fill))，此时ggplot会直接读取列内的字符串作为色值渲染图形，不过这种方式无法对接scale_fill_manual()的配置体系。

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