Вычислить режим в R

Question

Привет Я пытаюсь разработать режим для каждого уникального идентификатора.

Другими словами, я хотел бы знать режим для каждого домохозяйства для Дня, TRANS_TIME, WEEK_NO. то есть, в какой день каждая семья оказывается наиболее т.д.

я соединил некоторые кодовые

library(dplyr) 
randomtest <- mydata %>% group_by(household_key) %>% 
    summarise_each(funs(mode),DAY, TRANS_TIME, WEEK_NO) 

Воспроизводит:

household_key  DAY TRANS_TIME WEEK_NO 
1    1 numeric numeric numeric 
2    2 numeric numeric numeric 
3    3 numeric numeric numeric 
4    4 numeric numeric numeric 
5    5 numeric numeric numeric 
6    6 numeric numeric numeric 
7    7 numeric numeric numeric 
8    8 numeric numeric numeric 
9    9 numeric numeric numeric 
10   10 numeric numeric numeric 

я понимаю числовые означает десятичные? Означает ли это, что мои ответы десятичны, если да, то как я могу изменить его, чтобы округлить значение и показать мне число?

Ниже приведен пример моего dataframe < - MYDATA

household_key DAY TRANS_TIME WEEK_NO 
2375 1 6 1 
2375 1 6 1 
2375 1 6 1 
2375 1 6 1 
2375 1 6 1 
2375 1 6 1 
2375 1 6 1 
2375 1 6 1 
2375 1 6 1 
2375 1 6 1 
2375 1 6 1 
1364 1 6 1 
1364 1 6 1 
1364 1 6 1 
1364 1 6 1 
1364 1 6 1 
1130 1 5 1 
1130 1 5 1 
1130 1 5 1 
1130 1 5 1 
1130 1 5 1 
1173 1 7 1 
1173 1 7 1 
1173 1 7 1 
1172 1 4 1 
1172 1 4 1 
1172 1 4 1 
1172 1 4 1 
1172 1 4 1 
1172 1 4 1 
1172 1 4 1 
1172 1 4 1 
1172 1 4 1 
1172 1 4 1 

Answer 1

Вот другой подход:

smode <-function(x){ 
    xtab<-table(x) 
    modes<-xtab[max(xtab)==xtab] 
    mag<-as.numeric(modes[1]) #in case mult. modes, this is safer 
    themodes<-names(modes) 
    mout<-list(themodes=themodes,modeval=mag) 
    return(mout) 
    }