Rの要約データの印刷方法は？

Question

print(results) 
     symptom1  disease 
     Headache  Chicken pox 
     Fever  Chicken pox 
loss of appetite Chicken pox 
Red Color rashes Chicken pox 
     Scabs  Chicken pox 
    Shivering  Malaria 
     Fever  Malaria 
    vomitings  Malaria 
    muscle pain  Malaria 
    sweating  Malaria 
table<-subset(results,symptom1=="Headache"|symptom1=="Fever"|symptom1=="Scrabs") 
> print(table) 
symptom1  disease 
1 Headache Chicken pox 
2 Fever Chicken pox 
7 Fever  Malaria 
> summary(table) 
       symptom1  disease 
    Fever   :2 Chicken pox:2 
    Headache  :1 Malaria :1 
    loss of appetite:0     
    muscle pain  :0     
    Red Color rashes:0     
     Scabs   :0     
     (Other)   :0 

どのように私は価値のある鶏痘を印刷しますか？私は要約（テーブル）でより多くの価値を持つ病気を印刷したい このケースではチキンポックス
私の質問がはっきりしていることを願っています。 は事前

Answer 1

でのuに感謝我々は（単にR.でコーディングする場合、それは素晴らしい作品。しかし、それは、このフォームclient.evalであるとき、それはrserve-JSとRserveで仕事をdoesnot dplyr

library(dplyr) 
table %>% 
    group_by(disease) %>% 
    mutate(n = n()) %>% 
    ungroup() %>% 
    filter(n==max(n)) %>% 
    select(-n)