Połączyć listę macierzy z pojedynczą macierzą według wierszy

Question

Załóżmy, że mam listę macierzy (wszystkie z taką samą liczbą kolumn). Jak mogę dołączyć/połączyć te macierze za pomocą wiersza ("powiązanie wiersza", rbind), aby uzyskać pojedynczą macierz?

Próbka:

> matrix(1, nrow=2, ncol=3) 
    [,1] [,2] [,3] 
[1,] 1 1 1 
[2,] 1 1 1 
> matrix(2, nrow=3, ncol=3) 
    [,1] [,2] [,3] 
[1,] 2 2 2 
[2,] 2 2 2 
[3,] 2 2 2 
> m1 <- matrix(1, nrow=2, ncol=3) 
> m2 <- matrix(2, nrow=3, ncol=3) 

Teraz możemy mieć wiele matryc w postaci listy, powiedzmy, mamy tylko dwa:

l <- list(m1, m2) 

chciałbym osiągnąć coś takiego:

> rbind(m1, m2) 
    [,1] [,2] [,3] 
[1,] 1 1 1 
[2,] 1 1 1 
[3,] 2 2 2 
[4,] 2 2 2 
[5,] 2 2 2 

Mogę łatwo zrobić to na 2 matrycach, ale nie jestem pewien, jak to zrobić z listą macierzy.

Answer 1

Zastosowanie do.call(rbind,...)

> m1 <- matrix(1, nrow=2, ncol=3) 
> m2 <- matrix(2, nrow=3, ncol=3) 
> l <- list(m1, m2) 
> do.call(rbind, l) 
    [,1] [,2] [,3] 
[1,] 1 1 1 
[2,] 1 1 1 
[3,] 2 2 2 
[4,] 2 2 2 
[5,] 2 2 2 

Możesz być także zainteresowany funkcją rbind.fill.matrix() z pakietu „plyr”, która pozwala także wiążą się matryce o różnych kolumn, wypełnienie z NA gdzie to konieczne.

> m1 <- matrix(1, nrow=2, ncol=3) 
> m2 <- matrix(2, nrow=3, ncol=4) 
> l <- list(m1, m2) 
> library(plyr) 
> rbind.fill.matrix(l) 
    1 2 3 4 
[1,] 1 1 1 NA 
[2,] 1 1 1 NA 
[3,] 2 2 2 2 
[4,] 2 2 2 2 
[5,] 2 2 2 2 

Answer 2

opcja Antother użyciu Reduce(...), ale myślę, że mniej wydajny niż do.call

m1 <- matrix(1, nrow=2, ncol=3) 
m2 <- matrix(2, nrow=3, ncol=3) 
l <- list(m1, m2) 
Reduce(rbind, l) 
    [,1] [,2] [,3] 
[1,] 1 1 1 
[2,] 1 1 1 
[3,] 2 2 2 
[4,] 2 2 2 
[5,] 2 2 2 

inną opcją, jeśli masz data.frame i nie matrix, jest użycie rbindlist z data.table opakowaniu. Tutaj konwertuję do data.frame przed wywołaniem go:

rbindlist(lapply(l,as.data.frame)) 
    V1 V2 V3 
1: 1 1 1 
2: 1 1 1 
3: 2 2 2 
4: 2 2 2 
5: 2 2 2