将加权平均值与聚合相加答案

【问题标题】：adding weighted average with aggregate将加权平均值与聚合相加
【发布时间】：2016-06-28 16:31:14
【问题描述】：

我有下面的数据框

library(ggplot2)
v = c(100,50,50,20,30,100,100,100,40,5)
s = c(1,10, 5, 90,40, 100, 1,1,30,5)
g = c(rep("A",5),rep("B",5))
m = c (1,1,5,5,10, 10,10,8,5,2)
d = data.frame(value = v, size= s, group = g, m = m)
d
a  = aggregate(d$v, by = list(d$m, d$g), FUN= mean)
a
ggplot(data=a, aes(x=Group.1, y=x, group=Group.2)) +
  geom_line( )+geom_point()

目前，aggregate() 取每个“g”和“m”组内的平均“v”。

我想使用“s”绘制加权平均值，而不是简单的平均值，每个“g”和“m”作为权重。例如，当 g = A 和 m = 1 时，聚合返回 75，这是 100 和 50 的平均值，但我想返回加权平均值 (100*1+50*10)/11 = 54。

最好的方法是什么？

谢谢

【问题讨论】：

标签： r aggregate

【解决方案1】：

我们可能会使用dplyr

library(dplyr)
d %>%
  group_by(m, group)  %>%
  summarise(vmean =  floor(weighted.mean(value, size)))
#     m  group vmean
#  <dbl> <fctr> <dbl>
#1     1      A    54
#2     2      B     5
#3     5      A    21
#4     5      B    40
#5     8      B   100
#6    10      A    30
#7    10      B   100

或使用base R

by(d[c("value", "size")], list(d$group, d$m), 
             FUN = function(x) weighted.mean(x[,1], x[,2]))

【讨论】：