0

更新到最新版本的软件包dplyr时，我使用 NSE 的功能会中断。我想知道新版本如何改变它以及如何修复它。我尝试在每个变量名之前使用.data$and .env$，但似乎无法正常工作。

这是我的自定义函数：

t_ppond <- function(w, v){
  arguments <- as.list(match.call())

  y <- eval(arguments$w)
  x <- eval(arguments$v)

    d <- data.frame("yy" = y, 
                    "xx" = x)
    tt <- sum(d$yy)

    dff <- d %>%
      mutate("sh" = yy/tt) %>% 
      mutate("rr" = xx*sh)

  sum(dff$rr)
}

这就是我使用它的目的（从变量计算加权平均值）：

data(iris)
iris %>% 
  group_by(Species) %>% 
  summarise("new" = t_ppond(Sepal.Length, Petal.Width))

上面的代码在更新之前运行良好。现在我得到：

Error in summarise_impl(.data, dots) : 
  Evaluation error: object 'Sepal.Length' not found.
4

1 回答 1

1

您确定需要为此进行非标准评估吗？你有一个自定义函数，它只需要接受两个向量，所以你可以这样写：

t_ppond <- function(w, v){
    d <- data.frame("yy" = w, 
                    "xx" = v)
    tt <- sum(d$yy)

    dff <- d %>%
        mutate("sh" = yy/tt) %>% 
        mutate("rr" = xx*sh)

    sum(dff$rr)
}

data(iris)
iris %>% 
    group_by(Species) %>% 
    summarise("new" = t_ppond(Sepal.Length, Petal.Width))

输出：

# A tibble: 3 x 2
     Species       new
      <fctr>     <dbl>
1     setosa 0.2480224
2 versicolor 1.3352089
3  virginica 2.0333030
于 2017-06-22T00:35:57.273 回答