ggplot颜色刻度问题：如何跳过离散颜色刻度中的第一个颜色？

制作带离散颜色刻度的图表时，若第一个类别缺失，颜色匹配会失效。例如：

• 原图表中，类别A对应浅蓝色，类别B对应深蓝色；
• 将A替换为C后，新图表里的B不再显示为深蓝色，而是被分配了调色板的第一个颜色。

核心思路是手动指定每个类别与颜色的固定映射，而非依赖ggplot自动按当前数据的类别顺序分配颜色。具体步骤如下：

1. 先确定目标调色板（这里用Paired）的颜色序列，为所有可能的类别绑定固定颜色；
2. 使用scale_fill_manual()替代scale_fill_brewer()，传入预定义的颜色映射。

if (!require("pacman")) install.packages("pacman")
pacman::p_load('tidyverse', 'RColorBrewer')

# 定义原始数据
first_column <- c("value_1", "value_3", "value_2")
second_column <- c("A", "B", "C", "D", "A", "B", "C", "D")
freq <- c(23, 41, 32, 58, 11, 16, 19, 38)
df2 <- data.frame(first_column, second_column, freq)

# 预定义所有类别的颜色映射（对应Paired调色板的前4种颜色）
color_map <- c(
  "A" = brewer.pal(4, "Paired")[1],  # 浅蓝色
  "B" = brewer.pal(4, "Paired")[2],  # 深蓝色
  "C" = brewer.pal(4, "Paired")[3],  # 浅绿色
  "D" = brewer.pal(4, "Paired")[4]   # 深绿色
)

# 原始图表：颜色按映射匹配
ggplot(df2, aes(x = first_column, y = freq, fill = second_column)) +
  geom_bar(stat = "identity") +
  scale_fill_manual(values = color_map)

# 修改后的数据：将A替换为C
df3 <- df2
df3$second_column <- ifelse(df3$second_column == "A", "C", df3$second_column)

# 修改后的图表：B依然保持深蓝色
ggplot(df3, aes(x = first_column, y = freq, fill = second_column)) +
  geom_bar(stat = "identity") +
  scale_fill_manual(values = color_map)

• 如果需要保留图例中所有类别（包括缺失的A），可以在scale_fill_manual()中添加drop = FALSE参数；
• 若后续有新类别，只需在color_map中添加对应的颜色即可，无需修改绘图逻辑。

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