ddply：传递几何平均函数答案

【问题标题】：ddply: pass geometric mean functionddply：传递几何平均函数
【发布时间】：2015-09-24 23:12:12
【问题描述】：

我对 ddply 还很陌生。我正在尝试将几何平均函数应用于 ddply，如下所示：

monthly.ave <- ddply(monthly,
           c("year", "month"), 
           summarise,
           mean = mean(abs.hrs.prop, na.rm=TRUE),
           median = median(abs.hrs.prop, na.rm=TRUE),
           geom.mean = geometric.mean(abs.hrs.prop, na.rm=TRUE))

ddply 当然不知道geometric.mean。那么，如何将几何平均函数传递给 ddply？

【问题讨论】：

你从哪里得到geometric.mean() 函数？
ddply 也不知道mean 或median，它会在全局环境和附加的命名空间（您已加载的包）中查找它们。只要geometric.mean() 是您定义的函数或在您加载的包中定义的函数，就可以。
澄清一下，我没有geometric.mean的函数（至少现在还没有）
所以创建一个geometric.mean 函数，然后将它传递给ddply。搜索 Stack Overflow 上如何在 r 中创建几何平均函数。

标签： r dplyr plyr

【解决方案1】：

这将为您提供计算几何平均值的潜在相关函数列表。

library(sos)
findFn("geometric mean")

【讨论】：