r两个6的列表？

Question

我有两个6的列表。

第一个包含TEST与CONTROL的观察计数， 第二个是这些观察的总和

我在两者（我正在学习）上使用了lapply： - ）

现在我想循环使用这些来进行最终计算。

这是一个双重问题：

a）我想学习mapply b）如果有更好的方法来结合我所做的，请分享

rand_char()

我想计算增量销售额，其公式为：

对于所有6个列表。

COUNT_T_C   <- lapply(dfList,
                         function(df) 
                         {
                           df %>%
                             group_by(TC_INDICATOR) %>%
                             summarise(CNTCONTROL = length(which(TC_INDICATOR=="CONTROL"))  ,
                                       CNTTEST    = length(which(TC_INDICATOR=="TEST")) )
                         })


# Sum Control over Test in all 6 lists
SUM_T_C      <- lapply(dfList,
                       function(df) 
                       {
                         df %>%
                           group_by(TC_INDICATOR) %>%
                           summarise(SUMCONTROL = sum(NET_SPEND[which(TC_INDICATOR=="CONTROL")]),
                                     SUMTEST    = sum(NET_SPEND[which(TC_INDICATOR=="TEST")]) )
                       })

以下是Inc Sales的一些示例输出和预期值：

 INCREMENTAL_SALES <- (SUMTEST / CNTTEST) - (SUMCONTROL / CNTTEST)