2013-02-26 133 views
1

我有一个表,看起来像这样:如何在矩阵中查找最大值?

 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("", 
""))) 
+0

您正在寻找的输出的期望结构是什么? – A5C1D2H2I1M1N2O1R2T1 2013-02-26 17:02:44

回答

5

也许你正在寻找which.max。假设你的矩阵称为“温度”:

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

applyMARGIN = 1(第二个参数)将行应用功能。

+0

准确!谢谢,我会在几分钟内接受你的回答! – midde 2013-02-26 17:04:16

+0

击败我50秒,我删除了我的答案:D + 1! – 2013-02-26 17:04:34

+1

@Jilber,对不起!只是试图让我的配额在我称之为夜之前;) – A5C1D2H2I1M1N2O1R2T1 2013-02-26 17:05:35

8

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" 
+0

+1 for max.col;在 – RyanGrannell 2013-02-26 17:05:55

+1

之前,我从来没有遇到过这种功能,有时只是在R控制台上输入你想要做的事情(在这种情况下是最大的),并按下标签帮助;) – 2013-02-26 17:06:56

+1

同样在这里。首先我看过'max.col' ... +1 – A5C1D2H2I1M1N2O1R2T1 2013-02-26 17:07:09