如何用lapply从数据框列表中提取指定列？

直接用intersect()找出每个数据框中实际存在的目标列，再提取这些列，就能避免不存在列的报错：

# 定义目标列向量
identifiers <- c("Organism Name", "Protein names", "Gene names", "Pathway", "Biological Process")

# 遍历列表提取有效列
result_list <- lapply(data, function(x) {
  # 筛选当前数据框中存在的目标列
  valid_cols <- intersect(identifiers, colnames(x))
  # 提取列，drop=FALSE确保结果始终是数据框（哪怕只有一列）
  x[, valid_cols, drop = FALSE]
})

1. 第一种写法lapply(data, '[', identifiers)直接硬套所有目标列，一旦某个数据框缺少其中任意一列，就会触发"undefined columns selected"错误。
2. 第二种写法的问题有两个：
   • 判断条件identifiers %in% x错误，应该用identifiers %in% colnames(x)来检查列名是否存在；
   • if语句逻辑不完整，没有正确执行提取操作，导致返回NULL。

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