R语言如何通过参考表将数据框指定行列的值替换为NA

报错原因 #

原有代码报错的核心原因是：across()默认执行向量化操作，在其内部直接调用event时取到的是整列的向量，而非当前行对应的事件值，导致filter()的判断条件返回逻辑向量而非预期的筛选结果，最终抛出类不匹配错误。

实现方案 #

建议先提前构建事件-关联字段的查找表，避免逐行重复过滤映射表，即使面对300+列、近千行的业务数据也能高效运行：

library(tidyverse)

# 第一步：预构建事件→关联字段的查找列表，大幅提升匹配效率
field_lookup <- split(event_fields$field_name, event_fields$unique_event_name)

# 第二步：逐行按规则替换值，across(-event)表示处理除event列外的所有字段，无需手动枚举300多列
result <- df %>%
  rowwise() %>%
  mutate(across(-event, 
                ~ replace(., !cur_column() %in% field_lookup[[event]], NA))) %>%
  ungroup()

效果验证 #

运行上述代码得到的result和期望输出完全一致：

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