如何在R中自动批量生成并拼接多幅ggplot2图形？

你当前手动创建每个国家的散点图并拼接的方式，在分组较多时效率极低，以下两种方法可以高效实现自动生成带标题的图形并拼接：

方法1：使用ggplot2内置的facet_wrap（推荐） #

这是最简洁的实现方式，无需手动拆分数据或创建多个绘图对象，直接通过分面函数自动按分组生成子图：

library(ggplot2)
library(dplyr)

# 生成数据集（复用你的代码）
set.seed(123)
data <- data.frame(
    height = rnorm(1000, mean = 170, sd = 10),
    weight = rnorm(1000, mean = 70, sd = 15),
    country = sample(c("USA", "Canada", "UK", "Australia"), 1000, replace = TRUE)
)

# 一键生成分面图
ggplot(data, aes(x = height, y = weight)) +
    geom_point(alpha = 0.5) +
    labs(x = "身高(cm)", y = "体重(kg)") +
    theme_minimal() +
    facet_wrap(~country, ncol = 2)  # 按country列分面，指定每行2个图

说明： #

• facet_wrap(~country)会自动将每个国家作为一个子图，子图标题就是对应的国家名称
• 可通过ncol/nrow参数控制子图的排列行数/列数
• 如果需要更精细的分面布局（比如按行/列指定不同分组），可以替换为facet_grid函数

方法2：循环生成子图列表后拼接（适合复杂自定义需求） #

如果每个子图需要独立的自定义设置（比如不同的颜色、专属图层），可以用循环生成所有子图，再统一拼接：

library(ggplot2)
library(gridExtra)

# 获取所有唯一的国家列表
countries <- unique(data$country)

# 循环生成每个国家的绘图对象，存入列表
plot_list <- lapply(countries, function(cntry) {
    ggplot(data %>% filter(country == cntry), aes(x = height, y = weight)) +
        geom_point(alpha = 0.5) +
        labs(title = cntry, x = "身高(cm)", y = "体重(kg)") +
        theme_minimal()
})

# 拼接所有图形，指定列数
grid.arrange(grobs = plot_list, ncol = 2)

说明： #

• lapply会遍历每个国家，自动生成对应的子图，标题自动匹配国家名称
• 可在循环内部添加任意自定义代码（比如不同的点颜色、添加拟合线等）
• 如果需要更灵活的拼接逻辑，也可以使用patchwork包替代gridExtra，语法更直观：

  library(patchwork)
  Reduce(`+`, plot_list) + plot_layout(ncol = 2)
  

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