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

在此处输入图像描述

4

1 回答 1

2

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

data %>% 
     filter(n()>3)
于 2016-11-21T10:42:27.693 回答