cbind Elemente aus mehreren Listen rekursiv

Question

Bei drei (oder n Listen):

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

Was würde über die n Listen, eine effizientere Art und Weise des cbind ind jedes Listenelement sein, um dieses Ergebnis zu bekommen?

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" 

Dies funktioniert in Ordnung, wenn n2 oder 3 ist aber geht zu werden ist schnell lächerlich komplex. Gibt es eine effizientere Variante? Ich habe ähnliche Fragen zu S.O. aber haben gekämpft, um sie anzupassen.

Answer 1

Oder wie folgt aus:.

mapply(cbind, one, two, three) 

Oder wie folgt aus:

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

Answer 2

Verwenden Reduce und Map (Map ist ein einfacher Wrapper für mapply(..., SIMPLIFY = FALSE)

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

Wenn Reduce mit oder die meisten der funktionalen Programmierung Basisfunktionen in R, Sie können in der Regel nicht Argumente in ... passieren, so dass Sie normalerweise brauchen zu schreiben, eine kleine anonyme Funktion zu tun, was Sie wollen

Answer 3

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