2017-02-10 67 views
-1
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 

我如何打印价值水痘。在总结(表) 在这种情况下,水痘
希望我的问题明白。 感谢ü提前如何在R中打印汇总数据?

回答

0

我们可以从dplyr

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

做到这一点的伟大工程时,只需在R.编码但不列入与rserve-js和Rserve工作的时候正是在这种形式client.eval( “result%>%”,function(err,response)。请指导我使用rserve-js和Rserve代码。 – dpak

+0

@dpak请将这个问题作为rserve-js和'Rserve'不一样 – akrun

+0

ok.i发布了@naruto。如果你有这个想法,请指导我。谢谢 – dpak