无需重复代码，在ggplot2中批量绘制Protein分组多线图并生成网格

方法1：使用ggplot的facet_wrap（最简洁高效） #

无需循环，直接通过分面功能自动为每个蛋白生成独立子图，代码量极少，适合快速批量可视化。

代码示例 #

library(tidyverse)

# 假设你的数据框名为df
ggplot(df, aes(x = Concentration, y = OD450, color = factor(Replicate))) +
  geom_line() +
  geom_point() + # 可选添加，让数据点更清晰
  facet_wrap(~ Protein, scales = "free_x") + # 按Protein分面，x轴随每个蛋白的浓度范围自适应
  labs(x = "浓度", y = "OD450值", color = "重复样本") +
  theme_bw() +
  theme(strip.text = element_text(size = 10, face = "bold"))

核心说明 #

• facet_wrap(~ Protein)会自动识别Protein列的所有唯一值，为每个值生成对应子图并排列成网格
• scales = "free_x"避免因不同蛋白浓度范围差异大导致的图形压缩，每个子图x轴独立适配数据
• 用factor(Replicate)做颜色映射，让不同重复样本的线条区分更直观

方法2：purrr循环生成独立图 + patchwork拼接（灵活个性化） #

如果需要对单个蛋白的图形做定制化调整（比如单独标题、特殊注释），可以用这种方法先批量生成独立图，再拼接成网格。

代码示例 #

library(tidyverse)
library(patchwork) # 用于图形拼接

# 按Protein拆分数据框，得到每个蛋白的子数据框列表
protein_subsets <- df %>% group_split(Protein)

# 循环生成每个蛋白的可视化图形
protein_plots <- map(protein_subsets, function(sub_df) {
  target_protein <- unique(sub_df$Protein)
  ggplot(sub_df, aes(x = Concentration, y = OD450, color = factor(Replicate))) +
    geom_line(linewidth = 1) +
    geom_point(size = 2) +
    labs(title = target_protein, x = "浓度", y = "OD450值", color = "重复样本") +
    theme_bw() +
    theme(plot.title = element_text(hjust = 0.5, face = "bold"))
})

# 拼接所有图形为网格，ncol控制每行显示的图数量
wrap_plots(protein_plots, ncol = 3) + plot_layout(guides = "collect")

核心说明 #

• group_split(Protein)自动拆分数据，无需手动写filter筛选每个蛋白
• map()遍历子数据框列表，批量生成对应ggplot图形，可在函数内添加个性化调整逻辑
• wrap_plots()拼接网格时，guides = "collect"会合并所有图例，避免每个子图重复显示图例，让布局更整洁

方案优势 #

两种方法都彻底避免了重复的filter和复制粘贴代码，新增蛋白后无需修改代码，直接运行即可自动生成所有图形：

• 方法1适合快速批量可视化，代码极简易维护
• 方法2适合需要对单个子图做定制化调整的场景

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