从 R 中的较小矩阵创建更大的矩阵

Question

我在名为“Disintegration T1”的文件夹中有一系列文本文件，如下所示：

> 1.txt
0   0   0   0   1
1   0   0   0   1
0   1   0   0   1
0   0   0   0   0
1   1   1   1   0
> 2.txt
0   1   1   0   1
0   0   1   1   1
1   1   0   1   1
1   1   1   0   1
0   0   0   0   1
> 3.txt
0   1   1   1
1   0   0   0
0   0   0   0
1   0   0   0

这些文件都是 4X4 或 5X5。它们必须作为矩阵读入，因为数据用于社交网络分析。我的目标是自动化将这些矩阵放入更大矩阵的过程，使这些矩阵彼此直接对角，并且在更大矩阵的空白处输入 0。在这种情况下，最终结果将如下所示：

> mega_matrix
0   0   0   0   1   0   0   0   0   0   0   0   0   0
1   0   0   0   1   0   0   0   0   0   0   0   0   0
0   1   0   0   1   0   0   0   0   0   0   0   0   0
0   0   0   0   0   0   0   0   0   0   0   0   0   0
1   1   1   1   0   0   0   0   0   0   0   0   0   0
0   0   0   0   0   0   1   1   0   1   0   0   0   0
0   0   0   0   0   0   0   1   1   1   0   0   0   0
0   0   0   0   0   1   1   0   1   1   0   0   0   0
0   0   0   0   0   1   1   1   0   1   0   0   0   0
0   0   0   0   0   0   0   0   0   1   0   0   0   0
0   0   0   0   0   0   0   0   0   0   0   1   1   1
0   0   0   0   0   0   0   0   0   0   1   0   0   0
0   0   0   0   0   0   0   0   0   0   0   0   0   0
0   0   0   0   0   0   0   0   0   0   1   0   0   0

谢谢！

Answer 1

你想要来自 Matrix 包的bdiag：

library(Matrix)
bdiag(matrix1, matrix2, matrix3)

并完成整个目录（感谢 cmets 中的@user20650）：

bdiag(lapply(dir(), function(x){as.matrix(read.table(x))}))