如何只保留超过特定行数的组？

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)))

因此，当您运行此脚本时，您将获得下面的输出。现在在剪切和颜色列中只有3种组合“Fair D”，这也可以从rank1列中看到。另一组“Fair E”有5行。我想只保留行数超过3行的行。

Answer 1

我们可以将filter与逻辑条件（n() > 3）一起使用，以仅保留行数大于特定值的组

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