ddply：传递几何平均函数

Question

我对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？

Answer 1

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

library(sos)
findFn("geometric mean")