如何在 R 矩阵中查找具有相同名称的列的行中位数?


要查找 R 矩阵中具有相同名称的列的行中位数,我们可以按照以下步骤操作:

  • 首先,创建一个一些列具有相同名称的矩阵。

  • 然后,使用 tapply 结合 colnames 和 median 函数来查找具有相同名称的列的行中位数。

示例

创建矩阵

让我们创建一个如下所示的矩阵:

M<-matrix(rpois(150,10),ncol=6)
colnames(M)<-c("C1","C1","C2","C2","C1","C2")
M

输出

执行上述脚本后,将生成以下输出(此输出由于随机化而在您的系统上会有所不同):

      C1 C1 C2 C2  C1 C2
[1,]   7  2  7 13  4 10
[2,]  20  8 10  8 15 12
[3,]   8 11  6 19  9 11
[4,]  10 10  9  8  8  8
[5,]   7 17 10  9  9 10
[6,]   9 10  8  6 11 13
[7,]   8  7 10 11  7 13
[8,]   8 11 10 16  4  9
[9,]  12  8 13  7  8  9
[10,]  6  7  7 14 15 11
[11,]  9  6 17 12 12 13
[12,] 11  8  8 10 13  8
[13,]  9  9  9  8  6 10
[14,]  7 11 11  8 11 11
[15,] 13 13  9 10 10 12
[16,]  5 10  4 13 15  6
[17,]  8 10  6  8 12  3
[18,]  8  9 10  8  7  7
[19,] 14 14 14  8  3 11
[20,]  7 13 10  8  8  9
[21,]  7 10  8  5 15  9
[22,]  8  8  5  8 11 13
[23,]  9 13  4  9  6 19
[24,] 12 11  5  7  7  7
[25,] 14 12  8 10 12  4

查找具有相同名称的列的行中位数

使用 tapply 结合 colnames 和 median 函数来查找矩阵 M 中具有相同名称的列的行中位数:

M<-matrix(rpois(150,10),ncol=6)
colnames(M)<-c("C1","C1","C2","C2","C1","C2")
t(apply(M,1, function(x) tapply(x,colnames(M),median)))

输出

      C1 C2
[1,]   4 10
[2,]  15 10
[3,]   9 11
[4,]  10  8
[5,]   9 10
[6,]  10  8
[7,]   7 11
[8,]   8 10
[9,]   8  9
[10,]  7 11
[11,]  9 13
[12,] 11  8
[13,]  9  9
[14,] 11 11
[15,] 13 10
[16,] 10  6
[17,] 10  6
[18,]  8  8
[19,] 14 11
[20,]  8  9
[21,] 10  8
[22,]  8  8
[23,]  9  9
[24,] 11  7
[25,] 12  8

更新时间: 2021年11月12日

126 次浏览

开启您的 职业生涯

通过完成课程获得认证

开始学习
广告