如何基于多个现有变量的条件在R语言中创建新变量？

假设你的数据框名为df，以下是两种可行的实现方式，覆盖返回字符"Red"或数值1的需求，同时纠正你可能在case_when使用中犯的常见错误：

使用dplyr的case_when（推荐） #

如果你习惯tidyverse语法，case_when完全可以实现需求，大概率你之前的问题是漏掉了默认分支或者用了单等号（R中判断相等是双等号==）。

library(dplyr)

# 构造示例数据框用于测试
df <- tibble(
  A = c(1, 0, 1, 1),
  B = c(3, 3, 2, 3),
  C = c(1, 1, 1, 1),
  D = c(1, 0, 1, 1)
)

# 生成返回"Red"的新变量，不满足条件返回NA（可自行修改默认值）
df <- df %>%
  mutate(color = case_when(
    A == 1 & B == 3 & C == 1 & D == 1 ~ "Red",
    TRUE ~ NA_character_  # 必须设置默认分支，否则不满足条件的行会得到NA
  ))

# 生成返回1的新变量，不满足条件返回NA（或0，按需修改）
df <- df %>%
  mutate(flag = case_when(
    A == 1 & B == 3 & C == 1 & D == 1 ~ 1,
    TRUE ~ NA_integer_
  ))

基础R实现（无需额外包） #

如果不想加载dplyr，用基础R的ifelse或者直接转换逻辑向量更简便：

# 返回"Red"，不满足条件返回NA
df$color_base <- ifelse(df$A == 1 & df$B == 3 & df$C == 1 & df$D == 1, "Red", NA)

# 返回1的最简方式：逻辑向量转整数（TRUE→1，FALSE→0）
df$flag_base <- as.integer(df$A == 1 & df$B == 3 & df$C == 1 & df$D == 1)

常见错误排查 #

• 误用单等号=：R中=是赋值符号，判断相等必须用双等号==
• 未设置case_when默认分支：如果不写TRUE ~ ...，不满足条件的行会自动返回NA，但建议明确默认值避免歧义
• 变量名拼写错误：确认数据框中的变量确实是A、B、C、D，没有大小写或拼写偏差

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