如何在R中使用ggplot绘制列表中多个同结构数据框的分面图？

核心思路：先合并数据框并添加分组标识 #

ggplot要求输入单个数据框，所以最直接的方式是把列表里的所有数据框合并成一个，同时给每个数据框添加一个用于分面的标识列（比如dataset），之后再用facet_wrap实现多面板效果。

具体代码实现 #

方法1：用dplyr包的bind_rows（推荐，简洁直观）

library(ggplot2)
library(dplyr)

# 构造数据列表
data_1 <- mtcars
data_2 <- mtcars
data_3 <- mtcars
mylist <- list(data_1, data_2, data_3)

# 合并数据并添加分组列
combined_data <- bind_rows(mylist, .id = "dataset")

# 绘图
ggplot(combined_data, aes(x = cyl, y = mpg)) +
  geom_point() +
  facet_wrap(~dataset)

这里.id = "dataset"会自动给每个来源数据框生成对应的标识（1、2、3），你也可以提前给列表命名，这样标识会用列表的名称：

# 给列表命名
mylist <- list(dataset_A = data_1, dataset_B = data_2, dataset_C = data_3)
combined_data <- bind_rows(mylist, .id = "dataset")

方法2：用base R实现合并

如果不想加载dplyr，也可以用base R的do.call和rbind，手动添加分组列：

# 给每个数据框添加dataset列
mylist_with_id <- lapply(seq_along(mylist), function(i) {
  cbind(mylist[[i]], dataset = paste0("dataset_", i))
})

# 合并成单个数据框
combined_data <- do.call(rbind, mylist_with_id)

# 绘图
ggplot(combined_data, aes(x = cyl, y = mpg)) +
  geom_point() +
  facet_wrap(~dataset)

关于lapply的补充 #

如果用lapply包裹ggplot，会生成多个独立的ggplot对象，此时需要用patchwork或gridExtra包把这些图拼接起来，但这种方式生成的面板不会共享坐标轴，和facet_wrap的统一分面效果不同。示例代码如下：

library(ggplot2)
library(patchwork)

# 生成多个ggplot对象
plot_list <- lapply(mylist, function(df) {
  ggplot(df, aes(x = cyl, y = mpg)) + geom_point()
})

# 拼接成一行
wrap_plots(plot_list, nrow = 1)

但这只是替代方案，合并数据后用facet_wrap才是最符合需求的最佳方法。

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