R中的计算模式

Question

嗨，我正在努力解决每个唯一的ID的模式。

换句话说，我想知道DAY、TRANS_TIME、WEEK_NO的每个household_key的模式。即每个家庭在哪一天出现的次数最多等等。

我把一些代码放在一起

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

我知道数字是小数吗？这是否意味着我的答案是以小数表示的，如果是这样，我如何将其更改为四舍五入的值并显示一个数字？

下面是我的数据帧<- 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)
    }