如何使用ggplot2从列表中绘图并结合facet_wrap分面展示

你的列表里是三个结构完全一致的数据框，要想用facet_wrap实现分面展示，得先把这些数据合并成带分组标识的单一数据框——这是ggplot2处理多组数据分面的常规思路。

步骤1：整理数据 #

用dplyr包的bind_rows()函数可以快速合并列表，并自动给每个分组加标识（如果没装dplyr，先执行install.packages("dplyr")安装）：

# 安装并加载dplyr
# install.packages("dplyr")
library(dplyr)

# 合并列表数据，添加panel列区分不同分组
combined_data <- bind_rows(my.data, .id = "panel")

要是不想依赖dplyr，用base R也能实现：

# base R方式合并，手动添加分组列
combined_data <- do.call(rbind, my.data)
combined_data$panel <- rep(c("1", "2", "3"), each = nrow(my.data[[1]]))

步骤2：用ggplot2绘图分面 #

加载ggplot2包后，指定x、y变量，选择几何图层，最后用facet_wrap()指定分面依据即可：

# 安装并加载ggplot2
# install.packages("ggplot2")
library(ggplot2)

ggplot(combined_data, aes(x = x, y = te)) +
  geom_line(color = "steelblue") + # 用线展示线性关系，也可替换为geom_point()
  facet_wrap(~panel) + # 按panel列分面展示
  labs(title = "te与x的关系图", x = "x值", y = "te值") +
  theme_bw() # 可选：切换为清爽的黑白主题

补充说明 #

因为你当前的三个数据框内容完全一致，所以三个分面的图会看起来一模一样。后续如果每个列表元素的数据有差异，分面后就能直观对比不同组的区别了。

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