Question

我有一个看起来像这样的表：

       1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30
  586  0 0 0 1 0 0 0 1 3  1  0  1  0  0  0  0  0  1  0  2  0  3  0  0  0  4  0  1  2  0
  637  0 0 0 0 0 0 2 3 2  2  0  4  0  0  0  0  1  0  0  2  0  1  1  1  0  0  0  0  0  1
  989  0 0 1 0 0 0 2 1 0  0  0  2  1  0  0  1  2  1  0  3  0  2  0  1  1  0  1  0  1  0
  1081 0 0 0 1 0 0 1 0 1  1  0  0  2  0  0  0  0  0  0  3  0  5  0  0  2  1  0  1  1  1
  2922 0 1 1 1 0 0 0 2 1  0  0  0  2  0  0  0  1  1  0  1  0  3  1  1  2  0  0  1  0  1
  3032 0 1 0 0 0 0 0 3 0  0  1  0  2  1  0  1  0  1  1  0  0  3  1  1  1  1  0  0  1  1

第一行中的数字1到30是我的标签，列是我的项目。我想为每个项目找到计数最多的标签。例如。 586有4个26的计数，这是该行中的最高数，所以对于586，我想分配26。

我能够获得max（table1 [1，]））的每一行的最大值，这会得到第一行的最大值，但不会得到它对应的标签，但我不知道我不知道如何继续感谢所有帮助！

dput：

structure(c(0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 1L, 1L, 0L, 
0L, 1L, 0L, 1L, 0L, 1L, 0L, 0L, 1L, 1L, 0L, 0L, 0L, 0L, 0L, 0L, 
0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 2L, 2L, 1L, 0L, 0L, 1L, 3L, 1L, 
0L, 2L, 3L, 3L, 2L, 0L, 1L, 1L, 0L, 1L, 2L, 0L, 1L, 0L, 0L, 0L, 
0L, 0L, 0L, 0L, 1L, 1L, 4L, 2L, 0L, 0L, 0L, 0L, 0L, 1L, 2L, 2L, 
2L, 0L, 0L, 0L, 0L, 0L, 1L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 1L, 
0L, 0L, 1L, 0L, 1L, 2L, 0L, 1L, 0L, 1L, 0L, 1L, 0L, 1L, 1L, 0L, 
0L, 0L, 0L, 0L, 1L, 2L, 2L, 3L, 3L, 1L, 0L, 0L, 0L, 0L, 0L, 0L, 
0L, 3L, 1L, 2L, 5L, 3L, 3L, 0L, 1L, 0L, 0L, 1L, 1L, 0L, 1L, 1L, 
0L, 1L, 1L, 0L, 0L, 1L, 2L, 2L, 1L, 4L, 0L, 0L, 1L, 0L, 1L, 0L, 
0L, 1L, 0L, 0L, 0L, 1L, 0L, 0L, 1L, 1L, 0L, 2L, 0L, 1L, 1L, 0L, 
1L, 0L, 1L, 0L, 1L, 1L, 1L), .Dim = c(6L, 30L), .Dimnames = structure(list(
    c("586", "637", "989", "1081", "2922", "3032"), c("1", "2", 
    "3", "4", "5", "6", "7", "8", "9", "10", "11", "12", "13", 
    "14", "15", "16", "17", "18", "19", "20", "21", "22", "23", 
    "24", "25", "26", "27", "28", "29", "30")), .Names = c("", 
"")))

Answer 1

max.col将为您提供与每行最大值对应的列号向量。

> max.col(df, tie='first')
[1] 26 12 20 22 22 8

您可以使用该向量来获取每行的列名。

> colnames(df)[max.col(df, tie='first')]
[1] "26" "12" "20" "22" "22" "8"

Answer 2

也许您正在寻找which.max。假设您的矩阵称为“temp”：

> apply(temp, 1, which.max)
 586  637  989 1081 2922 3032 
  26   12   20   22   22    8

带有apply的<MARGIN = 1（第二个参数）将通过行应用一个函数。

如何在矩阵中查找最大值？

2 个答案: