R数据框中基于逻辑表达式为新列赋值后全列仅显示21的问题排查

你遇到的问题其实是R中标量逻辑判断和向量化操作的差异导致的，咱们一步步来拆解：

为什么原来的代码只生效了第三个条件？ #

在R里，普通的if语句是标量级别的判断——它只会检查条件表达式返回的布尔向量的第一个元素是否为TRUE，然后决定是否执行代码块。而且你的每个if语句执行的是整列赋值：比如当第三个if的第一个元素条件为真时，它会直接把整个survey$session列全部设置为"21"，后面的if语句哪怕其他行满足条件，也没法覆盖已经被整列赋值的结果了。

另外还要注意：你用的&&也是标量逻辑运算符，它只会比较两个向量的第一个元素；如果要对每个元素做逻辑与判断，应该用向量化的&。

正确的解决方案 #

这里有几种更合适的向量化实现方式，选你顺手的就行：

1. 嵌套使用ifelse()（基础R实现） #

ifelse()是向量化的条件判断函数，会逐个元素检查条件并赋值：

survey$session <- ifelse(
  survey$delay == "0" & survey$intensive == "0", "11",
  ifelse(
    survey$delay == "0" & survey$intensive == "1", "12",
    ifelse(
      survey$delay == "1" & survey$intensive == "0", "21",
      ifelse(
        survey$delay == "1" & survey$intensive == "1", "22",
        "0"  # 兜底的默认值
      )
    )
  )
)

这里一定要用&代替&&，确保每个元素都被判断。

2. 使用dplyr::case_when()（更易读的tidyverse风格） #

如果你习惯用tidyverse工具，case_when()可以清晰列出所有条件，可读性更强：

library(dplyr)

survey <- survey %>%
  mutate(session = case_when(
    delay == "0" & intensive == "0" ~ "11",
    delay == "0" & intensive == "1" ~ "12",
    delay == "1" & intensive == "0" ~ "21",
    delay == "1" & intensive == "1" ~ "22",
    TRUE ~ "0"  # 所有不满足上述条件的情况都赋值为"0"
  ))

3. 字符串拼接技巧（更简洁的实现） #

观察你的session值规律：delay为"0"对应第一位"1"，为"1"对应第一位"2"；intensive为"0"对应第二位"1"，为"1"对应第二位"2"。其实可以直接把两个列转成数值后加1再拼接：

# 先处理符合条件的情况
survey$session <- paste0(as.numeric(survey$delay) + 1, as.numeric(survey$intensive) + 1)
# 再把不符合条件的情况（比如delay/intensive不是"0"/"1"的）设为"0"
survey$session <- ifelse(
  survey$delay %in% c("0", "1") & survey$intensive %in% c("0", "1"),
  survey$session,
  "0"
)

这样就能保证每个行都根据自己的delay和intensive值得到正确的session了。

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