R语言中如何对两个等长data.table列表进行逐元素cbind？

嘿，这个需求其实很容易解决，有两种简单的方式，不管你习惯用base R还是tidyverse工具都能搞定：

方法一：用base R的mapply()函数 #

这是最直接的base R方案，不需要额外安装包。mapply()可以把两个等长列表的对应元素逐个传给指定函数（这里就是cbind()），只需要记得设置SIMPLIFY = FALSE来确保返回的是列表而不是其他结构。

示例代码：

# 先构造示例数据（两个等长的data.table列表）
library(data.table)
list1 <- list(
  dt1a = data.table(x = 1:3),
  dt1b = data.table(x = 4:6),
  dt1c = data.table(x = 7:9)
)

list2 <- list(
  dt2a = data.table(y = 10:12),
  dt2b = data.table(y = 13:15),
  dt2c = data.table(y = 16:18)
)

# 执行逐元素cbind
list3 <- mapply(cbind, list1, list2, SIMPLIFY = FALSE)

# 查看结果
list3$dt1a  # 对应cbind(dt1a, dt2a)

方法二：用tidyverse的purrr::map2()函数 #

如果你平时常用tidyverse生态，purrr包的map2()函数专门用来处理两个等长列表的逐元素操作，代码更直观，完全贴合你想要的“zip”函数逻辑：

示例代码：

library(purrr)
library(data.table)

# 复用上面的list1和list2
list3 <- map2(list1, list2, cbind)

# 验证结果
list3[[2]]  # 对应cbind(dt1b, dt2b)

这两种方法都能完美实现你要的效果，把两个列表的对应data.table逐列合并成新的列表元素。

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