With
xa=aggregate(x$avg,by=list(x$value),FUN=weighted.mean,w=x$weight)
gives me an error
Error in weighted.mean.default(X[[1L]], ...) : 'x' and 'w' must
have the same length
But
weighted.mean(x$avg,w=x$weight);
works fine.
As suggested on an old R thread , you can use by
instead:
wt <- c(5, 5, 4, 1)/15
x <- c(3.7,3.3,3.5,2.8)
xx <- data.frame(avg=x, value=gl(2,2), weight=wt)
by(xx, xx$value, function(x) weighted.mean(x$avg, x$weight))
这是一个“给猫剥皮的百万种方法”的问题,这是一个plyr
解决方案(使用plyr
的示例数据):
ddply(xx,.(value),summarise, wm = weighted.mean(avg,weight))
The technical post webpages of this site follow the CC BY-SA 4.0 protocol. If you need to reprint, please indicate the site URL or the original address.Any question please contact:yoyou2525@163.com.