r中的分组加权平均值（最好是ddply，但无论如何）

Question

我有一个数据集，我想按组同时获取正常的“均值”和加权均值。 每个组都可以视为不同的投资组合或股票，价格是该投资组合或股票的价格，大小是股票，收益是百分比回报，因此市值就是价格*大小。

加权均值将是相对于各个组的市值的收益。 我运行下面的代码，它看起来显然是错误的，但是对于我一生来说，我无法弄清楚自己缺少什么：

mydf= structure(list(group = structure(c(1L, 2L, 1L, 2L, 1L), .Label = c("a","b"), class = "factor"), 
                     price = c(15, 20, 10, 40, 20), size = c(100, 10, 50, 50, 1000), 
                     gain = c(0.03, 0.02, 0.05, 0.1, 0.01), wt = c(1500, 200, 500, 2000, 20000)), 
                .Names = c("group", "price", "size", "gain", "wt"), row.names = c(NA, -5L), 
                class = "data.frame")
mydf
library(plyr)
ddply(x, .(group), summarise,normal_mean= mean(gain), 
      wt_mean= weighted.mean(x$price*x$size,x$gain))

在这里，我将价格和尺寸相乘，您也可以在weighted.mean函数中使用wt列，或者应该...

加权均值似乎不是在我的组中计算，而是在所有行中计算。 有什么帮助吗？

Answer 1

使用data.table的方法

library(data.table)

setDT(mydf)[,list(normalMean=mean(gain), 
             weightedMean=weighted.mean(gain, wt/sum(wt))), 
             by = group]

#   group normalMean weightedMean
#1:     a       0.03   0.01227273
#2:     b       0.06   0.09272727

Answer 2

dplyr的方法

mydf %>% group_by(group) %>%
summarise (mean=mean(gain), avgwt = weighted.mean(gain,wt))


  group mean      avgwt
1     a 0.03 0.01227273
2     b 0.06 0.09272727