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行和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

在R中按比例放大矩阵

1 个答案: