R语言不同列表嵌套数据框指定列求交集的for循环实现方法

完全可以通过for循环实现该需求，以下是可直接运行的实现代码：

首先附上示例数据（方便直接运行测试）：

# 构建示例数据框
US <- data.frame("Group" = c(1,2,3), "Age" = c(21,20,17), "Name" = c("John","Dora","Helen"))
CA <- data.frame("Group" = c(2,3,4), "Age" = c(21,20,19), "Name" = c("John","Dora","Dan"))
JP <- data.frame("Group" = c(4,5,6), "Age" = c(16,15,14), "Name" = c("Mac","Hector","Jack"))

# 构建待比较列表
list1<-list(US,CA,JP)
names(list1)<-c("US","CA","JP")

list2<-list(US,CA,JP)
names(list2)<-c("US","CA","JP")

实现方式1：结合combn生成配对后循环 #

这种写法更简洁，自动过滤同名配对和重复反向配对：

# 初始化结果列表
comb_list <- list()
# 提取列表名称
list_names <- names(list1)
# 生成所有不重复的两两名称组合
comb_pairs <- combn(list_names, 2, simplify = FALSE)

# 遍历每组配对计算交集
for (pair in comb_pairs) {
  name_a <- pair[1]
  name_b <- pair[2]
  # 求Group列的交集
  group_intersect <- intersect(list1[[name_a]]$Group, list2[[name_b]]$Group)
  # 转成数据框格式，无交集时自动生成空数据框
  res_df <- data.frame(Group = group_intersect)
  # 按要求命名后存入结果列表
  comb_list[[paste0(name_a, "_", name_b)]] <- res_df
}

# 验证输出
print(comb_list)

实现方式2：纯双层for循环实现 #

不需要依赖combn函数，纯循环逻辑实现：

comb_list <- list()
list_names <- names(list1)
name_count <- length(list_names)

# 外层循环遍历前n-1个名称
for (i in 1:(name_count - 1)) {
  # 内层循环从i+1开始遍历，避免同名配对和重复配对
  for (j in (i + 1):name_count) {
    name_a <- list_names[i]
    name_b <- list_names[j]
    group_intersect <- intersect(list1[[name_a]]$Group, list2[[name_b]]$Group)
    res_df <- data.frame(Group = group_intersect)
    comb_list[[paste0(name_a, "_", name_b)]] <- res_df
  }
}

print(comb_list)

两种实现的输出结果都和需求中的示例完全一致。

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