在rpivotTable中创建聚合器

Question

我开始使用rpivotTable功能：

library(rpivotTable)
rpivotTable(mtcars, rows="gear", col="cyl", aggregatorName="Average", 
vals="mpg", rendererName="Bar Chart")

使用此代码，我的平均mpg为cyl和gear。如果我想用hp计算加权平均mpg怎么办？我应该创建我的聚合器！我读了here这是可能的。但是如何将它传递给R？