Как мне преобразовать этот код из mutate_ в mutate?

Question

Я пытаюсь создать копию столбца на основе переменной, то есть имя нового столбца является постоянным, но тот, который он копирует, изменяется. Это то, что я сделал бы ранее:

library(dplyr)

x <- "mpg"

mtcars %>%
  mutate_(Target = x)

Чтобы получить такие результаты:

Однако, когда вы запустите это, вы получите предупреждение:

Warning message:
mutate_() is deprecated. 
Please use mutate() instead

Он предлагает взглянуть на https://tidyeval.tidyverse.org/ в качестве руководства; У меня было быстрое снятие, но я не нашел это как вариант использования в документе. (Похоже, это не решает проблему преобразования существующего кода, но, может быть, я просто недостаточно хорошо его понимаю?)

Как переместить этот код с mutate_() на mutate()?

Answer 1

Вам необходимо придерживаться нестандартной оценки dplyr

mtcars %>% mutate(Target = !!sym(x))
#    mpg cyl  disp  hp drat    wt  qsec vs am gear carb Target
#1  21.0   6 160.0 110 3.90 2.620 16.46  0  1    4    4   21.0
#2  21.0   6 160.0 110 3.90 2.875 17.02  0  1    4    4   21.0
#3  22.8   4 108.0  93 3.85 2.320 18.61  1  1    4    1   22.8
#4  21.4   6 258.0 110 3.08 3.215 19.44  1  0    3    1   21.4
#5  18.7   8 360.0 175 3.15 3.440 17.02  0  0    3    2   18.7
#6  18.1   6 225.0 105 2.76 3.460 20.22  1  0    3    1   18.1
...

Здесь sym принимает строку в качестве входных данных и превращает ее в символ, который вы затем заключаете в кавычки, используя bang-оператор взрыва !!.

Также обратите внимание, что mutate_ устарела.

Answer 2

Мы можем использовать mutate_at, и это также может быть использовано для нескольких столбцов

library(dplyr)
mtcars %>% 
      mutate_at(vars(x),   list(Target = ~ I))

Answer 3

Вы также можете попробовать базовый способ, как это ...

x <- mtcars$mpg
mtcars$Target <- x

Answer 4

Вы можете использовать rlang::sym или базу R get

library(dplyr)

mtcars %>% mutate(Target = !!rlang::sym(x))

mtcars %>% mutate(Target = get(x))