r - 特定の行数を超えるグループのみを保持する方法は?

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

したがって、このスクリプトを実行すると、以下の出力が得られます。現在、カットとカラーの列には、rank1 の列からもわかる「フェア D」の組み合わせが 3 つしかありません。別のグループ「 Fair E」には 5 つの行があります。3 行を超えるグループの行だけを保持したい。

Answer 1

filter論理条件 ( ) を使用しn() > 3て、特定の値より大きい行数を持つグループのみを保持できます。

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