如何使用ifelse与%in%运算符批量替换DataFrame中的全部值

问题原因 #

你直接对data.frame使用%in%运算符不符合预期，是因为data.frame本质是由列组成的列表，%in%默认只会判断每一列整体是否属于目标向量，不会逐元素匹配，因此返回的结果长度等于列数，和你需要的逐元素重编码逻辑不符。

解决方法 #

以下方法都可以保留c(4,5)的批量匹配写法，满足你的需求：

方法1：转矩阵后匹配（无需额外包，代码最简洁）

把数据框转为矩阵再用%in%，就会触发逐元素匹配逻辑：

# 写法1：搭配ifelse
df_result <- ifelse(as.matrix(df) %in% c(4,5), 1, 0)

# 写法2：更简洁，直接把逻辑值转为数值（TRUE对应1，FALSE对应0）
df_result <- +(as.matrix(df) %in% c(4,5))

运行后返回的是矩阵格式的结果，和你原来用|运算符得到的输出完全一致。

方法2：保留data.frame格式输出（base R写法）

如果需要输出结果还是data.frame，可以用apply遍历所有列处理：

df_result <- as.data.frame(apply(df, 2, function(x) ifelse(x %in% c(4,5), 1, 0)))

方法3：dplyr写法（适合tidyverse生态用户）

如果你常用dplyr，可以用across批量处理所有列，代码可读性更高：

library(dplyr)
df_result <- df %>%
  mutate(across(everything(), ~ifelse(.x %in% c(4,5), 1, 0)))

输出结果为data.frame格式。

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