聚合以找到加权中位数[重复]

【问题标题】：Aggregate to find the weighted median [duplicate]聚合以找到加权中位数[重复]
【发布时间】：2014-01-23 10:08:09
【问题描述】：

我有以下数据集：

df <- data.frame(
  C      = c(1,2,3,1,2,3,1,2,3,1),
  weight = c(1,1.5,2,2,1.5,1,2,1,1.5,2.5),
  time   = c(15,20,30,45,60,15,20,30,45,60)
)

我需要按变量 C 聚合数据，以便找到每个 C 的中位时间。每个观察值都由变量“权重”加权。

有没有办法在下面的代码中用加权中位数代替“平均值”？

output<-aggregate(.~C, data=df, mean, na.rm=TRUE)

【问题讨论】：

【解决方案1】：

github上的bigvis包中有一个加权中值函数。

library(devtools)
install_github("bigvis")

aggregate 不适用于需要多个向量输入的函数。请改用plyr 中的ddply。

library(plyr)
ddply(df, .(C), summarise, wm = weighted.median(time, weight))

【讨论】：