r - 如何对嵌套列表的元素进行分组？

Question

我想在 R 中对嵌套列表的元素进行分组，最好的解决方案是什么？

nest1 <- list(item1 = 1, item2 = "a")
nest2 <- list(item1 = 3, item2 = "b")
li <- list(nest1, nest2)
> li
[[1]]
[[1]]$item1
[1] 1

[[1]]$item2
[1] "a"


[[2]]
[[2]]$item1
[1] 3

[[2]]$item2
[1] "b"

我想要实现的是这样的:

[[1]]
[[1]]$item1
[[1]] 1 3

[[1]]$item2
[[1]] "a" "b"

我尝试了多种方式使用 lapply，但没有给出预期的结果。

lapply(li, "[[", c("item1", "item2"))

Answer 1

使用基地:

as.list(do.call(rbind, lapply(li, data.frame, stringsAsFactors = FALSE)))

# $item1
# [1] 1 3
# 
# $item2
# [1] "a" "b"