如何只保留特定行数以上的组？

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

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

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

如何只保留特定行数以上的组？

How to keep only groups above certain number of rows?

r

tidyverse