R语言：如何通过循环基于多URL列执行左外连接

实现思路 #

要批量处理70多组URL列的左外连接，核心是先提取所有URL列对应的序号，再循环对每组序号的列执行连接、重命名操作，最后合并所有结果。

具体代码实现 #

# 加载依赖包
library(dplyr)
library(stringr)

# 1. 提取所有Team_URL列的数字序号
url_cols <- grep("Team_URL_", colnames(df_1), value = TRUE)
indices <- str_extract(url_cols, "\\d+") %>% as.integer()

# 2. 循环处理每个序号对应的列组
result_list <- list()
for (i in indices) {
  # 筛选df_1中当前序号的所有列
  df1_sub <- df_1 %>% select(matches(paste0("_", i, "$")))
  # 重命名URL列，统一为"URL"以便连接
  df1_sub <- df1_sub %>% rename(URL = paste0("Team_URL_", i))
  
  # 执行左外连接，仅保留df_2中需要的列
  joined_data <- df1_sub %>% 
    left_join(df_2 %>% select(URL, Name, Txt), by = "URL")
  
  # 给所有列添加当前序号的后缀
  colnames(joined_data) <- paste0(colnames(joined_data), "_", i)
  
  # 将处理好的子数据框存入列表
  result_list[[as.character(i)]] <- joined_data
}

# 3. 合并所有子数据框
final_result <- bind_cols(result_list)

# 4. 按序号分组排序列名，优化输出格式
sorted_col_names <- colnames(final_result) %>%
  str_split("_") %>%
  sapply(function(x) paste(tail(x, 1), paste(head(x, -1), collapse="_"), sep="_")) %>%
  sort() %>%
  str_split("_") %>%
  sapply(function(x) paste(head(x, -1), tail(x, 1), sep="_"))

final_result <- final_result %>% select(all_of(sorted_col_names))

# 查看最终结果
print(final_result)

代码说明 #

• 提取序号：通过grep定位所有Team_URL_开头的列，再用str_extract提取列名中的数字，自动覆盖所有70多组列。
• 循环连接：对每个序号，筛选对应列组、重命名URL列后执行左连接，避免重复编写大量连接代码。
• 列名区分：给每列添加对应序号后缀，清晰区分不同组的数据。
• 结果整理：按序号排序列名，让输出列按组排列，更符合预期格式。

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