如何在不指定列名的情况下对整个数据框使用case_when？

解决方案 #

你可以配合dplyr的across()函数实现全列批量应用case_when逻辑，不需要手动指定每一列的列名：

library(tidyverse)

# 示例数据
set.seed(1)
data <- tibble(x = runif(10), y = x * 2) 

# 批量处理所有列
data_processed <- data %>%
  mutate(across(everything(), ~ as.character(case_when(
    . > 1 ~ ">1",
    . > 0.5 ~ ">0.5",
    TRUE ~ as.character(.)
  ))))

关键说明 #

• across(everything()) 会匹配数据框的所有列，你也可以调整匹配规则缩小作用范围，比如用across(where(is.numeric))仅对数值列做处理，避免误修改非数值列。
• 匿名函数内的.指代当前处理列的单个元素，直接作为判断条件的主体即可，不需要写具体列名。
• 由于替换结果是字符串类型，需要把所有输出的类型统一，所以外层包了as.character()，兜底的TRUE分支也同步把原始数值转成字符型，避免类型冲突报错。

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