首页 文章

将帧作为函数传递时，无法在dplyr中按组汇总变量

提问于
浏览 次
1

我希望使用dplyr将多个数据帧传递给函数，然后返回带有汇总变量的数据帧 . 我能够在聚合级别上做到这一点没问题，但是当我尝试按因子分组时，函数返回整个聚合的相同值 . 这是我有一个工作正常的例子：

compCalc <- function(frame,segment) {
     newFrame <- frame %>% 
     summarise(seg = segment,
          FTEs = sum(FTEs),
          total_TCC = sum(frame$totalCompensationCost),
          TCC_per_fte = sum(frame$totalCompensationCost)/sum(frame$FTEs),
          TCC_per_hour = sum(frame$totalCompensationCost)/sum(frame$hours),
          total_wages = sum(frame$totalWages))
return(newFrame)
}

然后我调用这个函数：

nuSectorOverall <- compCalc(dfEx, "allNonUnion")

我得到了这样的好输出：

Overall
seg         FTEs     total_TCC    TCC_per_fte  TCC_per_hour total_wages 
allNonUnion 3980.559 185865849     46693.4     24.09153      171344280

现在，当我将group_by子句引入混合时，如下所示：

compCalcEmp <- function(frame,segment) {
    newFrame <- frame %>% 
        group_by(employeeGroup) %>%
            summarise(seg = segment,
                FTEs = sum(FTEs),
                total_TCC = sum(frame$totalCompensationCost),
                TCC_per_fte = sum(frame$totalCompensationCost)/sum(frame$FTEs),
                TCC_per_hour = sum(frame$totalCompensationCost)/sum(frame$hours),
                total_wages = sum(frame$totalWages))
          return(newEmpFrame)
  }

我遇到了以下问题：

employeeGroup     seg      FTEs total_TCC TCC_per_fte TCC_per_hour     total_wages total_wages_per_fte
              <chr>   <chr>     <dbl>     <dbl>       <dbl>        <dbl>           <dbl>               <dbl>
1       Bargaining Unit overall  139.2841 185865849     46693.4     24.09153       171344280            43045.28
2 Management & Excluded overall  402.0311 185865849     46693.4     24.09153   171344280            43045.28
3             Non-Union overall 3439.2438 185865849     46693.4     24.09153   171344280            43045.28

正如您所看到的，它为每个分组变量计算相同的值，但FTE除外！

我看了很久，很难看出是否有类似的问题，如果我没有找到它，我道歉 . 任何帮助将非常感谢！

一切都好，

[R

r dplyr

1 回答

  • 1

    您不想使用 frame$ 来引用 dplyr 管道内的 frame 列 . 试试这个：

    compCalcEmp <- function(frame,segment) {
    newFrame <- frame %>% 
        group_by(employeeGroup) %>%
            summarise(seg = segment,
                FTEs = sum(FTEs),
                total_TCC = sum(totalCompensationCost),
                TCC_per_fte = sum(totalCompensationCost)/sum(FTEs),
                TCC_per_hour = sum(totalCompensationCost)/sum(hours),
                total_wages = sum(totalWages))
   return(newFrame)
}

    它之前没有 group_by ，因为在这种情况下，您将对整个 frame 而不是子集组进行汇总 .

    回复于

相关问题