如何用一行类似if else的语句简化R数据框的4步布尔值转换操作？

当然可以！你完全不需要写四步重复的赋值操作，R里有非常简洁的一行代码就能完成这个需求，而且有两种常用的思路：

Base R 方法 #

直接利用R中数值比较会返回逻辑向量的特性，一次性对目标列进行转换：

d[, c("B", "C")] <- d[, c("B", "C")] > 0

原理很简单：d[, c("B", "C")] > 0会逐元素判断每个值是否大于0，自动生成对应TRUE/FALSE的逻辑矩阵，直接赋值回原数据框的B、C列就搞定了。

Tidyverse (dplyr) 方法 #

如果你习惯用tidyverse风格的代码，可以用dplyr::across()来批量处理指定列：

library(dplyr)
d <- d %>% mutate(across(c(B, C), ~ .x > 0))

这里across(c(B, C))指定要处理的列，~ .x > 0是一个匿名函数，把每个列的元素和0比较生成逻辑值。

验证结果 #

运行上述任意一种方法后，你的数据框d会变成：

A     B     C
1 1 FALSE FALSE
2 1  TRUE  TRUE

完美替代了你原来的四步操作，代码更简洁也更易维护～

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