R-ggplot2柱状图多图场景下固定调色板颜色与取值映射的实现方法

核心逻辑是提前基于全量Diff取值生成带名称映射的全局调色板，不要每次按子图的取值数量动态生成调色板，ggplot会自动按名称匹配颜色，不受子图取值范围影响。

操作步骤 #

1. 基于总览图的全量数据生成全局固定调色板

# 替换total_data为你的总览图对应数据源
all_diff_vals <- unique(total_data$Diff)
# 可选：对取值排序，调色板颜色分布更有规律
all_diff_vals <- sort(all_diff_vals)
# 生成带命名的调色板，名称和Diff取值一一对应
global_fill_palette <- rainbow(length(all_diff_vals), alpha = 1)
names(global_fill_palette) <- as.character(all_diff_vals)

2. 所有子图/总览图的绘图代码直接调用全局调色板即可
   你的原有绘图代码只需修改scale_fill_manual的取值参数：

ggplot(subplot1, aes(x=as.factor(Diff), fill=as.factor(Diff) )) + 
geom_bar( ) +
# 直接引用全局调色板，无需其他修改
scale_fill_manual(values = global_fill_palette) +
geom_text(stat='count', aes(label=..count..), vjust=-1) +
labs(x ="Difference", y = "Count") + 
theme(legend.position="none")

效果说明 #

你提供的示例图如下：

使用该方案后，同一个Diff取值在所有图表中的颜色会完全固定，即使子图缺失部分取值也不会打乱已有取值的颜色映射。后续如果新增Diff取值，只需更新global_fill_palette即可实现全图配色同步更新。

内容的提问来源于stack exchange，提问作者Mr.Spock