在dplyr中创建加权平均值

Question

我有一个数据框，其中包含： 斌 每个箱计数 每个垃圾箱的值

，我想计算一个比例。

library(tidyverse)

df <- tibble::tribble(
             ~bin, ~count, ~values,
         "[5-39]",   4884,      50,
        "[40-49]",  10557,      81,
        "[50-59]",   6327,      33,
        "[60-69]",   1509,      10,
        "[70-79]",    137,       2
        )

然后我做：

df %>%
  mutate(prop = values / count)

某些垃圾箱-例如[40-49]-系统上有更多观察结果。 dplyr中是否可以使用一种方法来计算加权平均值，从而考虑垃圾箱中的错误比例？