具有加权中位数的数据透视表[重复]

Question

这个任务看起来很简单，但我还是找不到答案。我在数据透视表中看到了加权平均值（即平均值）的解决方案，但没有看到加权中位数。

我需要创建一个带有加权中位数的数据透视表（使用两列，一列带有值，一列带有权重——每个值的数量要针对中位数计算）。换句话说……

city           value    weight
Phoenix        100      40
Phoenix        140      12
Phoenix        500      15
San Francisco  700      5
San Francisco  300      5
San Francisco  350      1
San Francisco  600      1

会回来的……

city           weighted median
Phoenix        100
San Francisco  475

我一直试图在 PostgreSQL 和 R 中找到合适的解决方案，但到目前为止还没有运气。任何帮助表示赞赏！

Answer 1

在 R 中，你可以试试这个：

require("plyr")

> ddply(df, ~city, summarise, median=median(rep(value, weight)))
           city median
1       Phoenix    100
2 San Francisco    475

数据：

df <- data.frame(city=c("Phoenix", "Phoenix", "Phoenix",
                        "San Francisco", "San Francisco", "San Francisco", "San Francisco"),
                 value=c(100, 140, 500, 700, 300, 350, 600),
                 weight=c(40, 12, 15, 5, 5, 1, 1))

请查看this SO article，了解有关在 R 中计算加权中位数的更多信息。