在dcast中具有多于1个输入的自定义聚合功能

Question

无论如何在dcast中使用带有多个输入的聚合函数，或者其他函数可以做到这一点吗？

例如

names(airquality) <- tolower(names(airquality))
aqm <- melt(airquality, id=c("month", "day"), na.rm=TRUE)

dcast(aqm, month ~ variable, mean)

如何计算平均值＆＃34;值＆＃34;按天加权？提前谢谢。

Answer 1

正如akrun建议的那样，我检查了其他问题的答案并且有效：

> aqm %>%
+     select(month, day, variable, value) %>%
+     group_by(month, variable) %>%
+     summarise(weight_avg = weighted.mean(value,day)) %>%
+     spread(variable, weight_avg)