convertir una matriz de listas a una matriz regular

Question

Tome el siguiente código:

foo <- list() 
foo[[1]] <- list(a=1, b=2) 
foo[[2]] <- list(a=11, b=22) 
foo[[3]] <- list(a=111, b=222) 
result <- do.call(rbind, foo) 
result[,'a'] 

En este caso, result[,'a'] muestra una lista. ¿Hay una manera más elegante tal que result es una matriz "regular" de vectores? Me imagino que hay formas manuales de resolver esto, pero me preguntaba si había un paso obvio que me estaba perdiendo.

Answer 1

do.call en las listas es muy elegante, y rápido. De hecho, do.call (rbind, my.list) una vez me salvó el culo cuando necesitaba combinar una gran lista. Fue, de lejos, la solución más rápida.

para resolver su problema, tal vez algo como:

do.call(rbind, lapply(foo, unlist)) 


> result.2 <- do.call(rbind, lapply(foo, unlist)) 
> result.2 
     a b 
[1,] 1 2 
[2,] 11 22 
[3,] 111 222 
> result.2[, 'a'] 
[1] 1 11 111 
> 

Answer 2

Una posible solución es la siguiente (pero estoy interesado en las alternativas):

new.result <- matrix(unlist(result), ncol=ncol(result), 
       dimnames=list(NULL, colnames(result)))