合并多个data.table并填充对应value1-value4字段的方法

针对你拥有4个结构一致（包含相同案例ID、时间点，仅单个value字段有值其余为NA）的data.table，要合并成包含所有案例、时间点及完整value1-value4字段的最终表，以下是两种高效实现方法：

方法一：精简表结构后批量合并 #

核心思路是先保留每个表的主键（案例ID、时间点）和对应非NA的value字段，再基于主键批量合并，避免冗余列：

library(data.table)

# 1. 精简各表，仅保留主键和目标value字段
Table1_clean <- Table1[, .(id, time, value1)]
Table2_clean <- Table2[, .(id, time, value2)]
Table3_clean <- Table3[, .(id, time, value3)]
Table4_clean <- Table4[, .(id, time, value4)]

# 2. 将表放入列表，用Reduce批量执行合并
dt_list <- list(Table1_clean, Table2_clean, Table3_clean, Table4_clean)
final_table <- Reduce(function(x, y) merge(x, y, by = c("id", "time"), all = TRUE), dt_list)

合并后final_table会自动匹配所有id+time组合，填充对应的value1-value4值——因为所有表的主键组合是完整的，最终不会有NA值。

方法二：长格式转宽格式合并 #

如果需要更灵活的字段处理，可以先将各表转为长格式，再合并后转宽：

library(data.table)

# 1. 将每个表转为长格式（主键+变量名+值）
Table1_long <- Table1[, .(id, time, variable = "value1", value = value1)]
Table2_long <- Table2[, .(id, time, variable = "value2", value = value2)]
Table3_long <- Table3[, .(id, time, variable = "value3", value = value3)]
Table4_long <- Table4[, .(id, time, variable = "value4", value = value4)]

# 2. 合并长格式数据
long_data <- rbindlist(list(Table1_long, Table2_long, Table3_long, Table4_long))

# 3. 转换为宽格式得到最终表
final_table <- dcast(long_data, id + time ~ variable, value.var = "value")

验证结果 #

可以用以下代码确认最终表的完整性：

# 检查是否存在NA值（所有主键组合都有对应value值，应返回0）
sum(is.na(final_table[, .(value1, value2, value3, value4)]))

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