r - 在 R 中按比例放大矩阵

Question

我有一个 2 行 2 列的矩阵，想放大这个矩阵，使其有 4 行 4 列，其中包含相同的值。就好像人们会“放大”矩阵一样。

这是我的 2*2 矩阵:

a<-matrix(1:4,nrow=2,byrow=TRUE)

     [,1] [,2]
[1,]    1    2
[2,]    3    4

我想转换这个矩阵，使它看起来像这样:

     [,1] [,2] [,3] [,4]
[1,]    1    1    2    2
[2,]    1    1    2    2
[3,]    3    3    4    4
[4,]    3    3    4    4

我简化了问题:矩阵中的值只是一个例子。我要转换的真实矩阵由10行和列组成，应该转换为30行和30列，但原理应该是一样的。
我即将用循环来解决这个问题，但我相信一定有更优雅的方法。

Answer 1

见 Kronecker product

enlarge <- function(m, k) kronecker(m, matrix(1, k, k))
enlarge(a, 2)
#      [,1] [,2] [,3] [,4]
# [1,]    1    1    2    2
# [2,]    1    1    2    2
# [3,]    3    3    4    4
# [4,]    3    3    4    4
enlarge(a, 3)
#      [,1] [,2] [,3] [,4] [,5] [,6]
# [1,]    1    1    1    2    2    2
# [2,]    1    1    1    2    2    2
# [3,]    1    1    1    2    2    2
# [4,]    3    3    3    4    4    4
# [5,]    3    3    3    4    4    4
# [6,]    3    3    3    4    4    4