R语言筛选列表内符合列匹配条件的数据框并重命名指定列

首先提取df1中用于匹配的目标值向量：

target_vals <- df1$a

方法1：tidyverse 实现（适配tibble场景） #

依赖dplyr和purrr包，代码简洁易读：

library(dplyr)
library(purrr)

result <- l %>%
  # 仅保留恰好有1列匹配的数据框
  keep(~ sum(map_lgl(.x, ~ any(.x %in% target_vals))) == 1) %>%
  # 重命名匹配列
  map(~ {
    match_col <- names(which(map_lgl(.x, ~ any(.x %in% target_vals))))
    rename(.x, thiscolumnhastruevalues = all_of(match_col))
  })

方法2：Base R 实现（无需加载第三方包） #

result <- list()
for (i in seq_along(l)) {
  current_df <- l[[i]]
  # 逐列判断是否有匹配值
  is_match_col <- sapply(current_df, function(col) any(col %in% target_vals))
  match_count <- sum(is_match_col)
  # 仅处理匹配列数恰好为1的情况
  if (match_count == 1) {
    match_col_name <- names(is_match_col)[is_match_col]
    colnames(current_df)[colnames(current_df) == match_col_name] <- "thiscolumnhastruevalues"
    result <- c(result, list(current_df))
  }
}

效果验证 #

运行上述代码后返回的result列表仅包含修改后的df2，其中原c列已重命名为thiscolumnhastruevalues，df3因存在a、c两个匹配列被过滤，完全符合需求。

注意：如果你的匹配规则是列的所有值都必须在df1中存在，将代码中的any(col %in% target_vals)替换为all(col %in% target_vals)即可。

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