r - 如何使用 HydroGOF 包按组获得 Nash-Sutcliffe 效率？

Question

我正在尝试获取按变量分组的 NSE 值。我尝试了类似的东西：

library(dplyr)
library(hydroGOF)

mtcars %>% group_by(cyl) %>% 
  NSE(wt,drat)

为什么它不起作用？它没有找到“wt”。谢谢你。

Answer 1

这是一种方法summarise：

mtcars %>% 
  group_by(cyl) %>%
  summarise(NSE = NSE(wt, drat))
# A tibble: 3 x 2
    cyl    NSE
  <dbl>  <dbl>
1     4 -30.2 
2     6  -2.22
3     8 -10.2 

你的不工作的原因是因为%>%将前一个函数的输出重定向到下一个函数的第一个参数。所以你的相当于NSE(mtcars,wt,drat). 并且由于wt未在全局环境中定义，因此未找到。