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

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 Raddmargins()为此提供了方便的功能。默认返回矩阵或数组的所有边距之和。

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