使用dplyr批量转多列为小写，mutate across排除列时报错如何解决？

你代码报错的核心原因是列选择语法不符合dplyr规范：everything()返回的是dplyr内置的列选择表达式，并非可参与算术运算的数值对象，你直接用它减去risk[,c(1,4)]返回的两列数据框对象，属于非数值参与减法运算，因此触发了non-numeric argument to binary operator错误。

dplyr的across()本身支持直接在第一个参数中指定列的选择规则，你要排除指定列可以用以下几种写法：

1. 按列位置排除 #

和你base R的逻辑一致，直接在列选择位置加负号排除第1、4列即可：

library(dplyr)
risk <- risk %>%
  mutate(across(-c(1,4), ~ tolower(.x)))

2. 按列名排除（更稳妥） #

列位置可能因后续数据处理发生变化，直接指定要排除的列名兼容性更强：

risk <- risk %>%
  mutate(across(!c(title, Summary), ~ tolower(.x)))

3. 限定仅处理字符列（更严谨） #

如果不需要修改的列里有非字符类型，还可以加条件过滤，避免误操作其他类型的列：

risk <- risk %>%
  mutate(across(where(is.character) & !c(title, Summary), ~ tolower(.x)))

以上三种写法执行后，都会把目标列的所有值转为小写，和你base R实现的效果完全一致。

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