R语言用purrr reduce执行full_join后如何自定义列名为对应年份标识

核心思路 #

之前参考的合并后逆向恢复列名的方案，在合并3个及以上数据框时会出现规则失效的问题——dplyr自动生成的.x/.y类后缀没有固定的、和原始列表顺序对应的映射关系，很容易把列的来源年份匹配错，完全不适配你的11个年度表的合并场景。
最稳妥的逻辑是在合并操作执行前，就给每个年份数据框的非连接字段拼接上对应的来源年份，从命名源头规避重名问题，根本不会触发自动后缀的生成流程。

具体实现步骤 #

1. 确认列表的命名合法性：你的Total.Scores必须是带名称的命名列表，每个元素的名称对应该数据框的所属年份，这是后续自动匹配年份的基础。如果列表没有自动带年份名，可以手动赋值：

   # 手动给列表元素补年份名称
   names(Total.Scores) <- c("2000", "2002", "2004", "2006", "2008", "2010", "2012", "2014", "2016", "2018", "2020")
   

2. 明确不需要加年份标识的字段：也就是你用来做连接键的ID、Category——这两个字段在所有年份的数据表里语义完全一致，不需要加后缀。
3. 批量重命名列表内的所有非连接字段：遍历每个数据框，把除连接键外的所有列名（Score.1-Score.9、Year）拼接上对应的年份，比如2000年表内的Score.1直接重命名为Score.1 2000。
   对应可直接运行的代码：

   # 定义固定的连接键集合
   join_keys <- c("ID", "Category")
   
   # 遍历列表完成批量重命名
   Total.Scores_renamed <- purrr::imap(Total.Scores, ~{
     current_year <- .y # 自动读取当前列表元素的年份名
     dplyr::rename_with(
       .data = .x,
       .fn = ~paste(.x, current_year, sep = " "), # 列名和年份空格拼接
       .cols = -all_of(join_keys) # 跳过连接键，不做修改
     )
   })
   

4. 执行全连接合并：因为重命名后所有非连接字段都是全局唯一的，合并过程不会再生成带.x/.y后缀的列。合并完成后你会发现，所有Score类字段的列名已经是类似Score.1 2000、Score.5 2020的格式，不需要再做任何后缀修正：

   Total.Yearly.Scores <- purrr::reduce(
     .x = Total.Scores_renamed,
     .f = dplyr::full_join,
     by = join_keys # 固定用两个连接键做匹配
   )
   

方案优势 #

• 彻底规避自动后缀的歧义：不会出现合并多表时.x.x/.y.y类后缀和来源年份无法对应的问题，列名的年份标识和数据来源是一一绑定的，没有匹配错位风险。
• 逻辑和业务场景完全对齐：每个年份对应的得分、年份标记都是该年度的专属信息，在数据进入合并流程前就标注来源，比合并后逆向追溯后缀效率高得多。
• 适配复杂的多表场景：哪怕后续调整纳入合并的年份数、修改每个年份表的字段顺序，都不需要调整后续的列名修正逻辑，代码鲁棒性更强。

补充提示：如果你的最终结果需要保留无后缀的Year整列结构，可以在重命名步骤里单独把Year字段加入不需要改名字的集合（即把join_keys调整为c("ID", "Category", "Year")），避免给通用字段加无意义的后缀。

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