R中如何使用data.table按ID汇总两个不同数据框内容

你之前的写法错误点在于：直接在by = .EACHI的逐行连接逻辑中做赋值，会以df1的每一行作为匹配单元，每匹配到一条df1的记录就覆写一次df2对应行的Make值，最终只会保留每个ID在df1中最后一条记录对应的Make值，同时代码中也没有对Make做去重处理，完全不符合需求。

核心思路是先对df1按ID分组聚合，完成去重、拼接操作后，再将结果关联回df2，不要在逐行连接的过程中做字符串拼接。

1. 首先加载data.table包并构造示例测试数据：

library(data.table)

# 构造示例df1、df2
df1 <- data.table(
  ID = c(1, 1, 2, 2, 2, 2, 3),
  Make = c("A", "B", "A", "B", "B", "C", "B")
)
df2 <- data.table(
  ID = c(1, 2, 3),
  Max = c(2, 3, 5)
)

2. 执行聚合+关联操作，两种写法都可以：

• 写法1：分步写（逻辑更清晰，便于调试）

# 第一步：按ID分组，对每个ID的Make去重后用逗号拼接
df1_agg <- df1[, .(Make = paste(unique(Make), collapse = ",")), by = ID]
# 第二步：将聚合结果匹配到df2中
df2[df1_agg, Make := i.Make, on = .(ID)]

• 写法2：链式一步写完（不需要中间变量）

df2[
  df1[, .(Make = paste(unique(Make), collapse = ",")), by = ID],
  Make := i.Make,
  on = .(ID)
]

3. 运行后查看df2，完全符合预期结果：

> df2
   ID Max  Make
1:  1   2   A,B
2:  2   3 A,B,C
3:  3   5     B

注意：关联赋值时的i.Make表示取连接右表（即聚合后的df1结果）中的Make列，避免同名列取值冲突。

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