Как объединить трубы magrittr и% in% внутри функции предиката dplyr :: filter?

Question

Учитывая фрейм данных входа,

library(dplyr) 
(df <- data_frame(id = c(1,1,1,2,2,3), y = letters[1:6])) 
# # A tibble: 6 × 2 
#  id  y 
# <dbl> <chr> 
# 1  1  a 
# 2  1  b 
# 3  1  c 
# 4  2  d 
# 5  2  e 
# 6  3  f 

Допустит, один хочет получить подмножество df[, c("id", "y")] только два наиболее распространенных идентификаторов, которые id1 и 2:

df %>% group_by(id) %>% tally %>% arrange(desc(n)) %>% head(2) %>% .$id %>% print -> ids #* 
# [1] 1 2 

Вопрос: Есть ли способ использовать трубку в функции предиката внутри filter в жилах:

df %>% filter(
    id %in% df %>% group_by(id) %>% tally %>% arrange(desc(n)) %>% head(2) %>% .$id ) 
# Error: no applicable method for 'group_by_' applied to an object of class "logical" 

df %>% filter(
    id %in% (df %>% group_by(id) %>% tally %>% arrange(desc(n)) %>% head(2) %>% .$id) ) 
# Error: cannot handle 

df %>% filter(
    id %in% {df %>% group_by(id) %>% tally %>% arrange(desc(n)) %>% head(2) %>% .$id} ) 
# Error: cannot handle 

?

Я имею в виду, что последние два предиката, кажется, работают, как ожидается, за пределами filter:

df$id %in% (df %>% group_by(id) %>% tally %>% arrange(desc(n)) %>% head(2) %>% .$id) 
# [1] TRUE TRUE TRUE TRUE TRUE FALSE 
df$id %in% {df %>% group_by(id) %>% tally %>% arrange(desc(n)) %>% head(2) %>% .$id} 
# [1] TRUE TRUE TRUE TRUE TRUE FALSE 

---

Side Примечание: Я знаю, что мог использовать временную переменную ids:

df %>% filter(id %in% ids) # *ids <- c(1,2) 

или я мог бы использовать *_join:

df %>% inner_join(
    df %>% group_by(id) %>% tally %>% arrange(desc(n)) %>% head(2) %>% select(-n)) 

Оба дают ожидаемый результат:

# # A tibble: 5 × 2 
#  id  y 
# <dbl> <chr> 
# 1  1  a 
# 2  1  b 
# 3  1  c 
# 4  2  d 
# 5  2  e 

Answer 1

Не сделать этот сложный для своего собственного блага.

ids <- (df %>% count(id) %>% arrange(n) %>% tail(2))$id 
filter(df, id %in% ids) 

Answer 2

Можно пойти на непрерывной цепочки, но не торчит слишком много dplyr/filter, поскольку существуют и другие решения - по-прежнему совместимы с %>%:

df %>% 
    group_by(id) %>% 
    tally %>% 
    arrange(desc(n)) %>% 
    head(2) %>% 
    .$id %>% 
    is.element(df$id, .) %>% 
    subset(df, .) 

Source: local data frame [5 x 2] 

    id  y 
    (dbl) (chr) 
1  1  a 
2  1  b 
3  1  c 
4  2  d 
5  2  e 

Цепочки, а затем обертывание цепи может быть беспорядочным, когда цепь становится длинной.

Для такого reuslt я предпочел бы пойти на основание R один лайнер:

df[df$id %in% as.integer(names(tail(sort(table(df$id)),2))),]