如何除R中不包括0的每行中的最大值划分矩阵行?
要将矩阵行值除以R中不包括0的最大行值,我们可以按照以下步骤操作-
首先,创建一个矩阵。
然后,使用apply函数和ifelse函数将矩阵行值除以行最大值(不包括0)。
创建矩阵
让我们创建一个矩阵,如下所示-
M<-matrix(rpois(75,1),ncol=3) M
执行时,上述脚本生成以下内容output(thisoutputwillvaryonyoursystemduetorandomization)-
[,1] [,2] [,3] [1,] 2 0 1 [2,] 1 2 0 [3,] 4 1 1 [4,] 2 1 0 [5,] 1 2 0 [6,] 0 2 0 [7,] 0 2 1 [8,] 2 1 0 [9,] 3 1 1 [10,] 1 2 1 [11,] 1 3 0 [12,] 1 2 0 [13,] 1 1 0 [14,] 0 1 1 [15,] 0 1 0 [16,] 2 1 1 [17,] 1 0 1 [18,] 0 1 1 [19,] 1 1 0 [20,] 0 0 2 [21,] 0 1 2 [22,] 1 1 0 [23,] 0 2 3 [24,] 2 0 1 [25,] 0 2 0
将矩阵行值除以行最大值(不包括0)
使用apply函数将M的行值除以行最大值(不包括0)-
M<-matrix(rpois(75,1),ncol=3) M_new<-t(apply(M,1, function(x) if (0 %in% x) x else x/max(x))) M_new
输出
[,1] [,2] [,3] [1,] 2.0 0.0000000 1.0000000 [2,] 1.0 2.0000000 0.0000000 [3,] 1.0 0.2500000 0.2500000 [4,] 2.0 1.0000000 0.0000000 [5,] 1.0 2.0000000 0.0000000 [6,] 0.0 2.0000000 0.0000000 [7,] 0.0 2.0000000 1.0000000 [8,] 2.0 1.0000000 0.0000000 [9,] 1.0 0.3333333 0.3333333 [10,] 0.5 1.0000000 0.5000000 [11,] 1.0 3.0000000 0.0000000 [12,] 1.0 2.0000000 0.0000000 [13,] 1.0 1.0000000 0.0000000 [14,] 0.0 1.0000000 1.0000000 [15,] 0.0 1.0000000 0.0000000 [16,] 1.0 0.5000000 0.5000000 [17,] 1.0 0.0000000 1.0000000 [18,] 0.0 1.0000000 1.0000000 [19,] 1.0 1.0000000 0.0000000 [20,] 0.0 0.0000000 2.0000000 [21,] 0.0 1.0000000 2.0000000 [22,] 1.0 1.0000000 0.0000000 [23,] 0.0 2.0000000 3.0000000 [24,] 2.0 0.0000000 1.0000000 [25,] 0.0 2.0000000 0.0000000