transpose nested list

Question

I have a list structure which represents a table being handed to me like this

> l = list(list(1, 4), list(2, 5), list(3, 6))
> str(l)
List of 3
 $ :Lis         


        

Answer 1

Here is one idea with unlisting each list i.e.

split(do.call(cbind, lapply(l, unlist)), seq(unique(lengths(l))))

which gives,

$`1`
[1] 1 2 3

$`2`
[1] 4 5 6