如何透過加法合併 R 矩陣中的兩行?


如需透過加法合併 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 中移除第 2 行:

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

更新於: 2021 年 11 月 08 日

834 次瀏覽

啟動您的 職業

透過完成課程獲得認證

開始
廣告
© . All rights reserved.