Question

知道如何以编程方式操作dplyr变量吗？

这有效：

out = "new_var"
mtcars %>% 
  mutate(!!out := mpg/carb)

但我真的需要能够调整分区中的变量。以为我可以这样做：

out = "new_var"
numer = "mpg"
denom = "carb"
mtcars %>%
  mutate(!!out := !! quo(numer/denom))

但没有骰子：

Error in mutate_impl(.data, dots) : 
  Evaluation error: non-numeric argument to binary operator.

结果应如下所示：

    mpg cyl  disp  hp drat    wt  qsec vs am gear carb   new_var
1  21.0   6 160.0 110 3.90 2.620 16.46  0  1    4    4  5.250000
2  21.0   6 160.0 110 3.90 2.875 17.02  0  1    4    4  5.250000
3  22.8   4 108.0  93 3.85 2.320 18.61  1  1    4    1 22.800000
4  21.4   6 258.0 110 3.08 3.215 19.44  1  0    3    1 21.400000
5  18.7   8 360.0 175 3.15 3.440 17.02  0  0    3    2  9.350000
6  18.1   6 225.0 105 2.76 3.460 20.22  1  0    3    1 18.100000
7  14.3   8 360.0 245 3.21 3.570 15.84  0  0    3    4  3.575000
8  24.4   4 146.7  62 3.69 3.190 20.00  1  0    4    2 12.200000
...

知道这是如何工作的吗？

已解决---------------------------------------------- ---

myFunction = function(df, col, col2, new_col) {
    col <- enquo(col)
    col2 <- enquo(col2)
    new_col <- quo_name(enquo(new_col))

    df %>% 
        mutate(!!new_col := (!!col)/(!!col2))
}

myFunction(mtcars, mpg, wt, mpg_based_new_col)

Answer 1

如果要从字符值中进行调整，可以使用rlang::sym()函数（或仅使用基本as.name()函数）。例如

out = "new_var"
numer = rlang::sym("mpg")
denom = rlang::sym("carb")
library(tidyverse)
mtcars %>%
  mutate(!!out := (!!numer)/(!!denom))

注意我们如何分别逃避每个变量而不是整个表达式。

编程dplyr操作

1 个答案: