Question

我的矩阵具有以下形式的不同列数：

1  10  10 10 15
2  14  14 13 13
4  19  19 20 21
6  32  32 20 15

我想为每一行选择多数产生以下输出：

Answer 1

像table似乎几乎可以满足您的需求，但必须按摩输出。 Compose是一种有趣的方法：

require(functional)
apply(m, 1, Compose(table,
                    function(i) i==max(i),
                    which,
                    names,
                    function(i) paste0(i, collapse='/')
                    )
      )

## [1] "10"    "13/14" "19"    "32"

Answer 2

可能的答案之一：

# over each row of data.frame (or matrix)
sapply(1:nrow(x), function(idx) {
# get the number of time each entry in df occurs
    t <- table(t(x[idx, ]))
# get the maximum count (or frequency)
    t.max <- max(t)
# get all values that equate to maximum count
    t <- as.numeric(names(t[t == t.max]))
})

Answer 3

延迟添加，但是当值都是正数时，如您的示例所示，您还可以：

apply(x, 1, function(idx) {
     which(tabulate(idx) == max(tabulate(idx)))
     })

没有第一栏：

 apply(x[,-1], 1, function(idx) {
     which(tabulate(idx) == max(tabulate(idx)))
     })

最后调整你的输出：

s <- apply(x[,-1], 1, function(idx) {
     which(tabulate(idx) == max(tabulate(idx)))
     })
sapply(s, paste, sep="", collapse="/")

[1] "10"    "13/14" "19"    "32"

使用r选择矩阵中每行的多数

3 个答案: