R语言使用paste0调取多变量执行ifelse生成单个新变量的方法

错误原因说明 #

• 第一种写法逻辑错误：paste0("Var", c(1,3,5))生成的是变量名字符串，直接用字符串和数值4、5做匹配判断，完全不涉及数据框内的实际取值，无法得到正确结果。
• 第二种写法逻辑错误：从数据框中取出多列后直接使用%in%，会将多列数据展平为一维向量逐个判断，返回的逻辑向量长度等于行数×列数，不是按行汇总的判断结果，不符合需求。

正确实现方案 #

基础R实现（推荐，无额外依赖） #

优先使用rowSums方案，运算效率远高于按行循环，适合大样本数据：

# 构造目标列名
target_cols <- paste0("Var", c(1,3,5))
# 按行统计符合条件的元素数量，存在至少1个符合条件的就赋值为1，否则为0
df$newvar <- as.integer(rowSums(df[target_cols] %in% c(4,5)) >= 1)

如果偏好更直观的按行遍历写法，可使用apply：

df$newvar <- apply(df[target_cols], 1, function(row_vals) {
  as.integer(any(row_vals %in% c(4,5)))
})

tidyverse实现（适用于dplyr流程） #

library(dplyr)
target_cols <- paste0("Var", c(1,3,5))
df <- df %>%
  rowwise() %>%
  mutate(newvar = as.integer(any(c_across(all_of(target_cols)) %in% c(4,5)))) %>%
  ungroup()

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