Как создать матрицу из списка векторов в R?

Question

Цель: из списка векторов равной длины создать матрицу, где каждый вектор станет строкой.

Пример:

> a <- list() 
> for (i in 1:10) a[[i]] <- c(i,1:5) 
> a 
[[1]] 
[1] 1 1 2 3 4 5 

[[2]] 
[1] 2 1 2 3 4 5 

[[3]] 
[1] 3 1 2 3 4 5 

[[4]] 
[1] 4 1 2 3 4 5 

[[5]] 
[1] 5 1 2 3 4 5 

[[6]] 
[1] 6 1 2 3 4 5 

[[7]] 
[1] 7 1 2 3 4 5 

[[8]] 
[1] 8 1 2 3 4 5 

[[9]] 
[1] 9 1 2 3 4 5 

[[10]] 
[1] 10 1 2 3 4 5 

Я хочу:

 [,1] [,2] [,3] [,4] [,5] [,6] 
[1,] 1 1 2 3 4 5 
[2,] 2 1 2 3 4 5 
[3,] 3 1 2 3 4 5 
[4,] 4 1 2 3 4 5 
[5,] 5 1 2 3 4 5 
[6,] 6 1 2 3 4 5 
[7,] 7 1 2 3 4 5 
[8,] 8 1 2 3 4 5 
[9,] 9 1 2 3 4 5 
[10,] 10 1 2 3 4 5 

Answer 1

Одним из вариантов является использование do.call():

> do.call(rbind, a) 
     [,1] [,2] [,3] [,4] [,5] [,6] 
[1,] 1 1 2 3 4 5 
[2,] 2 1 2 3 4 5 
[3,] 3 1 2 3 4 5 
[4,] 4 1 2 3 4 5 
[5,] 5 1 2 3 4 5 
[6,] 6 1 2 3 4 5 
[7,] 7 1 2 3 4 5 
[8,] 8 1 2 3 4 5 
[9,] 9 1 2 3 4 5 
[10,] 10 1 2 3 4 5 

Answer 2

не просто, но это работает:

> t(sapply(a, unlist)) 
     [,1] [,2] [,3] [,4] [,5] [,6] 
[1,] 1 1 2 3 4 5 
[2,] 2 1 2 3 4 5 
[3,] 3 1 2 3 4 5 
[4,] 4 1 2 3 4 5 
[5,] 5 1 2 3 4 5 
[6,] 6 1 2 3 4 5 
[7,] 7 1 2 3 4 5 
[8,] 8 1 2 3 4 5 
[9,] 9 1 2 3 4 5 
[10,] 10 1 2 3 4 5 

Answer 3

> library(plyr) 
> as.matrix(ldply(a)) 
     V1 V2 V3 V4 V5 V6 
[1,] 1 1 2 3 4 5 
[2,] 2 1 2 3 4 5 
[3,] 3 1 2 3 4 5 
[4,] 4 1 2 3 4 5 
[5,] 5 1 2 3 4 5 
[6,] 6 1 2 3 4 5 
[7,] 7 1 2 3 4 5 
[8,] 8 1 2 3 4 5 
[9,] 9 1 2 3 4 5 
[10,] 10 1 2 3 4 5 

Answer 4

t(sapply(a, '[', 1:max(sapply(a, length)))) 

где «a» - это список. Работает для неравных размеров ряда

Answer 5

Функция matrix имеет хорошую возможность ввести данные byrow. Объедините, что с unlist в вашем исходном списке даст вам матрицу. Нам также необходимо указать количество строк, чтобы они могли разбить данные, не включенные в список. То есть:

> matrix(unlist(a), byrow=TRUE, nrow=length(a)) 
     [,1] [,2] [,3] [,4] [,5] [,6] 
[1,] 1 1 2 3 4 5 
[2,] 2 1 2 3 4 5 
[3,] 3 1 2 3 4 5 
[4,] 4 1 2 3 4 5 
[5,] 5 1 2 3 4 5 
[6,] 6 1 2 3 4 5 
[7,] 7 1 2 3 4 5 
[8,] 8 1 2 3 4 5 
[9,] 9 1 2 3 4 5 
[10,] 10 1 2 3 4 5 

Answer 6

simplify2array - это базовая функция, которая довольно интуитивно понятна. Однако, поскольку по умолчанию R поначалу заполняет данные по столбцам, вам нужно будет транспонировать результат. (sapply использует simplify2array, как описано в help(sapply).)

> t(simplify2array(a)) 
     [,1] [,2] [,3] [,4] [,5] [,6] 
[1,] 1 1 2 3 4 5 
[2,] 2 1 2 3 4 5 
[3,] 3 1 2 3 4 5 
[4,] 4 1 2 3 4 5 
[5,] 5 1 2 3 4 5 
[6,] 6 1 2 3 4 5 
[7,] 7 1 2 3 4 5 
[8,] 8 1 2 3 4 5 
[9,] 9 1 2 3 4 5 
[10,] 10 1 2 3 4 5