我可以在 ddply() 中进行保证金计算吗？

Question

cast() 函数非常适合计算聚合值的边距：

cast(df, IDx1+IDx2~IDy1, margins=c('IDx1','IDx2','grand_row') ,c(min,mean,max))

问题是我需要使用第二个向量和自定义函数来加权我的平均值。

当然，ddply() 允许我将自定义聚合函数应用于分组记录：

ddply(d, IDx1+IDx2~IDy1 , function(x) 
c(
min(x$value),
MyFancyWeightedHarmonicMeanFunction(x$value,x$weight),
max(x$value)
)
)

...这太棒了。

但真正能挽救局面的是同时完成这两件事的能力，无论是通过调用 cast() 中的双向量函数还是通过伪造 margins=() ddply() 中的 code> 变量。

这可能吗？

Answer 1

自己计算边距是很不错的：

ddply(d, "IDX1", ...) 
ddply(d, c("IDX1", "IDX2"), ...)
ddply(d, "IDy1", ...)

然后使用 rbind 将结果合并在一起。将其包装成一个通用函数并不太难。

另外，我会将您的原始代码重写为：

ddply(d, IDx1+IDx2~IDy1, summarise, 
  min = min(value),
  wt.mean = MyFancyWeightedHarmonicMeanFunction(value, weight),
  max = max(value)
)