Counting указать значение по столбцам в г

Question

У меня есть таблица, которая выглядит примерно так:

v1 v2 v3 
pos neg pos 
pos pos pos 
neg neg neg 

Я хочу, чтобы создать еще один столбец, который имеет победителя между другими тремя колоннами

v1 v2 v3 v4 
pos neg pos pos 
pos pos pos pos 
neg neg neg neg 

Answer 1

Другая возможность:

mydf$v4 <- apply(mydf, 1, function(x) names(which.max(table(x)))) 

, который дает:

> mydf 
    v1 v2 v3 v4 
1 pos neg pos pos 
2 pos pos pos pos 
3 neg neg neg neg 

Answer 2

As " победитель»означает, что большинство, следующие будут работать:

df$v4 <- ifelse(rowMeans(df == "neg") > 0.5, "neg", "pos") 

df$v4 
[1] "pos" "pos" "neg" 

Это использует rowMeans для вычислить долю элементов в каждой строке, которые являются «минус». Этот результат отправляется в ifelse, где, если доля больше 0,5 в строке, возвращается «neg», в противном случае возвращается «pos».

Обратите внимание, что столбцы должны быть символами. Вот почему я использую следующий аргумент as.is = TRUE.

данные

df <- read.table(header = TRUE, text = "v1 v2 v3 
pos neg pos 
pos pos pos 
neg neg neg", as.is = TRUE)