如何用dplyr的mutate()对列表中随机选中列做中位数插补

问题说明 #

已实现对固定列（如V2）的缺失值中位数插补，但需要通过sample(1:3, 1)随机选择目标列，完成列表中所有数据框对应列的缺失值插补。

解决方案1：动态符号注入（兼容dplyr旧版本） #

先随机生成目标列名，利用sym()将字符串列名转为dplyr可识别的符号，再通过!!注入到mutate中：

# 随机选择目标列（生成V1/V2/V3中的一个）
target_col <- paste0("V", sample(1:3, 1))

newlist <- list()
for (k in 1:length(mylist)) {
  # 将列名字符串转为符号
  col_symbol <- sym(target_col)
  newlist[[k]] <- mylist[[k]] %>%
    mutate(!!col_symbol := replace_na(!!col_symbol, median(!!col_symbol, na.rm = TRUE)))
}

# 输出处理后的列表
newlist

解决方案2：使用across()简化代码（推荐） #

dplyr的across()函数更适合动态列操作，搭配all_of()引用字符串列名，代码更简洁：

# 随机选择目标列
target_col <- paste0("V", sample(1:3, 1))

# 用lapply遍历列表处理每个数据框
newlist <- lapply(mylist, function(df) {
  df %>%
    across(all_of(target_col), ~replace_na(.x, median(.x, na.rm = TRUE)))
})

newlist

解决方案3：用purrr简化循环（可选） #

如果习惯使用tidyverse的purrr包，可替换lapply为map：

library(purrr)

target_col <- paste0("V", sample(1:3, 1))

newlist <- map(mylist, ~.x %>%
                 across(all_of(target_col), ~replace_na(.x, median(.x, na.rm = TRUE))))

关键要点 #

• paste0("V", sample(1:3,1))：将随机生成的列索引转为对应的列名（如V1、V2或V3）
• sym() + !!：实现字符串列名到dplyr变量的转换，让动态列名能被mutate识别
• across(all_of(target_col))：更直观的动态列处理方式，all_of()用于引用字符串形式的列名
• 用lapply/map替代for循环：代码更简洁，同时保持处理逻辑清晰

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