mục cbind từ nhiều danh sách đệ quy

Question

Với ba (hoặc n danh sách):

one <- list(a=1:2,b="one") 
two <- list(a=2:3,b="two") 
three <- list(a=3:4,b="three") 

Điều gì sẽ là một cách hiệu quả hơn cbind ind mỗi mục trên n danh sách, để có được kết quả này?

mapply(cbind,mapply(cbind,one,two,SIMPLIFY=FALSE),three,SIMPLIFY=FALSE) 

$a 
    [,1] [,2] [,3] 
[1,] 1 2 3 
[2,] 2 3 4 

$b 
    [,1] [,2] [,3] 
[1,] "one" "two" "three" 

này hoạt động ổn khi n là 2 hoặc 3 nhưng nhanh chóng sẽ trở thành lố bịch phức tạp. Có một biến thể hiệu quả hơn về điều này không? Tôi đã thấy những câu hỏi tương tự trên S.O. nhưng phải vật lộn để thích ứng với chúng.

Answer 1

Hoặc như thế này:

mapply(cbind, one, two, three) 

Hoặc như thế này:

mylist <- list(one, two, three) 
do.call(mapply, c(cbind, mylist)) 

Answer 2

Sử dụng Reduce và Map (Map là một wrapper đơn giản cho mapply(..., SIMPLIFY = FALSE)

Reduce(function(x,y) Map(cbind, x, y),list(one, two,three)) 

Khi sử dụng Reduce hoặc hầu hết các chức năng cơ bản lập trình chức năng trong R, bạn thường không thể vượt qua đối số trong ... vì vậy bạn thường cần để viết một chức năng ẩn danh nhỏ để làm những gì bạn muốn.

Answer 3

sep.list <- unlist(list(one, two, three), recursive = FALSE) 
lapply(split(sep.list, names(sep.list)), do.call, what = cbind)