r - R中的聚合和加权平均值

Question

我正在尝试按 Assets 类别计算 Assets 加权返回。对于我的生活，我无法弄清楚如何使用聚合命令来做到这一点。

我的数据框看起来像这样

dat <- data.frame(company, fundname, assetclass, return, assets)

我正在尝试做类似的事情(不要复制这个，这是错误的):

aggregate(dat, list(dat$assetclass), weighted.mean, w=(dat$return, dat$assets))

Answer 1

首先，w=(dat$return, dat$assets))是语法错误。

和 plyr使这更容易一些:

> set.seed(42)   # fix seed so that you get the same results
> dat <- data.frame(assetclass=sample(LETTERS[1:5], 20, replace=TRUE), 
+                   return=rnorm(20), assets=1e7+1e7*runif(20))
> library(plyr)
> ddply(dat, .(assetclass),   # so by asset class invoke following function
+       function(x) data.frame(wret=weighted.mean(x$return, x$assets)))
  assetclass     wret
1          A -2.27292
2          B -0.19969
3          C  0.46448
4          D -0.71354
5          E  0.55354
>