R语言基于列数为数据框列表新增派生变量的报错解决

原来的代码触发object 'col3' not found，本质是case_when()的求值逻辑问题：

• 作为普通R函数，case_when()会在执行分支匹配前，提前对所有分支的取值表达式完成求值，不会因为条件不满足就跳过表达式的解析
• 代码里直接在分支中裸写col3，处理只有2列的dat1时，哪怕“列数大于2”的判断完全为假，R也会在当前数据框的列环境里查找col3对象，因为该列不存在就直接触发报错
• 整个流程在求值阶段就出错，根本走不到后续的条件判断逻辑

保留你计划使用的map()、mutate()、case_when()函数栈，只需要对列引用做存在性防护，避免提前触发找不到列的错误，完整可运行代码如下：

library(tidyverse)
dat.list <- list(
  dat1 = data.frame(col1 = c(1,2,3), col2 = c(10,20,30)),
  dat2 = data.frame(col1 = c(5,6,7), col2 = c(30,40,50), col3 = c(7,8,9))
)

dat.list %>% 
  map(~ .x %>% 
        mutate(newcol = case_when(
          # 列数大于2时，校验col3存在再取值，不存在则返回与数据行数等长的NA兜底，避免求值报错
          ncol(cur_data()) > 2 ~ if ("col3" %in% names(cur_data())) cur_data()$col3 else rep(NA, n()),
          # 列数≤2时，直接取col1的值
          TRUE ~ cur_data()$col1
        ))
  )

代码输出与你预期的结构完全一致：

# $dat1
#   col1 col2 newcol
# 1    1   10      1
# 2    2   20      2
# 3    3   30      3

# $dat2
#   col1 col2 col3 newcol
# 1    5   30    7      7
# 2    6   40    8      8
# 3    7   50    9      9

实现核心逻辑：避免直接裸写可能不存在的列名，把列存在性校验嵌入求值流程，就能从根源上规避这类分支求值的报错。

内容的提问来源于stack exchange，提问作者cholo.trem