r - 将函数从参数传递到嵌套函数

Question

简而言之，我想运行以下最少的代码:

library(plyr)

surround = function(my.df, my.var, my.val, my.method) {
    ddply(my.df, my.var, summarize, value = my.method(as.name(my.val)))
}

my.df = data.frame(group = rep(letters[1:4], times = 25),
                   x = rnorm(100))

surround(my.df, "group", "x", mean)

但是，这会导致错误:找不到函数“my.method”。我确实意识到这是一个范围界定问题，我应该使用 eval 或 substitute 但我想不通。

Answer 1

如果您使用自定义函数而不是 summarise，它会起作用。

surround <- function(my.df, my.var, my.val, my.method) {
  ddply(my.df, my.var, function(x) c(value = my.method(x[[my.val]])))
}

my.df <- data.frame(group=rep(letters[1:4], times=25),
                   x=rnorm(100))

surround(my.df, "group", "x", mean)