如何通过加法将 R 矩阵中的两行合并?
r programmingserver side programmingprogramming更新于 2025/4/8 21:07:17
要通过加法将 R 矩阵中的两行合并，我们可以按照以下步骤 −
首先，创建一个矩阵。
然后，使用加号 (+) 添加两行并将加法存储在其中一行中。
之后，通过使用单个方括号进行子集化来删除不需要的行。
示例
创建矩阵
让我们创建一个如下所示的矩阵 −
M<-matrix(sample(1:5,100,replace=TRUE),ncol=4) M
输出
执行时，上述脚本会生成以下输出(由于随机化，此输出将因您的系统而异) −
[,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
删除不需要的行
使用单平方子集从矩阵 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
