7

我希望能够以编程方式使用dplyr'scase_when来替换基本 Rcut()函数。

目前，case_when 可以通过 NSE 与外部参数一起使用，例如：

library(dplyr)
library(rlang)

patterns <- list(
  x <= 2 ~ "<=2",
  x <= 4 ~ "2<->4",
  x > 4 ~ ">4"
 )
 x <- 1:10
 case_when(!!!patterns)

我想要做的是：将它与另一个变量一起使用，在 mutate

这个想法是这样的，虽然我不知道如何让它工作：

library(dplyr)
patterns_lazy <- list(
  !!quo(x) <= 2 ~ "<=2",
  !!quo(x) <= 4 ~ "2<->4",
  !!quo(x) > 4 ~ ">4"
)
x <- "cyl"
mtcars %>% mutate(ABC = case_when(!!!patterns_lazy))

我希望能够定义要过滤的列（在字符串内），并检索类似的内容（此示例不起作用，因为它是所需的语法）：

x <- "cyl"
mtcars %>%
  select(cyl) %>%
  mutate(ABC = case_when(!!!patterns_lazy)) %>%
  head()

  cyl ABC
1   6 >4
2   6 >4
3   4 2<->4
4   6 >4
5   8 >4
6   6 >4

谢谢你的帮助 ：）

4

2 回答 2

12

你不能!!在那里使用：

patterns <- list(
  !!quo(x) <= 2 ~ "<=2",
  !!quo(x) <= 4 ~ "2<->4",
  !!quo(x) > 4 ~ ">4"
)
  1. 既不list()也不~支持准报价。
  2. 如果它确实支持 quasiquotation，那么您需要注意运算符优先级并将您!!quo()的括号括起来。
  3. 最后，该引号x将评估为一个字符串，并且您将数字与字符串进行比较（在您的示例中它将是"cyl），由于隐式强制，R 会很高兴地做到这一点：/

所以你需要使用exprs()代替list()，并使用x代词 .data代替引号x。

exprs()将创建一个未计算的表达式列表。未评估是好的：如果您的公式被评估，它将带有一个环境（这里是全局环境），并且该环境不包含提供给 dplyr 的任何数据，特别是没有.data 代词。另一方面，如果公式是“无上下文”的，它们会在我们想要的数据上下文中进行评估。

patterns_lazy <- exprs(
  .data[[x]] <= 2 ~ "<=2",
  .data[[x]] <= 4 ~ "2<->4",
  .data[[x]] > 4 ~ ">4"
)

x <- "cyl"
pull(mutate(mtcars, case_when(!!!patterns_lazy)))
#>  [1] ">4"    ">4"    "2<->4" ">4"    ">4"    ">4"    ">4"    "2<->4" "2<->4"
#> [10] ">4"    ">4"    ">4"    ">4"    ">4"    ">4"    ">4"    ">4"    "2<->4"
#> [19] "2<->4" "2<->4" "2<->4" ">4"    ">4"    ">4"    ">4"    "2<->4" "2<->4"
#> [28] "2<->4" ">4"    ">4"    ">4"    "2<->4"
于 2017-06-29T10:52:50.300 回答
2

这是一个选项ifelse

f1 <- function(data, x){
       x <- enquo(x)       
       f2 <- function(y) ifelse(y <= 2, "<=2", ifelse(y <=4, "2<->4", ">4"))

  data %>%
          mutate( ABC = f2(UQ(x)))
 }

f1(mtcars, cyl) %>%
              head()
#   mpg cyl disp  hp drat    wt  qsec vs am gear carb   ABC
#1 21.0   6  160 110 3.90 2.620 16.46  0  1    4    4    >4
#2 21.0   6  160 110 3.90 2.875 17.02  0  1    4    4    >4
#3 22.8   4  108  93 3.85 2.320 18.61  1  1    4    1 2<->4
#4 21.4   6  258 110 3.08 3.215 19.44  1  0    3    1    >4
#5 18.7   8  360 175 3.15 3.440 17.02  0  0    3    2    >4
#6 18.1   6  225 105 2.76 3.460 20.22  1  0    3    1    >4
于 2017-06-29T10:38:13.467 回答