如何合并列表中不等行Data.table：不循环行且用列表名做列名

需求回顾 #

• 合并列数、列名相同但行数不同的data.table列表
• 不循环行数较少的表的行
• 将原border列转换为以列表项名称命名的独立列
• 保留value列为单一统一列（而非拆分多列）

实现代码 #

首先确保加载data.table包：

library(data.table)

处理列表并合并：

# 示例数据（与你提供的一致）
df1 <- data.frame(border=c(1,2,3), value=c(4,5,6))
df2 <- data.frame(border=as.factor(c("A","B")), value=c(3,5.7))
df_lst <- list(df1, df2)
names(df_lst) <- c("df1","df2")

# 处理列表中的每个元素：添加对应名称的列，移除原border列
processed_lst <- lapply(names(df_lst), function(table_name) {
  dt <- as.data.table(df_lst[[table_name]])
  # 将border的值存入以列表项名称命名的新列
  dt[, (table_name) := border]
  # 删除原border列
  dt[, border := NULL]
})

# 合并所有处理后的表，自动补全缺失列的NA值
result <- rbindlist(processed_lst, fill = TRUE)

# 调整列顺序以匹配预期结果（可选）
setcolorder(result, c("df1", "df2", "value"))

代码说明 #

• lapply(names(df_lst), ...)：遍历列表的名称，对每个表单独处理，确保每个表生成对应名称的列来存放原border的值
• dt[, (table_name) := border]：使用变量table_name的值作为新列名（而非字符串"table_name"），这是data.table中动态命名列的常用写法
• rbindlist(processed_lst, fill = TRUE)：合并所有表时，fill=TRUE会自动为缺失的列填充NA，完美匹配你“不循环行”的要求
• setcolorder：仅用于调整列的显示顺序，若不需要严格匹配示例顺序可省略

运行结果 #

执行后result的输出与你预期一致：

df1 df2 value
1:   1 NA    4
2:   2 NA    5
3:   3 NA    6
4:  NA  A   3.0
5:  NA  B   5.7

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