R语言如何为列表内每个数据框基于现有列批量生成新列

R原生的if/else分支仅支持长度为1的逻辑值作为判断条件，你传入的x$X2是数据框的列向量，长度等于数据框行数，因此R只会读取第一个元素的判断结果给所有行赋值，不符合需求同时触发警告。该问题和lapply的用法无关，也不需要额外嵌套apply系列函数，改用向量化的条件判断函数即可解决。

方案1：基础R实现（无需额外依赖） #

使用向量化的ifelse函数替换逐行判断逻辑，代码如下：

list_02 <- lapply(list_01, function(x) {
  x$X3 <- ifelse(
    x$X2 > 0, 
    "Yes",
    ifelse(
      x$X2 == 0, 
      "No", 
      "error - check column X2 for numeric"
    )
  )
  return(x)
})

运行后输出list_02[[3]]即可得到你预期的结果。

方案2：dplyr实现（代码可读性更高） #

如果使用tidyverse生态的工具，用case_when写多分支逻辑更清晰：

library(dplyr)
list_02 <- lapply(list_01, function(df) {
  df %>% 
    mutate(
      X3 = case_when(
        X2 > 0 ~ "Yes",
        X2 == 0 ~ "No",
        TRUE ~ "error - check column X2 for numeric"
      )
    )
})

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