问在magrittr中按字符串名称应用函数引用
EN

Stack Overflow用户

提问于 2016-08-25 08:32:14

回答 2查看 101关注 0票数 0

我有一个数据框，其中包含一个列，其中包含一个函数的名称，我希望将该列应用于由分组定义的数据分区。下面是一个简单的设置示例：

df <- data.frame(x = c(1,2,3,4))
df.with.method <- df %>% merge(y = data.frame(method = c("mean",   "median")))

我想知道的是将该方法应用于每个分区，如下所示：

df.with.method %>% group_by(method) %>%
    mutate(x.hat = eval(method)(x))

但是，这不起作用，会返回一个Error: attempt to apply non-function错误。这也不起作用：

df.with.method %>% group_by(method) %>%
    mutate(x.hat = eval(parse(text = method))(x))

然而，这确实是可行的，这表明基本思想是可以的：

df.with.method %>% group_by(method) %>%
    mutate(x.hat = eval(parse(text = "mean"))(x))

发布于 2016-10-31 09:13:18

您可以分别使用call()和eval()构造调用并对其进行计算。它不是很漂亮，但它可以工作，并且一定要为df.with.method设置stringsAsFactors = FALSE。

df.with.method %>% group_by(method) %>%
    mutate(x.hat = mapply(function(a, b) eval(call(a, b)), method, x))

票数 0

页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持

原文链接：

https://stackoverflow.com/questions/39134961

复制

相似问题

问在magrittr中按字符串名称应用函数引用EN