从列表列表中获取数据帧，但每个元素为一列

Question

我想从列表列表中创建一个数据框，其中结果数据框的每个元素都有一列，而行是单独的。很难解释，所以我将尝试产生一个示例进行处理。

可以说我的名单如下：

myList <- list(
  list(L=c(1,2,3),a=c(1,2,3),b=c(1,2,3)),
  list(L=c(4,5,6),a=c(4,5,6),b=c(4,5,6)),
  list(L=c(7,8,9),a=c(7,8,9),b=c(7,8,9)))

结果数据框将如下所示：

df <- data.frame(ind = c(1,2,3),
  L.1 = c(1,4,7),L.2 = c(2,5,8), L.3 = c(3,6,9),
  a.1 = c(1,4,7),a.2 = c(2,5,8), a.3 = c(3,6,9),
  b.1 = c(1,4,7),b.2 = c(2,5,8), b.3 = c(3,6,9))

我尝试使用

data.frame(do.call(rbind, myList))

df <- bind_rows(myList, .id="column_label")

但是它们每人产生三行，而不是所需的输出。

我也尝试使用：df <- bind_cols(myList)但这会将列划分为每个列表。

任何想法如何解决？

谢谢，前夕

Answer 1

如果名称始终是一对一匹配，则只需这样做，

do.call(rbind, lapply(myList, unlist))
#     L1 L2 L3 a1 a2 a3 b1 b2 b3
#[1,]  1  2  3  1  2  3  1  2  3
#[2,]  4  5  6  4  5  6  4  5  6
#[3,]  7  8  9  7  8  9  7  8  9

Answer 2

data.frame(unlist(myList,recursive = FALSE))？