r - cbind 列表的第二个元素在一起

Question

我有像下面的 biglist 示例这样的数据，它是 2 个 2 个列表的列表。我想将每个列表中的第二个列表 cbind 一起像下面的结果示例一样。通常，我会尝试类似 lapply(biglist,cbind) 但我不知道如何使用列表列表。

Data:
dput(biglist)
list(list(list(1, 2, 3), list(5, 4, 6)), list(list(5, 9, 2), 
list(4, 6, 1)))

Result:
dput(result)
structure(list(4, 6, 1, 5, 4, 6), .Dim = c(3L, 2L)

Answer 1

这是另一个带有 mapply

的版本

mapply(`[[`, biglist, 2)
#   [,1] [,2]
#[1,] 5    4   
#[2,] 4    6   
#[3,] 6    1