R - 选择连续出现的数字

Question

我有一个df test ：

A   B   C
1   1   NA
2   NA  NA
1   2   2

我想创建另一个列，比如test$D ，这是该行中出现最多的数字，不包括NA。 我想要的df是：

A   B   C   D
1   1   NA  1
2   NA  NA  2
1   2   2   2

我一直在寻找像rowMeans这样的类似函数，na.rm = T但是找不到适合这种情况的函数。 真的很感激任何帮助

Answer 1

使用table另一种选择，

apply(test, 1, function(i) as.numeric(names(sort(-table(i)))[1]))
#[1] 1 2 2

Answer 2

我们可以使用apply与MARGIN = 1找到每一行的数字的频率，并使用获得的最大频率数which.max

test$D <- apply(test, 1, FUN = function(x) {
        x1 <- table(factor(x, levels = unique(x)))
          as.numeric(names(x1)[which.max(x1)])})
test$D
#[1] 1 2 2