Блог

Я изменяю вложенные фреймы данных внутри foo с map2 помощью и mutate , и я хотел бы назвать переменную в каждом вложенном фрейме данных в соответствии с foo$name . Я не уверен, какой правильный синтаксис для nse / tidyeval unquotation будет здесь. Моя попытка:

 library(tidyverse)

foo <- mtcars %>%
  group_by(gear) %>%
  nest %>%
  mutate(name = c("one", "two", "three")) %>%
  mutate(data = map2(data, name, ~
                       mutate(.x, !!(.y) := "anything")))
#> Error in quos(...): object '.y' not found
  

Я хочу, чтобы имя вновь созданной переменной внутри вложенных фреймов данных было «один», «два» и «три» соответственно.

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

 name <- "test"
mtcars %>% mutate(!!name := "anything") # works fine
  

В случае успеха следующая строка должна вернуть TRUE :

 foo[1,2] %>% unnest %>% names %>% .[11] == "one"
  

Похоже, это особенность / ошибка (не уверен, см. Связанную Проблему GitHub ниже) о том, Как !! работает внутри mutate и map . Решение состоит в том, чтобы определить пользовательскую функцию, и в этом случае отмена кавычек работает должным образом.

 library(tidyverse)

custom_mutate <- function(df, name, string = "anything")
    mutate(df, !!name := string)

foo <- mtcars %>%
  group_by(gear) %>%
  nest %>%
  mutate(name = c("one", "two", "three")) %>%
  mutate(data = map2(data, name, ~
      custom_mutate(.x, .y)))

foo[1,2] %>% unnest %>% names %>% .[11] == "one"
#[1] TRUE
  

Более подробную информацию вы найдете на GitHub в разделе проблема # 541: вызов map2 () при ошибке dplyr::mutate() при работе автономного вызова map2(); обратите внимание, что проблема была закрыта в сентябре 2018 года, поэтому я предполагаю, что это предполагаемое поведение.

Альтернативой может быть использование group_split вместо nest , и в этом случае мы избегаем проблемы с отменой кавычек

 nms <- c("one", "two", "three")

mtcars %>%
    group_split(gear) %>%
    map2(nms, ~.x %>% mutate(!!.y := "anything"))
  

Это из-за времени отмены кавычек. Вложение аккуратных функций eval может быть немного сложным, потому что это самая первая функция tidy eval, которая обрабатывает операторы отмены кавычек.

Давайте перепишем это:

 mutate(data = map2(data, name, ~ mutate(.x, !!.y := "anything")))
  

Для

 mutate(data = map2(data, name, function(x, y) mutate(x, !!y := "anything")))
  

Привязки x и y создаются только при вызове функции с помощью map2() . Итак, при первом mutate() запуске эти привязки еще не существуют, и вы получаете ошибку object not found. С формулой это немного сложнее увидеть, но формула расширяется до функции, принимающей .x и .y аргументирующей, поэтому у нас та же проблема.

В общем, лучше избегать сложной вложенной логики в вашем коде, потому что это затрудняет чтение. С аккуратным eval это еще сложнее, поэтому лучше делать все поэтапно. В качестве дополнительного бонуса пошаговое выполнение требует создания промежуточных переменных, которые, если они правильно названы, помогают понять, что делает функция.