不同行的加权平均值

Question

我有一个数据框架，其中包含三个像这样的变量：

variable <- c("A", "B", "C", "B", "B", "A", "C")
mean <- c(2,4,5,4,3,1,5)
counts <- c(100, 200, 300, 150, 400, 200,250)

df <- data.frame(variable, mean, counts)

我想将mean乘以counts然后将其与每个variable相加。 然后，我想将结果除以每个variable的counts 。 对于variable A ，结果应类似于以下示例：

（2 * 100 +1 * 200）/ 300 = 1.333333

然后，我想像group_by一样汇总每个variable的结果，并summarise dplyr函数。 任何想法这如何工作？ 我尝试使用group_by和mutate但没有聚合。 结果应如下所示：

Variable     Mean
A         some value
B         some value
C         some value

Answer 1

这将起作用-您只需要指定计算，因为对mean的调用当然会除以计数（例如第一个为2）库（tidyverse）

df %>% 
  mutate(multiple = mean * counts) %>% 
  group_by(variable) %>% 
  summarise(mean = sum(multiple) / sum(counts))

Answer 2

library(plyr)
ddply(.data = df,.variables = c('variable'),
    function(x){sum(x$mean*x$counts)/sum(x$counts)})