ggplot2实现分类值与自定义色值跨图固定映射的颜色不匹配问题

颜色匹配错位的核心原因有两点：

• 构建命名色向量mycols时，sl$class列存在NA值，直接作为向量名赋值后，对应原本分配给NA分类的色值#FB9A99因为没有有效名称，无法被ggplot的分类匹配机制识别
• ggplot对缺失值类别的填充映射独立于values参数，默认用灰色作为NA类别的填充色，不会自动关联values里的对应值
  这种错位很容易造成视觉误判：当NA对应的柱形显示为默认灰色，和预期的浅粉色#FB9A99差异极大时，很容易连带觉得前面所有分类的颜色都和定义不符。

1. 补全色向量的无效名称
   把原始class列里的NA值替换为可识别的普通字符串，避免向量名出现NA：

sl_clean <- sl
# 将原NA分类替换为明确标签
sl_clean$class[is.na(sl_clean$class)] <- "未分类"
# 构建无无效命名的色值向量
mycols <- sl_clean$hex
names(mycols) <- sl_clean$class

2. 使用修正后的色向量绘图
   此时class列没有NA值，ggplot会严格按照名称匹配色值：

ggplot(sl_clean) +
  geom_col(aes(x = x, y = 1, fill = class)) +
  scale_fill_manual(values = mycols) +
  geom_text(aes(x = x, y = 0.5, label = class), angle = 90)

如果不想修改原始数据集，也可以仅修正色向量的命名逻辑，在scale中显式定义NA类别的标签和颜色：

# 处理色向量命名，不修改原始sl
class_labels <- sl$class
class_labels[is.na(class_labels)] <- "未分类"
mycols <- sl$hex
names(mycols) <- class_labels
ggplot(sl) +
  geom_col(aes(x = x, y = 1, fill = class)) +
  scale_fill_manual(
    values = mycols,
    # 显式定义分类顺序和标签
    breaks = c(setdiff(unique(sl$class), NA), NA),
    labels = c(setdiff(unique(sl$class), NA), "未分类")
  ) +
  geom_text(aes(x = x, y = 0.5, label = ifelse(is.na(class), "未分类", class)), angle = 90)

修正后所有柱形的填充色会和tibble内记录的hex值严格对应，包括：

• translational slide 对应#c23b22（暗调浅红色）
• 原NA分类对应#FB9A99（浅粉色）
  不会再出现错位问题。
  内容的提问来源于stack exchange，提问作者Robin Kohrs