使用％＆gt;％将两个函数应用于初始数据框

Question

假设我有这个数据框

library(dplyr)
library(Hmisc)

df <- data.table(Cnt=rep(c("REP","SWE","DK"), each=5), Scr=rnorm(15), w=1/15)

我想计算每个组的加权均值和方差，并获得一个新的data.frame，每个统计数据都有一列

    df %>%
    group_by(Cnt) %>%
    do(wtd.mean(Scr, w))

这将给出加权平均值，但在此行之后使用的任何新函数将对输出数据帧起作用，该输出数据帧没有权重或初始分数来估计方差。因此

    df %>%
    group_by(Cnt) %>%
    do(wtd.mean(Scr, w)) %>%
    do(wtd.var(Scr,w))

显然不起作用。

有没有办法在初始数据框上应用连续函数？