以编程方式使用 dplyr case_when

Question

我正在尝试使用 dplyr case_when 并传递变量，但结果不如预期。

例子：

library(dplyr)
mtcars %>% 
  mutate(cg = case_when(carb <= 2 ~ "low",
                        carb > 2  ~ "high")) ---this works

但是，当我尝试传递一个变量时，它会全部返回为“低”

var <- quo(carb)
mtcars %>% 
  mutate(cg = case_when(!!var <= 2 ~ "low",
                    !!var > 2  ~ "high"))

Answer 1

这是一个运算顺序问题，需要用括号：

quo_function <- function(df, var) {
  df %>%
    mutate(cg = case_when((!!var) <= 2 ~ "low",
                          (!!var) > 2 ~ "high"))  
}

看看这个帖子this post。