如何在自定义函数中使用 ddply + summarise

Question

我正在尝试在自定义函数中使用 ddply-summarise 函数（例如 mean()）。但是，它不会生成每个组的平均值，而是生成一个显示所有观察值平均值的数据框。

非常感谢您的帮助！

library(plyr)
library(dplyr)
df <- data.frame(Titanic)
colnames(df)

# ddply-summarise - Outside of function
df.OutsideOfFunction <- ddply(df, c("Class","Sex"), summarise,
                          Mean=mean(Freq))

# new function
newFunction <- function(data, GroupVariables, ColA){ 
  mean(data[[ColA]])
  plyr::ddply(data, GroupVariables, summarise,
                       Mean=mean(data[[ColA]]))
}

#ddply-summarise - InsideOfFunction
df.InsideOfFunction <- newFunction(data=df,
                                   GroupVariables=c("Class","Sex"),
                                   ColA ="Freq")

Answer 1

它应该以这种方式工作，首先将 ColA 输入转换为符号，然后对其进行评估：

# new function
newFunction <- function(data, GroupVariables, ColA){ 
  #mean(data[[ColA]])
  plyr::ddply(data, GroupVariables, summarise, Mean=mean(UQ(sym(ColA))))
}

请查看this 帖子，了解为什么会发生这种情况。这是我第一次亲眼看到它，所以我不是解释它的最佳人选 - 看起来这取决于 summarize 和/或其他 plyr 或 dplyr 函数接受参数作为输入的方式（使用/不带引号）以及如何评估这些。

此外，由于您也在加载 dplyr，如果您愿意，您可以坚持使用一个包并像这样编写您的函数：

newFunction <- function(data, GroupVariables, ColA){
  data %>% group_by(.dots=GroupVariables) %>% summarise(Mean=mean(UQ(sym(ColA))))
}

希望对你有帮助