如何对R中整个dataframe的数值列执行log2+1运算

报错原因 #

你代码的问题出在across的第二个参数需要传入可调用的函数对象，直接写log2+1是对log2函数本身做加法运算，不属于合法的函数表达式，因此触发非数值参数的报错。

正确实现方式 #

1. tidyverse 风格写法（适配你原代码的逻辑）

你可以用purrr风格的匿名函数公式，写法最简洁：

data_log <- dat %>% 
  mutate(across(where(is.numeric), ~ log2(.x) + 1))

如果需要更高的可读性，也可以显式声明匿名函数：

data_log <- dat %>% 
  mutate(across(where(is.numeric), function(x) log2(x) + 1))

2. base R 写法（用sapply实现）

如果你更习惯用base R的函数，可以用以下写法：

# 筛选所有数值列
num_cols <- sapply(dat, is.numeric)
# 对数值列批量执行log2+1运算
dat[num_cols] <- sapply(dat[num_cols], function(x) log2(x) + 1)

注意事项 #

如果你的数值列中存在0或者负数，log2运算会返回NaN，建议运算前先检查数值列的取值范围，避免生成不必要的缺失值。

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