如何在mutate_at中使用tibble自身变量替换指定列？

你遇到的这个Error in mutate_impl(.data, dots) : Column mpg is of unsupported type function错误，本质是因为funs()默认会把你传入的disp当成函数名去解析，而不是引用mtcars数据框里的disp列变量——它找不到叫disp的函数，自然就报类型不匹配的错了。

下面给你几个不用加引号就能直接用变量名的解决方案，分新旧版dplyr两种情况：

1. 推荐：用dplyr 1.0.0+的across函数 #

dplyr更新到1.0.0之后，across替代了旧的mutate_at/mutate_all，语法更直观，直接就能在表达式里引用数据框的列：

library(dplyr)
mtcars %>%
  mutate(across(c(mpg, carb), ~ disp))

这里的~ disp是lambda表达式，disp会自动在mtcars的环境里被识别为列变量，完美实现用disp替换mpg和carb的需求。

2. 旧版dplyr用mutate_at配合.data代词 #

如果你的dplyr版本比较老，可以用.data代词明确告诉dplyr：我要的是当前数据框里的列，不是函数：

mtcars %>%
  mutate_at(vars(mpg, carb), funs(. = .data$disp))

.data$disp会直接指向mtcars里的disp列，避免被解析成函数，也就不会报错了。

3. 动态指定替换列的进阶用法 #

如果需要动态传入替换的列名（比如把列名存在变量里），可以用rlang的非标准求值工具：

# 比如把要用来替换的列名存在变量里
replace_col <- "disp"

mtcars %>%
  mutate(across(c(mpg, carb), ~ !!sym(replace_col)))

sym()把字符串转成变量符号，!!把这个符号注入到表达式里，同样能实现无引号变量名的效果。

简单说，核心就是要让dplyr明确知道你引用的是数据框里的列，而不是全局环境里的函数或其他对象，上面几种方法都能做到这一点。

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