如何统一ggplot2连续美学尺度范围以实现Patchwork图例合并

要解决子图尺度不一致导致无法合并图例的问题，核心是给所有子图强制设置相同的size和color尺度范围，具体操作如下：

1. 为单个子图添加统一尺度 #

在每个子图的ggplot代码中，通过scale_size_continuous()和scale_color_continuous()指定固定的尺度范围，确保所有子图的映射规则一致：

# 示例：生成第一组数据的子图
p1 <- ggplot(Enrichment_Analysis_Group1, aes(x = log2(enrichmentRatio), y = -log10(FDR))) +
  geom_point(aes(size = size, color = overlap)) +
  scale_x_continuous(name = expression("log"[2]*"(Enrichment Ratio)")) +
  scale_y_continuous(name = expression("-log"[10]*"(FDR)")) +
  # 统一size尺度为0-400，range控制点的实际显示大小区间（按需调整）
  scale_size_continuous(limits = c(0, 400), range = c(1, 10)) +
  # 统一color（overlap变量）尺度为0-60
  scale_color_continuous(limits = c(0, 60))

按同样的方式生成另外三组数据的子图p2、p3、p4，仅替换对应的数据集即可，必须保证每个子图都添加上述相同的scale设置。

2. 处理超出尺度范围的数据（可选） #

如果某组数据的size或overlap值超过你设置的上限（比如大于400或60），默认会显示为灰色异常点。若想将超出范围的值压缩到尺度上限，可添加oob = scales::squish参数：

scale_size_continuous(limits = c(0, 400), range = c(1, 10), oob = scales::squish)
scale_color_continuous(limits = c(0, 60), oob = scales::squish)

3. 用Patchwork合并子图与图例 #

当所有子图尺度统一后，即可使用plot_layout(guides = 'collect')成功合并图例：

library(patchwork)
# 合并四张子图并收集统一图例
(p1 + p2 + p3 + p4) +
  plot_layout(guides = 'collect', ncol = 2) + # ncol可设置子图排列的列数
  plot_annotation(title = "四组富集分析散点图") # 可选添加整体标题

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