R数据预处理中布尔运算符|相关代码精简优化方案求助

原写法错误原因 #

你之前的尝试无法运行有两个核心问题：

• 把匹配值存为了嵌套列表list(c("A","B","C"))，%in%判断时会优先匹配列表层级，无法正常匹配字符值
• L == all(L %in% l)的逻辑错误：all()返回的是单个布尔值，和向量L做相等判断完全不符合元素匹配的需求

最简修正方案 #

直接用%in%运算符替换多个|判断即可，不需要额外嵌套all()，匹配目标直接用字符向量存储：

library(dplyr)
# 预定义匹配目标
target_vals <- c("A","B","C")

# 修正后的函数
myfun. <- function(L){
  case_when(
    L %in% target_vals ~ 1
  )
}

# 调用后输出与预期完全一致
df.test %>% mutate(result = myfun.(L))

更精简的无函数写法 #

如果你只有这一个匹配规则，不需要单独封装函数，可以直接在mutate里完成判断，代码量更少：

df.test %>% 
  mutate(result = as.integer(L %in% c("A","B","C")))

as.integer()会自动把布尔值TRUE/FALSE转为1/0，输出结果和原逻辑完全一致。

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