如何在ggplot2与ggarrange中创建自定义图例？

要强制显示预设的全部5种颜色对应的图例（哪怕部分类别没出现在绘图数据中），同时兼容ggarrange，核心是强制图例包含所有类别，再结合ggarrange的图例控制功能，具体方案如下：

1. 定义完整颜色映射 #

先从你的chart数据框中提取所有预设的颜色与类别对应关系，确保后续绘图能调用完整的配色：

# 假设chart数据框包含category（类别文本）和color（对应颜色值）两列
full_color_map <- setNames(chart$color, chart$category)

2. 单图强制显示完整图例 #

在绘图时，通过scale_color_manual（或scale_fill_manual，根据你的绘图类型）的limits参数指定所有类别，强制图例显示全部项：

library(ggplot2)

# 示例：只用到部分类别的绘图
plot1 <- ggplot(
  data = subset(chart, category %in% c("类别1", "类别2")),
  aes(x = x_var, y = y_var, color = category)
) +
  geom_point(size = 3) +
  # 关键：limits指定所有类别，values用完整颜色映射
  scale_color_manual(values = full_color_map, limits = names(full_color_map))

3. 结合ggarrange实现多图共享完整图例 #

如果需要用ggarrange组合多个子图，有两种常用方式：

方式一：共享统一图例 #

确保每个子图都使用上述带limits的颜色刻度，然后通过common.legend参数让所有子图共享完整图例：

library(ggpubr)

# 第二个示例图
plot2 <- ggplot(
  data = subset(chart, category %in% c("类别3", "类别4")),
  aes(x = x_var, y = y_var, color = category)
) +
  geom_line(size = 1.2) +
  scale_color_manual(values = full_color_map, limits = names(full_color_map))

# 组合子图并共享完整图例
ggarrange(
  plot1, plot2,
  common.legend = TRUE,  # 启用共享图例
  legend = "right",      # 图例位置
  ncol = 2               # 子图排列列数
)

方式二：单独提取完整图例再组合 #

如果子图样式差异大，或需要更灵活的图例布局，可以先创建一个仅包含完整图例的空图，提取图例后再与子图组合：

# 创建空图用于生成完整图例（仅保留图例，去掉其他绘图元素）
dummy_plot <- ggplot(chart, aes(x = 1, y = 1, color = category)) +
  geom_point() +
  scale_color_manual(values = full_color_map) +
  theme_void()  # 清除绘图区域，只留图例

# 提取完整图例
full_legend <- get_legend(dummy_plot)

# 组合子图和图例
ggarrange(
  ggarrange(plot1, plot2, ncol = 2),  # 先组合子图
  full_legend,                        # 加入完整图例
  ncol = 2,                           # 子图+图例分两列排列
  widths = c(3, 1)                    # 调整子图和图例的宽度比例
)

关键说明 #

• limits参数是核心：它会强制ggplot显示指定的所有类别，即使数据中没有对应的观测值
• 确保所有子图使用相同的颜色映射和limits设置，这样共享的图例才会统一且完整
• 如果是填充色（fill）而非轮廓色（color），只需把scale_color_manual替换为scale_fill_manual即可

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