Mehrheitswahl in R

Question

Ich habe einen Datenrahmen, dass ich die Mehrheit mit einem Faktor, z.

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

Der Ausgang

item majority_vote 
1  2 
2  NA 

Sie erkennen können die Beispieldaten aus here sein sollte, aber ich will nicht den Modus, möchte ich die tatsächliche Mehrheit der Stimmen (dh mehr als 1/erhalten 2 die Leute wählten diese Option). Daher sollte "Punkt 2" keine Mehrheit haben.

table() scheint mir nicht zu helfen, weil which.max() mir nur den modalen Wert geben wird. Ich muss 3 Dinge wissen, die Anzahl der Stimmen, die ich habe, den Namen dieser Option und die Anzahl, wie oft jemand für eine Option gestimmt hat. Ich kann die ersten beiden mit tapply(all_results_filtered$q1, all_results_filtered$X_row_id ,function(x) length(x)) bekommen und tapply(all_results_filtered$q1, all_results_filtered$X_row_id ,function(x) as.numeric(names(which.max(table(x))))), aber wie kann ich die Anzahl der Stimmen bekommen für which.max(table(x))

Oder ... gibt es eine einfachere Art und Weise, die ich bin fehlt? Danke! Hier

Answer 1

ist eine dplyr Option:

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