如何通过加法合并R矩阵中的两行?
要通过加法合并R矩阵中的两行,我们可以按照以下步骤操作-
首先,创建一个矩阵。
然后,使用加号(+)将两行相加并将相加存储在其中一行中。
之后,删除不需要的行,用单个方括号进行子集化。
示例
创建矩阵
让我们创建一个矩阵,如下所示-
M<-matrix(sample(1:5,100,replace=TRUE),ncol=4) M输出结果
执行时,上述脚本生成以下内容output(thisoutputwillvaryonyoursystemduetorandomization)-
[,1] [,2] [,3] [,4] [1,] 4 4 2 1 [2,] 5 4 4 4 [3,] 1 1 5 3 [4,] 1 4 4 4 [5,] 5 1 1 3 [6,] 3 1 2 1 [7,] 4 4 5 2 [8,] 3 4 2 1 [9,] 2 2 4 4 [10,] 4 1 1 2 [11,] 5 3 1 2 [12,] 3 1 2 4 [13,] 3 3 2 3 [14,] 3 3 1 1 [15,] 5 5 5 5 [16,] 4 1 2 5 [17,] 4 2 5 1 [18,] 3 4 1 5 [19,] 5 3 4 4 [20,] 2 5 1 1 [21,] 5 3 5 5 [22,] 2 4 2 3 [23,] 5 5 2 5 [24,] 3 5 4 1 [25,] 4 1 2 5
添加两行
使用加号将第1行和第2行相加,然后将总和存储在第1行-
M<-matrix(sample(1:5,100,replace=TRUE),ncol=4) M[1,]<-M[1,]+M[2,] M输出结果
[,1] [,2] [,3] [,4] [1,] 9 8 6 5 [2,] 5 4 4 4 [3,] 1 1 5 3 [4,] 1 4 4 4 [5,] 5 1 1 3 [6,] 3 1 2 1 [7,] 4 4 5 2 [8,] 3 4 2 1 [9,] 2 2 4 4 [10,] 4 1 1 2 [11,] 5 3 1 2 [12,] 3 1 2 4 [13,] 3 3 2 3 [14,] 3 3 1 1 [15,] 5 5 5 5 [16,] 4 1 2 5 [17,] 4 2 5 1 [18,] 3 4 1 5 [19,] 5 3 4 4 [20,] 2 5 1 1 [21,] 5 3 5 5 [22,] 2 4 2 3 [23,] 5 5 2 5 [24,] 3 5 4 1 [25,] 4 1 2 5
删除不需要的行
使用单正方形子集以除去2次从矩阵M行-
M<-matrix(sample(1:5,100,replace=TRUE),ncol=4) M[1,]<-M[1,]+M[2,] M[-2,]输出结果
[,1] [,2] [,3] [,4] [1,] 9 8 6 5 [2,] 1 1 5 3 [3,] 1 4 4 4 [4,] 5 1 1 3 [5,] 3 1 2 1 [6,] 4 4 5 2 [7,] 3 4 2 1 [8,] 2 2 4 4 [9,] 4 1 1 2 [10,] 5 3 1 2 [11,] 3 1 2 4 [12,] 3 3 2 3 [13,] 3 3 1 1 [14,] 5 5 5 5 [15,] 4 1 2 5 [16,] 4 2 5 1 [17,] 3 4 1 5 [18,] 5 3 4 4 [19,] 2 5 1 1 [20,] 5 3 5 5 [21,] 2 4 2 3 [22,] 5 5 2 5 [23,] 3 5 4 1 [24,] 4 1 2 5