r - 使用for循环在R中创建一个更大的矩阵w original？

Question

在 R 中，我有一个矩阵......

data1 <- c(9,8,7,6,5,4,3,2,1,10,11,12,13,14,15)
matrix_1 <- matrix(data1,nrow=5,ncol=3,byrow=T)

现在应该创建矩阵

     [,1] [,2] [,3]
[1,]    9    8    7
[2,]    6    5    4
[3,]    3    2    1
[4,]   10   11   12
[5,]   13   14   15

我的目标是创建一个 6x4 矩阵，其中前 5 行和 3 列具有相同的矩阵，然后剩余的行和列是相应行或列的总和，然后右下角的单个额外点是整个第一个矩阵(matrix_1)的总和。

我假设我需要使用 for 循环，但我不知道如何获得它。谢谢。

我尝试稍微弄乱 for 循环，但我仍然不知道要为第二个矩阵求和，以及如何在正确的点切断循环。

Answer 1

Base R 有一个 addmargins() 方便的函数。默认返回矩阵或数组的所有边距的总和。

addmargins(matrix_1)

             Sum
     9  8  7  24
     6  5  4  15
     3  2  1   6
    10 11 12  33
    13 14 15  42
Sum 41 40 39 120