采摘从许多因素

Question

最常见的元件可以说我有3个因素，每个都具有2级：“A”和“b”：

> b <- factor(c('b', 'b', 'a')) 
> a <- factor(c('a', 'b', 'a')) 
> c <- factor(c('a', 'a', 'a')) 

我想创建第四因子上的每个位置包含这3个因素中最常见的元素，所以，在这个例子中，它应该是这样的：

> d 
[1] a b a 
Levels: a b 

有一些“平滑”功能执行这种操作的一种方式，还是我使用“if”条件？

Answer 1

我们可以尝试

factor(apply(data.frame(b, a, c), 1, Mode), levels = levels(a)) 
#[1] a b a 
#Levels: a b 

其中Mode是

Mode <- function(x) { 
ux <- unique(x) 
    ux[which.max(tabulate(match(x, ux)))] 
} 

Answer 2

这应该这样做。你不应该命名c，因为它表示连接函数。

bb <- factor(c('b', 'b', 'a')) 
aa <- factor(c('a', 'b', 'a')) 
cc <- factor(c('a', 'a', 'a')) 

dat <- data.frame(aa, bb, cc) 

dd <- factor(apply(dat, 1, function(x) names(sort(table(x), decreasing = TRUE))[1])) 

dd 

[1] a b a 
Levels: a b 

> dat 
    aa bb cc 
1 a b a 
2 b b a 
3 a a a