按行将矩阵列表组合到单个矩阵中

时间:2013-04-19 17:45:09

标签: r

假设我有一个矩阵列表(所有列都相同)。我如何按行('row bind',rbind)追加/组合这些矩阵以获得单个矩阵?

样品:

> 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)

现在我们可以在列表中包含许多矩阵,假设我们只有两个:

l <- list(m1, m2)

我想实现类似的目标:

> 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

我可以在2个矩阵上轻松完成,但我不知道如何使用矩阵列表。

2 个答案:

答案 0 :(得分:50)

使用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

您可能还对“plyr”包中的rbind.fill.matrix()函数感兴趣,该函数还允许您使用不同的列绑定矩阵,并在必要时填写NA

> 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

答案 1 :(得分:8)

使用Reduce(...)的其他选项,但我认为效率低于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

如果您有data.frame而非matrix,则另一个选项是使用rbindlist包中的data.table。在这里,我在调用它之前转换为data.frame:

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