如何在不同ggplot柱状图中为同一类别设置一致填充色？

一、单ggplot分面（同时实现X轴排序+颜色一致） #

1. 处理X轴排序 #

如果需要每个分面内的类别按对应数值大小排序，先对数据集按分面变量分组，将Kategorie转换为基于数值降序的有序因子：

library(dplyr)
library(ggplot2)

# 按分面变量分组，给Kategorie按数值降序排序
data_sorted <- your_data %>%
  group_by(你的分面变量) %>%
  mutate(Kategorie = reorder(Kategorie, -你的数值变量)) %>%
  ungroup()

如果需要所有分面使用统一的全局排序（按类别总数值大小），去掉分组步骤直接排序：

data_sorted <- your_data %>%
  mutate(Kategorie = reorder(Kategorie, -你的数值变量, FUN = sum))

2. 确保颜色一致性 #

定义包含所有Kategorie取值的完整颜色向量（命名需与Kategorie的取值完全匹配），绘图时通过limits参数强制ggplot使用完整的颜色映射：

# 示例：包含所有Kategorie的颜色映射
color_vec <- c(
  "1" = "#FF4500", "2" = "#32CD32", "16" = "#1E90FF",
  # 补充其他所有Kategorie的颜色
)

# 分面绘图
ggplot(data_sorted, aes(x = Kategorie, y = 你的数值变量, fill = Kategorie)) +
  geom_col() +
  facet_grid(~你的分面变量) # 或facet_wrap，按需选择
  scale_fill_manual(values = color_vec, limits = names(color_vec)) +
  theme(axis.text.x = element_text(angle = 45, hjust = 1)) # 可选：调整X轴标签角度

二、多ggplot+grid.arrange（保持颜色一致） #

核心是让每个子图共享同一个完整的颜色映射，避免仅根据当前子图的类别自动分配颜色：

library(gridExtra)

# 定义完整的颜色映射（同上文color_vec）
color_vec <- c("1" = "#FF4500", "2" = "#32CD32", "16" = "#1E90FF", ...)

# 子图1：筛选数据+排序X轴
data_sub1 <- your_data %>%
  filter(你的筛选条件1) %>%
  mutate(Kategorie = reorder(Kategorie, -你的数值变量))

p1 <- ggplot(data_sub1, aes(x = Kategorie, y = 你的数值变量, fill = Kategorie)) +
  geom_col() +
  scale_fill_manual(values = color_vec, limits = names(color_vec)) +
  labs(title = "子图1标题")

# 子图2：筛选数据+排序X轴
data_sub2 <- your_data %>%
  filter(你的筛选条件2) %>%
  mutate(Kategorie = reorder(Kategorie, -你的数值变量))

p2 <- ggplot(data_sub2, aes(x = Kategorie, y = 你的数值变量, fill = Kategorie)) +
  geom_col() +
  scale_fill_manual(values = color_vec, limits = names(color_vec)) +
  labs(title = "子图2标题")

# 组合子图
grid.arrange(p1, p2, ncol = 2)

关键总结 #

• 颜色一致性：必须使用包含所有Kategorie取值的完整颜色映射，通过limits = names(color_vec)强制ggplot遵循该映射，避免自动适配子图数据导致的颜色错位。
• X轴排序：通过reorder()将Kategorie转换为有序因子，按需选择分面内排序或全局排序。

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