在 R 中使用带有多个输入和过滤器的 match.fun

Question

我有以下数据库以及几个输入值：

operator <- ">="
amt <- 600
col <- "salary"

data <- data.frame(
   emp_id = c (1:5), 
   emp_name = c("Rick","Dan","Michelle","Ryan","Gary"),
   salary = c(623.3,515.2,611.0,729.0,843.25)
)

我使用原始列名使用 match.fun，但想使用“col”值来指定要过滤的列名，类似于它的内容下面：

data %>% 
   filter(match.fun(operator)(col, amt))

我尝试添加“！！”当它在那里时到 col 的前面，但这不起作用。如果我在上表中将“col”替换为“salary”，这确实有效，但我希望能够动态更改“col”是什么，并使函数对此做出反应。

Answer 1

我们可以使用 .data 根据输入选择列 col

library(dplyr)
data %>% 
   filter(match.fun(operator)(.data[[col]], amt))

-output

   emp_id emp_name salary
1      1     Rick 623.30
2      3 Michelle 611.00
3      4     Ryan 729.00
4      5     Gary 843.25

---

或转换为 symbol 并求值 (!!)

data %>% 
 filter(match.fun(operator)(!! rlang::sym(col), amt))
  emp_id emp_name salary
1      1     Rick 623.30
2      3 Michelle 611.00
3      4     Ryan 729.00
4      5     Gary 843.25

---

或者另一种选择是将其传递到 across

data %>% 
   filter(across(all_of(col), ~ match.fun(operator)(.x, amt)))
  emp_id emp_name salary
1      1     Rick 623.30
2      3 Michelle 611.00
3      4     Ryan 729.00
4      5     Gary 843.25

---

或者另一种选择是使用 paste/str_c 创建表达式，然后解析

library(stringr)
data %>% 
  filter(!!rlang::parse_expr(str_c(col, operator, amt)))
  emp_id emp_name salary
1      1     Rick 623.30
2      3 Michelle 611.00
3      4     Ryan 729.00
4      5     Gary 843.25