r - 使用lazyeval对mutate进行标准评估

我正在尝试制作自己的包装dplyr函数的函数。

我有一个数据框列表，我想用给定的标签（都应该是函数的参数）来修改指定变量的级别。

这是我到目前为止尝试过的：

library(plyr); library(dplyr)

groups <- list(label1 = "setosa", label2 = c("virginica", "versicolor"))

iris$Species <- as.character(iris$Species)
x <- lapply(1:5, function(x) iris)

f <- function(datas, fillVar, groups) {

  fillStr <- deparse(substitute(fillVar))

  datas <- llply(datas, function(x) {
    x <- mutate_(x, .dots = setNames(list(lazyeval::interp(~ factor(var), var = substitute(fillStr))), fillStr))
    levels(x[,fillStr]) <- groups
    return(x)})

  return(datas)
}

f(x, Species, groups)

 Error in mutate_impl(.data, dots) : object 'Species' not found

但是我不能使它起作用，我只是不明白为什么...
你知道我在想什么吗？谢谢。

最佳答案

尝试

f1 <- function(datas, fillVar, groups) {
  fillStr <- deparse(substitute(fillVar))
  datas <- llply(datas, function(x) {
     x <- mutate_(x, .dots = setNames(list(lazyeval::interp(~ factor(var),
                var = as.name(fillStr))), fillStr))
    levels(x[fillStr]) <- groups
    x})
   return(datas)
}

 identical(f(x, 'Species', groups), f1(x, Species, groups))
 #[1] TRUE

关于r - 使用lazyeval对mutate进行标准评估，我们在Stack Overflow上找到一个类似的问题：https://stackoverflow.com/questions/31312201/