> x <- tbl_df(data.frame(a = rep(1:500), b = rep(letters[1:5], 100))) %.% arrange(b)
> x
Source: local data frame [500 x 2]
a b
1 1 a
2 6 a
3 11 a
4 16 a
5 21 a
6 26 a
7 31 a
8 36 a
9 41 a
10 46 a
.. .. .
> x %.% group_by(b) %.% filter(row_number(a) <= 10)
Source: local data frame [50 x 2]
Groups: b
a b
1 1 a
2 6 a
3 11 a
4 16 a
5 21 a
6 26 a
7 31 a
8 36 a
9 41 a
10 46 a
11 2 b
12 7 b
13 12 b
14 17 b
15 22 b
16 27 b
17 32 b
18 37 b
19 42 b
20 47 b
21 3 c