以编程方式使用dplyr case_when

Question

我尝试使用dplyr case_when并传递变量，但结果并不像预期的那样。

示例：

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

然而，当我试图传递一个变量时，它返回的都是"low“。

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