如何在R语言中根据列存在情况为列表内的数据框添加新列？

你的代码核心问题是ifelse与mutate的搭配逻辑错误，且直接引用列名会导致dplyr无法正确识别。下面提供两种可行的实现方式：

方法一：dplyr + lapply（推荐） #

library(dplyr)

# 构造测试数据
iris_1 <- iris %>% rename(sp = Species)
iris_2 <- iris %>% select(Sepal.Length, Sepal.Width)
iris_3 <- iris %>% mutate(species_2  = Species)
iris_list <- list(iris, iris_1, iris_2, iris_3)

# 批量处理数据框列表
iris_list_fixed <- lapply(iris_list, function(df) {
  df %>%
    mutate(
      species_fixed = case_when(
        "Species" %in% names(df) ~ .data[["Species"]],
        "sp" %in% names(df) ~ .data[["sp"]],
        TRUE ~ NA_character_ # 若原列是因子类型，可改用NA_factor_
      )
    )
})

• 用case_when替代嵌套ifelse，逻辑更直观，贴合dplyr语法风格
• 用.data[["列名"]]引用列，避免dplyr非标准求值的识别问题
• 用NA_character_（对应数据类型的原生NA值）替代字符串"NA"，保证缺失值格式正确

方法二：Base R实现（无需依赖dplyr） #

# 构造测试数据同上
iris_list_fixed <- lapply(iris_list, function(df) {
  if ("Species" %in% names(df)) {
    df$species_fixed <- df$Species
  } else if ("sp" %in% names(df)) {
    df$species_fixed <- df$sp
  } else {
    df$species_fixed <- NA
  }
  df
})

• 直接用Base R的条件判断完成列赋值，逻辑简单直接，适合习惯原生语法的用户

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