r - 在列中找到最频繁的值并取其子集

Question

我有以下数据集。

Num              Day              Value
1111             Thursday         2
2222             Thursday         2
3333             Thursday         3
1111             Monday           3
1111             Tuesday          3
1111             Wednesday        3
1111             Friday           4
1111             Saturday         5
1111             Sunday           6
2222             Thursday         6

我们可以使用以下命令获取 value 列中出现次数最多的值:tail(names(sort(table(data$value))), 1)

我动态地需要获取仅包含此最高出现值的数据子集。

所以我需要的输出是:

Num              Day              Value
3333             Thursday         3
1111             Monday           3
1111             Tuesday          3
1111             Wednesday        3

Answer 1

您可以使用子集

 indx <- tail(names(sort(table(df1$Value))),1)
 subset(df1, Value==indx)

或者使用dplyr

 library(dplyr)
 df1 %>% 
   group_by(Value) %>% 
   mutate(N=n()) %>%
   ungroup() %>% 
   filter(N==max(N))

或者

  library(data.table)
  setDT(df1)[, N:=.N, Value][N==max(N)][, N:=NULL]