如何仅保留特定行数以上的组？ [复制]

Question

library(tidyverse)

data<-diamonds%>%group_by(cut,color,clarity)%>%
  summarize(aver=round(mean(price),0),count=n())%>%
  filter(count>10)%>%
  mutate(rank1=min_rank(desc(aver)),rank2=cume_dist(desc(aver)))

所以当你运行这个脚本时，你会得到下面的输出。现在在 cut 和 color 列中只有 3 个组合“Fair D”，这也可以从 rank1 列中看到。另一组“Fair E”有 5 行。我只想为超过 3 行的组保留行。

Answer 1

我们可以使用 filter 和一个逻辑条件 (n() > 3) 来只保留行数大于特定值的组

data %>% 
     filter(n()>3)