dplyr NSE-如何將列名傳遞給mutate函數調用？

Question

我想在變量中指定的列上使用gsub參數來使數據框的列發生突變，但是我在非標准求值方法上苦苦掙扎。

在這個玩具示例中，我想在調用gsub時使用columns[[1]]和columns[[2]]代替.$name_A和.$name_B 。 我可以還是需要重新考慮自己的方法？

library(tidyverse)

test_df <- tibble(name_A = 
                   c("asdf", "ghjk"),
                 name_B =
                   c("qwer", "tyui"))

columns <- c("name_A", "name_B")

test_df %>%
  mutate(new_col_A = 
           gsub(pattern = 'asdf', replacement = 'NEW_VALUE_A', x = .$name_A),
         new_col_B = 
           gsub(pattern = 'tyui', replacement = 'NEW_VALUE_B', x = .$name_B))

Answer 1

你快到了 您可以將rlang::syms與!!一起使用!! 做你需要的。

library(tidyverse)

test_df <- tibble(name_A = 
                    c("asdf", "ghjk"),
                  name_B =
                    c("qwer", "tyui"))

columns <- rlang::syms(c("name_A", "name_B"))

test_df %>%
  mutate(new_col_A = 
           gsub(pattern = 'asdf', replacement = 'NEW_VALUE_A', x = !! columns[[1]]),
         new_col_B = 
           gsub(pattern = 'tyui', replacement = 'NEW_VALUE_B', x = !! columns[[2]]))

Answer 2

我不是100％肯定你問什么，而是你可以使用正則表達式會發生變異，適用於使用列mutate_at和matches ：

library(tidyverse)

test_df %>% 
  mutate_at(vars(matches('A')), 
            function(.x) gsub(pattern = 'asdf', 
                              replacement = 'NEW_VALUE_A', .x)) %>% 
  mutate_at(vars(matches('B')), 
            function(.x) gsub(pattern = 'tyui', 
                         replacement = 'NEW_VALUE_B', .x))

希望有幫助！

編輯-您也可以按索引調用：

test_df %>% 
mutate_at(vars(1), 
          function(.x) gsub(pattern = 'asdf',
                            replacement = 'NEW_VALUE_A', .x)) %>%
mutate_at(vars(2),
          function(.x) gsub(pattern = 'tyui',
                            replacement = 'NEW_VALUE_B', .x))