如何在每组中求平均值和计数，并创建一个新表

Question

我有一个Dataset，我想要计算平均关键绩效指标，关键绩效指标和成本列和计数次数列在每个得分组(1-10)。

如何根据结果创建新的表？

一个新表格如下所示：

score   avg_KPI avg_CPC avg_CPM count_times
10  
9   
8   
7   
6   
5   
4   
3   
2   
1   

我尝试使用For方法，但它不起作用，

for (i in 1:10) {
  aa <- subset(dataset1,score== i )
  macroAvgs<-colMeans(aa[,2:4])
  df <- rbind(score="i",KPI=macroAvgs[1],CPC=macroAvgs[2],CPM=macroAvgs[3],times=count(aa[5])
}

Answer 1

假设您的数据在一个名为df的data.frame中，您想要这样吗？

library(data.table)
setDT(df)[ ,.(lapply(.SD, mean), .N), by = score, .SDcols = c("KPI", "CPM", "CPC")]

还是你想要这个？

library(dplyr)
group_by(df, score) %>%
    summarise(Mean_KPI = mean(KPI),
              Mean_CPC = mean(CPC),
              Mean_CPM = mean(CPM),
              Sum_times = sum(times))