如何合并循环生成的G_temp结果并去重导出为CSV文件？

我来帮你搞定这个问题～你现在遇到的核心问题是：循环里每次生成的G_temp都会把之前的结果覆盖掉，所以全局环境里最后只留下了循环最后一次的输出。要把所有循环产生的结果收集起来、合并去重再导出，你可以按下面的步骤操作：

方法一：改进原有循环（适合保留你原来的代码逻辑） #

首先加载需要的工具包（如果还没加载的话）：

library(tidyverse)

然后初始化一个空列表用来存储每次循环的结果，再修改循环把结果存入列表：

# 初始化空列表，用来收集所有循环的G_temp结果
all_g_temp <- list()

for (k in 1:nrow(E)) { 
  F_temp <- eF; 
  G_temp <- F_temp %>% filter(abs(F_temp$Inception_Date - E$Inception_Date[k]) <= 1500); 
  all_g_temp[[k]] <- G_temp  # 把当前循环的结果存入列表，不会被覆盖
}

# 把列表里的所有数据框合并成一个大表
combined_results <- bind_rows(all_g_temp)

# 去掉重复的行（如果有同一行被多次匹配到的情况）
unique_results <- combined_results %>% distinct()

# 导出为CSV文件
write_csv(unique_results, "merged_unique_g_temp.csv")

方法二：用tidyverse的向量化操作（更简洁高效） #

如果你习惯用tidyverse的风格，也可以不用显式循环，用map函数来实现，代码更简洁：

library(tidyverse)

# 遍历E的每个Inception_Date，匹配eF中符合条件的行，然后合并去重
unique_results <- E %>%
  mutate(matched_entries = map(Inception_Date, ~ filter(eF, abs(Inception_Date - .x) <= 1500))) %>%
  unnest(matched_entries) %>%
  distinct()  # 自动去除重复行

# 导出CSV
write_csv(unique_results, "merged_unique_g_temp.csv")

关键说明： #

• 用列表存储每次循环的结果，是因为每次生成的G_temp行数可能不一样，列表能灵活容纳不同长度的数据集；
• bind_rows()可以把列表里的所有数据框无缝合并成一个完整的数据集；
• distinct()会自动移除完全重复的行，确保最终的结果里每个条目只出现一次；
• 如果你不想用tidyverse的write_csv()，也可以用基础R的write.table()，比如write.table(unique_results, "merged_unique_g_temp.csv", sep = ",", row.names = FALSE)。

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