时间戳

首页 > 解决方案 > 如何在自定义函数中使用 ddply + summarise

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

问题描述

我正在尝试在自定义函数中使用 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")

标签： rdataframeplyr

解决方案

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

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

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

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

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

希望这可以帮助

推荐阅读