R语言中使用wrap_plots批量绘图出现重复图表的问题求助

问题现象 #

使用for循环结合ggplot2和patchwork生成5个箱线图时，仅坐标轴标签正确，所有箱线图的内容完全重复；但单独绘制每个图表再组合则显示正常。

问题原因 #

这是R的延迟求值机制导致的：循环中生成ggplot对象时，i的实际取值会延迟到绘图时才计算，此时循环已经结束，i固定为最后一次循环的值（即5），因此所有图表都使用了第5个测量指标的数据。

解决方案 #

方法1：使用local()创建局部环境捕获循环变量 #

通过local()将每次循环的i值固定在局部环境中，避免后续循环覆盖：

library(patchwork)
library(ggplot2)
library(readr)

# 读取数据（注意文件路径加引号）
cell_measurements = read_csv("random.csv")
# 获取第5到9列的列名（修正为colnames）
measurement_types = colnames(cell_measurements)[5:9]
plot_list = list()

for (i in 1:5){
  plot_list[[i]] = local({
    # 捕获当前循环的i值
    current_i = i
    # 使用.data[[...]]安全引用列名，替代eval(parse(...))
    ggplot(cell_measurements, aes(x = as.character(Injury), y = .data[[measurement_types[current_i]]])) +
      geom_boxplot(aes(fill = Animal)) +
      labs(x = 'Injury', y = measurement_types[current_i])
  })
}

wrap_plots(plot_list)

方法2：用purrr::map替代for循环（推荐tidyverse风格） #

purrr::map会对每个元素独立处理，天然规避延迟求值问题：

library(patchwork)
library(ggplot2)
library(readr)
library(purrr)

cell_measurements = read_csv("random.csv")
measurement_types = colnames(cell_measurements)[5:9]

# 遍历每个测量指标生成图表
plot_list = map(measurement_types, ~{
  ggplot(cell_measurements, aes(x = as.character(Injury), y = .data[[.x]])) +
    geom_boxplot(aes(fill = Animal)) +
    labs(x = 'Injury', y = .x)
})

wrap_plots(plot_list)

额外优化点 #

1. 替换eval(parse(text = ...))为.data[[var]]：这是ggplot2官方推荐的引用动态列名的方式，更安全且可读性更高。
2. 简化as.character(Injury)：替代sapply(Injury, as.character)，效果一致且更简洁。
3. 示例数据修正：原示例中dog/rabbit需加引号，否则会被识别为未定义变量：

Animal = c("dog", "dog", "dog", "rabbit", "rabbit", "rabbit")
Injury = c(0,1,0,1,0,1)
Measurement1 = c(0.1,0.2,-0.8,1.5,1.2,1.3)
Measurement2 = c(0.1,0.5,-0.9, -1.4, 1.6, -0.5)

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