用patchwork合并ggplot2重叠值的character图例并保留episode图例

核心思路 #

要合并前3幅图的character图例，关键是让这3幅图使用完全一致的图例尺度（包含所有出现的character值），patchwork会自动识别同名且尺度匹配的图例并合并；第4幅图的episode图例因映射变量不同，默认会独立保留，无需额外修改。同时用patchwork的布局参数替代分面，解决空白过多和缩放问题。

具体步骤与代码 #

1. 统一前3幅图的character图例尺度 #

先提取所有涉及的character值，再给每幅图指定相同的图例范围与名称：

library(ggplot2)
library(patchwork)

# 假设前3幅图对应的数据框为df1、df2、df3
all_chars <- unique(c(df1$character, df2$character, df3$character))

# 给前3幅图统一设置character的图例尺度（以color映射为例，fill映射替换为scale_fill_discrete）
p1 <- p1 + scale_color_discrete(limits = all_chars, name = "Character")
p2 <- p2 + scale_color_discrete(limits = all_chars, name = "Character")
p3 <- p3 + scale_color_discrete(limits = all_chars, name = "Character")

2. 保留第4幅图的独立episode图例 #

第4幅图的episode图例因映射变量与前3幅不同，默认不会被合并，直接保留原有设置即可：

# 示例：第4幅图的创建（无需额外修改图例）
p4 <- ggplot(df4, aes(x, y, fill = episode)) + 
  geom_col() +
  scale_fill_discrete(name = "Episode")

3. 用patchwork组合图表并优化布局 #

通过plot_layout控制图例合并与图表尺寸比例，解决分面的空白和缩放问题：

# 组合前3幅图并合并character图例，再与第4幅图纵向拼接
final_plot <- (p1 + p2 + p3) / p4 +
  plot_layout(
    guides = "collect",  # 合并同名匹配的图例
    heights = c(2, 1)    # 调整前3幅与第4幅的高度比例，解决缩放问题
  ) +
  plot_annotation(theme = theme(legend.position = "bottom"))  # 统一图例位置（可选）

print(final_plot)

完整模拟示例 #

# 模拟测试数据
df1 <- data.frame(x = 1:5, y = rnorm(5), character = c("A", "B", "C"))
df2 <- data.frame(x = 1:5, y = rnorm(5), character = c("B", "C", "D"))
df3 <- data.frame(x = 1:5, y = rnorm(5), character = c("A", "D", "E"))
df4 <- data.frame(x = 1:10, y = rnorm(10), episode = factor(1:2))

all_chars <- unique(c(df1$character, df2$character, df3$character))

# 创建前3幅图
p1 <- ggplot(df1, aes(x, y, color = character)) + geom_point(size = 3) +
  scale_color_discrete(limits = all_chars, name = "Character")
p2 <- ggplot(df2, aes(x, y, color = character)) + geom_point(size = 3) +
  scale_color_discrete(limits = all_chars, name = "Character")
p3 <- ggplot(df3, aes(x, y, color = character)) + geom_point(size = 3) +
  scale_color_discrete(limits = all_chars, name = "Character")

# 创建第4幅图
p4 <- ggplot(df4, aes(x, y, fill = episode)) + geom_col() +
  scale_fill_discrete(name = "Episode")

# 组合并输出
final_plot <- (p1 + p2 + p3) / p4 +
  plot_layout(guides = "collect", heights = c(2, 1)) +
  plot_annotation(title = "Combined Plots with Merged Legends")

print(final_plot)

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