将列表的一列分为R中的几列

Question

我有一个带有一个包含两个数字列表的列的数据框。我想分为两列。我找到了一个令人费解的解决方案，但希望有人可以对此进行改进。

我的解决方案：

column=list(c(1,2),c(3,4))

cols = list(1,length(column[[1]]))

# given a list, return the ith element
f = function(l, i) {
  return(l[i])
}
# apply function f to each column 
g = function(i) {
  sapply(column, f, i)
}
# for each column ...
sapply(cols, g)

这将提供所需的输出：

     [,1] [,2]
[1,]    1    2
[2,]    3    4