Большинство голосов в R

Question

У меня есть dataframe, который я хочу рассчитать большинством голосов на коэффициент, например.

item category 
1  2 
1  3 
1  2 
1  2 
2  2 
2  3 
2  1 
2  1 

Выход должен быть

item majority_vote 
1  2 
2  NA 

Вы можете распознать данные примера из here, но я не хочу, чтобы режим, я хочу, чтобы получить фактическое большинство голосов (что означает более чем 1/2 люди выбрали этот вариант). Следовательно, «пункт 2» не должен иметь большинства.

table(), похоже, не помогает мне, потому что which.max() предоставит мне только модное значение. Мне нужно знать 3 вещи, количество голосов, которые у меня есть, имя этого параметра и количество голосов, проголосовавших за выбор. Я могу получить первые два с tapply(all_results_filtered$q1, all_results_filtered$X_row_id ,function(x) length(x)) и tapply(all_results_filtered$q1, all_results_filtered$X_row_id ,function(x) as.numeric(names(which.max(table(x))))), но как я могу получить количество голосов за which.max(table(x))

Или ... есть некоторые простой способ, что я не хватает? Спасибо!

Answer 1

Вот dplyr вариант:

library(dplyr) 
df %>% 
     group_by(item, category) %>% 
     mutate(votes = n()) %>% 
     group_by(item) %>% 
     summarise(majority_vote = category[votes > n()/2][1]) 

# A tibble: 2 x 2 
# item majority_vote 
# <int>   <int> 
#1  1    2 
#2  2   NA