如何从不同元素平均得分

Question

我的数据列表如下所示：

AD  Score
k01 0.423045866
k01 0.480309111
k01 0.725338203
k01 0.619097222
k01 0.480309111
k01 0.619097222
k01 0.423045866
k05 0.650419719
i03 0.932386364
j02 0.530082418
j02 0.270337302
j02 0.270337302
i03 0.59271728
j02 0.270337302
j02 0.530082418

Data source

我想平均来自不同广告的所有得分。它应该看起来像：

AD  Main_Score
a01 0.002384921
a02 0.000745303
a03 0.009494517
a04 0.002697162
a05 0.008923368
a06 0.010729049
b05 0.008715195
c01 0.002960632
c02 0.009725276
c04 0.40982829
d01 0.007238207 

Answer 1

我们可以尝试

library(data.table)
setDT(data)[, list(avg = mean(Score)), by = AD]

Answer 2

我推荐dplyr套餐。

require(dplyr)
data %>% 
 group_by(AD) %>% 
 summarize(avg = mean(Score))

这就是你要找的东西吗？

Answer 3

library(data.table)
dt <-  data.table(ur_data)
dt[, lapply(.SD, mean), by = "AD"]