滤镜功能

Question

对于数据：

Id res 
    1  9 
    1  8 
    1  8 
    1  6 
    1  5 
    1  4 
    2  6 
    2  6 
    2  0 
    2  0 
    2  0 
    2  0 

我想前四名各组。 当我使用

dat %>% group_by(Id) %>% 
     top_n(4,res) 

我得到

Id res 
1  9 
1  8 
1  8 
1  6 
2  6 
2  6 
2  0 
2  0 
2  0 
2  0 

这里需要的过滤器的方法。这将是一个适当的过滤器逻辑，以便我只得到前四行（允许关系）

Answer 1

据我所知top_n如果关系返回更多行。

也许这有帮助吗？

dat %>% group_by(Id) %>% arrange(desc(res)) %>% filter(row_number()<=4) 

    Id res 
1 1 9 
2 1 8 
3 1 8 
4 1 6 
5 2 6 
6 2 6 
7 2 0 
8 2 0 

Answer 2

你也可以简单地使用head，这里data.table包：

library(data.table) 
setDT(df)[, head(res,4), Id] 

或按@Jack惠勒正确地强调：

setDT(df)[, .SD[1:4], by = Id]