如何通过循环或列表批量处理多向量与数据框，统一保留共同列名？

我正在编写一个脚本，会导入多个数据框，在将它们传入分析函数前，要为每个数据框生成包含所有列名的向量。脚本会检查所有向量的列名是否完全匹配，匹配则继续分析，否则终止运行。但我的25个数据框列名并不匹配，想请教：如何遍历所有列名向量，移除不匹配的列名，同时对导入的数据框执行相同操作？

以下是简化示例及我尝试过的几种方案：

## 目标
# 示例列名向量:
cols_import_1 <- c('a', 'b', 'c', 'd', 'f') 
cols_import_2 <- c('a', 'b', 'c', 'aa', 'cc', 'f')
cols_import_3 <- c('a', 'b', 'c', 'bb', 'e', 'f')

# 需要得到的结果:
cols_import_1 <- c('a', 'b', 'c', 'f') 
cols_import_2 <- c('a', 'b', 'c', 'f')
cols_import_3 <- c('a', 'b', 'c', 'f')

## 我的尝试
# 创建要移除的列名列表
remove_loci_list <- c('aa' 
                      , 'bb'
                      , 'cc'     
                      , 'd'   
                      , 'e'     
)

# 创建列名向量列表
vector_list <- list(cols_import_1
                    , cols_import_2
                    , cols_import_3)

# 方案1:
lapply(vector_list, function(change_vector)) {
  change_vector <- change_vector[!change_vector %in% remove_loci_list]
}

# 方案2:
for (i in 1:length(vector_list)) {
  vector_list[[i]] <- vector_list[[i]][!vector_list[[i]] %in% remove_loci_list]
}

# 方案3:
for (i in 1:length(paste0('cols_import_', [i]))) {
  cols_import_[i] <- cols_import_[i][!cols_import_[i] %in% remove_loci_list]
}

# 方案4:
for (i in 1:length(paste0(cols_import_, [i]))) {
  paste0(cols_import_, [i]) <- 
    paste0(cols_import_, [i])[!paste0(cols_import_, [i]) %in% remove_loci_list]
}

# 方案5:
for (i in 1:length(vector_list) {
  cols_import_[i] <- cols_import_[i][!cols_import_[i] %in% remove_loci_list]
}

核心思路是自动计算所有列名的交集（即所有数据框/列名向量共有的列），而非手动维护要移除的列名列表——后者在数据框数量多（比如25个）时极易出错。

针对列名向量的处理 #

如果只需要统一列名向量：

# 你的示例列名向量
cols_import_1 <- c('a', 'b', 'c', 'd', 'f') 
cols_import_2 <- c('a', 'b', 'c', 'aa', 'cc', 'f')
cols_import_3 <- c('a', 'b', 'c', 'bb', 'e', 'f')

# 将所有列名向量存入列表（推荐用列表管理批量数据，避免单独命名多个变量）
vector_list <- list(cols_import_1, cols_import_2, cols_import_3)

# 计算所有向量的共同列名
common_cols <- Reduce(intersect, vector_list)

# 批量过滤得到统一的列名向量
filtered_vector_list <- lapply(vector_list, function(vec) vec[vec %in% common_cols])

# 若要将结果放回原变量（不推荐，25个变量会非常繁琐）
cols_import_1 <- filtered_vector_list[[1]]
cols_import_2 <- filtered_vector_list[[2]]
cols_import_3 <- filtered_vector_list[[3]]

同时处理数据框和列名向量 #

如果需要同步处理数据框和对应的列名向量：

# 假设你的数据框是df1, df2, df3...，先存入列表
df_list <- list(df1, df2, df3)  # 替换为你的25个数据框

# 计算所有数据框的共同列名
common_cols <- Reduce(intersect, lapply(df_list, colnames))

# 1. 过滤数据框，只保留共同列
filtered_df_list <- lapply(df_list, function(df) df[, common_cols, drop = FALSE])

# 2. 生成对应的统一列名向量
filtered_cols_list <- lapply(filtered_df_list, colnames)

对你尝试方案的点评 #

• 方案1：语法错误（lapply的函数定义多了闭合括号），且未将lapply的返回值赋值给变量，无法保存结果。修正后可以运行，但手动维护移除列表不够灵活。
• 方案2：语法合法，但手动维护remove_loci_list在数据框数量多时容易遗漏或误操作，不推荐。
• 方案3-5：存在语法错误（如paste0('cols_import_', [i])写法不合法，无法通过字符串直接引用变量），且这种单独命名变量的方式不利于批量处理，建议改用列表管理所有数据。

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