r - 如何使用 "gather"和 "select"的变量

Question

我想将一个文本分配给一个变量，然后在我的管道中使用该变量。我大量使用 gather 和 select。

在下面的示例中，我希望能够在我的管道代码中使用 x:

library(tidyverse)

mtcars %>% head

mtcars %>% 
  gather(type, value, mpg:am) %>% head

mtcars %>% select(mpg:am) %>% head

这是我要使用的变量

x <- "mpg:am"

我试过的都没有用

mtcars %>% 
  gather(type, value, get(x)) %>% head


mtcars %>% 
  gather(type, value, !!rlang::sym(x)) %>% head


mtcars %>% select(x) %>% head
mtcars %>% select(!!rlang::sym(x)) %>% head

有什么想法吗？

Answer 1

我们可以quote/quo它，然后用!!进行评估

x <- quo(mpg:am)
out1 <- mtcars %>%
            gather(type, value, !! x)

检查输出

out2 <- mtcars %>%
           gather(type, value, mpg:am)
identical(out1, out2)
#[1] TRUE