如何重新整理列表从宽到长

Question

我有一个具有共同结构的列表列表

require(data.table)
l <- list(a1 = list(b=data.table(rnorm(3)), c=data.table(rnorm(3)), d=data.table(rnorm(3))),
          a2 = list(b=data.table(rnorm(3)), c=data.table(rnorm(3)), d=data.table(rnorm(3))))

有时lapply更容易将结构从2x3列表更改为3x2列表，如：

+a1---b         +b---a1
   ---c           ---a2
   ---d         +c---a1
+a2---b    to     ---a2
   ---c         +d---a1
   ---d           ---a2

有没有惯用的方法呢？

是否可以在不复制所有表格的情况下完成（可能非常大）？

Answer 1

我认为purrr::transpose()正是您所寻找的。

(ll = purrr::transpose(l))
# $b
# $b$a1
#            V1
# 1: -0.9615584
# 2: -0.8849469
# 3:  0.4831375
# 
# $b$a2
#            V1
# 1:  0.4634884
# 2: -0.7079083
# 3: -0.4366986
# 
# 
# $c
# $c$a1
#            V1
# 1:  0.4710617
# 2: -0.4927592
# 3: -1.3484420
# 
# $c$a2
#            V1
# 1: -0.4547821
# 2:  0.5752723
# 3:  0.6272826
# 
# 
# $d
# $d$a1
#             V1
# 1:  0.80827129
# 2: -0.03640465
# 3: -1.89417912
# 
# $d$a2
#            V1
# 1:  0.1844341
# 2:  0.4557670
# 3: -0.5714462

检查尺寸：

length(ll)
# [1] 3
sapply(ll, length)
# b c d 
# 2 2 2 

它looks like its implemented in C所以我的猜测是效率得到了相当好的优化，并且不必要的复制被最小化。