将多幅ggplot图转换为theme_economist主题并设置共用顶部图例

要实现你的两个需求，用patchwork包是最简便的方式，既能统一应用主题，又能轻松收集共用图例。下面是具体步骤和优化后的代码示例：

步骤1：加载必要的包 #

确保你安装并加载了ggplot2、ggthemes（提供theme_economist()）和patchwork（用于多图组合）：

library(ggplot2)
library(ggthemes)
library(patchwork)

步骤2：创建子图（不要单独加主题） #

先写出所有子图的绘图逻辑，但不要在每个子图里单独加theme_economist()，留到最后统一应用，这样更简洁：

# 示例子图1
p1 <- ggplot(mtcars, aes(x = wt, y = mpg, color = factor(cyl))) +
  geom_point() +
  labs(title = "车重vs油耗")

# 示例子图2
p2 <- ggplot(mtcars, aes(x = hp, y = qsec, color = factor(cyl))) +
  geom_point() +
  labs(title = "马力vs加速时间")

# 示例子图3
p3 <- ggplot(mtcars, aes(x = drat, y = disp, color = factor(cyl))) +
  geom_point() +
  labs(title = "传动比vs排量")

步骤3：组合图表并设置主题和共用图例 #

用patchwork的语法组合子图，同时完成两个需求：

# 组合子图，收集共用图例，统一应用economist主题，把图例放顶部
combined_plot <- (p1 + p2 + p3) +
  plot_layout(guides = "collect") +  # 自动收集所有子图的相同图例
  theme_economist() +
  theme(
    legend.position = "top",  # 图例移到顶部
    legend.justification = "center"  # 图例居中对齐
  )

print(combined_plot)

为什么这样做更优化？ #

• 统一主题：不用在每个子图里重复写theme_economist()，一次设置就能应用到所有子图，减少冗余代码。
• 共用图例：plot_layout(guides='collect')会自动识别所有子图中相同的图例，只保留一个，避免重复显示，还能轻松调整位置。
• 灵活布局：patchwork还支持调整子图的行列布局（比如用plot_layout(ncol=2)改成两列），扩展性更强。

如果你的原代码已经给每个子图加了主题，直接删掉子图里的theme_economist()，改成组合后统一添加即可。

内容的提问来源于stack exchange，提问作者geeb.24