用R的lapply检查数据框是否含指定列，缺失则补NA列

你的问题出在lapply里的函数逻辑上——当前代码只在列c缺失时返回处理后的DataFrame，而当列存在时，因为没有明确的返回语句，函数默认返回NULL，这就是为什么结果里第一个元素是空的。

我们只需要调整函数，确保不管列c是否存在，最后都返回处理后的DataFrame就行，这里给你两种可行的方案：

方案一：Base R 原生实现 #

这种方法不需要额外加载包，直接用基础R语法就能搞定：

d1 <- data.frame(a=1:2, b=2:3, c=4:5)
d2 <- data.frame(a=1:2, b=2:3)
l <- list(d1, d2)

# 修改后的处理逻辑
result <- lapply(l, function(x) {
  # 如果列c不存在，就给x新增该列并填充NA
  if (!("c" %in% colnames(x))) {
    x$c <- NA
  }
  # 无论是否修改，都返回当前的x
  x
})

# 查看最终结果
result

方案二：Tidyverse 风格实现 #

如果你习惯用dplyr这类tidyverse工具，也可以用更简洁的语法实现，还能灵活控制新增列的位置：

library(dplyr)

result_tidy <- lapply(l, function(x) {
  if (!"c" %in% colnames(x)) {
    # 用add_column指定在b列之后新增c列，填充NA
    x %>% add_column(c = NA, .after = "b")
  } else {
    # 列存在时直接返回原数据
    x
  }
})

运行任意一种方案后，你都会得到期望的结果：

[[1]]
  a b c
1 1 2 4
2 2 3 5

[[2]]
  a b  c
1 1 2 NA
2 2 3 NA

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