如何通过函数参数指定多列使用mutate_at？代码未更新列求助

你遇到的问题是函数里的case_when逻辑没有正确作用到目标列上，核心问题出在列引用的语法错误，还有旧版dplyr函数的使用问题，具体分析和修复如下：

问题代码 #

library(dplyr)
# 创建数据集
data <- data.frame(a = rbinom(10, 1, .5), b = rnorm(10, 5, 1), c = rnorm(10, 3, 1), d = rnorm(10, 5, 3))
# 创建有序因子格式的列名（代码其他部分需要）
column_names <- factor(names(data), levels = names(data), ordered = T)
# 筛选目标列（会多次执行此操作）
cols1 <- column_names[column_names > "a" & column_names < "d"]
# 定义函数
try_func <- function(data, col, cols) {
  data %>%
    mutate_at(vars(all_of(as.character(cols))), ~case_when(!!col==1 & . < 4.5 ~ "crit met", 
                                                           !!col==0 & . > 5 ~ "crit not met", 
                                                           TRUE ~ as.character(.))) 
}

# 调用函数
try_func(data, col="a", cols=cols1)

问题原因 #

1. 列引用错误：col是字符串类型的列名参数，直接用!!col会把字符串本身（比如"a"）当作判断值，而不是引用数据框中名为a的列。"a" == 1永远为FALSE，导致case_when只会执行TRUE ~ as.character(.)分支，列数据自然不会更新。
2. 旧版语法兼容性：mutate_at是dplyr 1.0.0之前的批量列操作语法，虽然仍能运行，但推荐使用更现代的across函数，语法更清晰且功能更完善。

修复方案 #

修复后的代码 #

library(dplyr)
# 创建数据集
data <- data.frame(a = rbinom(10, 1, .5), b = rnorm(10, 5, 1), c = rnorm(10, 3, 1), d = rnorm(10, 5, 3))
# 创建有序因子格式的列名（代码其他部分需要）
column_names <- factor(names(data), levels = names(data), ordered = T)
# 筛选目标列（会多次执行此操作）
cols1 <- column_names[column_names > "a" & column_names < "d"]
# 修复后的函数
try_func <- function(data, col, cols) {
  data %>%
    mutate(across(all_of(as.character(cols)), ~case_when(
      .data[[col]] == 1 & . < 4.5 ~ "crit met",
      .data[[col]] == 0 & . > 5 ~ "crit not met",
      TRUE ~ as.character(.)
    )))
}

# 调用函数查看结果
try_func(data, col="a", cols=cols1)

关键修复点 #

• 正确引用列：用.data[[col]]替代!!col，.data是dplyr提供的代词，能安全地通过字符串参数引用数据框中的列，避免符号解析错误。
• 使用现代语法：把mutate_at(vars(...), ...)替换为mutate(across(...), ...)，这是dplyr当前推荐的批量列操作方式，逻辑更直观。
• 验证逻辑分支：修复后，.data[[col]]会正确取到a列的0/1值，配合目标列的数值判断，case_when的分支会正常触发，目标列（b、c）会被更新为对应的字符值。

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