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 行的组保留行。