r - 如何建立从data.table到magrittr再回到data.table的管道

Question

我想将data.table流水线与magrittr流水线混合使用。我可以从data.table转到％>％，但是我不知道如何回到[] [] data.table样式管道。

这是一个例子:

> tbl = data.table(grp=c(1,1,1,2,2,2,3,3,3,4,4), y=rnorm(11))
> tbl
    grp        y
 1:   1  0.08150
 2:   1  1.51330
 3:   1 -0.26154
 4:   2 -0.12746
 5:   2  0.10747
 6:   2  0.16502
 7:   3  0.54139
 8:   3 -0.04194
 9:   3  0.02373
10:   4  2.00756
11:   4  1.05523
> tbl[, .(.N, mean(y)), by=grp][order(-N)] %>% head(n=3) %>% .[, N := NULL]
   grp      V2
1:   1 0.44442
2:   2 0.04834
3:   3 0.17439
> tbl[, .(.N, mean(y)), by=grp][order(-N)] %>% head(n=3) %>% .[, N := NULL][, plot(grp, V2)]
Error in `[.data.table`(., .[, `:=`(N, NULL)], , plot(grp, V2)) : 
  'by' or 'keyby' is supplied but not j
Calls: %>% ... freduce -> withVisible -> <Anonymous> -> [ -> [.data.table
> 

如何在％>％之后返回[] []？

我知道可以使用[]完全重写此特定示例，而不必使用％>％，但是我对每次执行此操作都不感兴趣。我想要一种能够编写[] []％>％[] []模式的方法。

Answer 1

前面的两个答案都在一定程度上忽略了您指定优先级的能力。您可以通过将其括在%>%中来提高代码中{}部分的优先级来做到这一点:

x <- data.frame(a=1:5, b=6:10)
{x %>% subset(a<4) %>% data.table()}[, mean(b)]

不漂亮，但是可以工作:

> {x %>% subset(a<4) %>% data.table()} [, mean(b)]
[1] 7