将tidyselect助手函数添加到向量中

Question

在编写代码时，我经常创建一个变量的“向量”。通常，如果我只是在select中输入向量对象，它就会完美地工作。有什么方法可以在字符串中的助手函数中使用吗？

例如，我可以

library(dplyr)

x = c('matches("cyl")')

mtcars %>% 
  select_(x)

但是这并不可取，因为1) select_是不推荐的，2)它是不可伸缩的(也就是说，x = c('hp', 'matches("cyl")')不会同时获取相关的列。

我是否可以使用更多的tidyselect助手函数作为向量的一部分？

注:如果我做这样的事情：

x = c(matches("cyl"))
#> Error: `matches()` must be used within a *selecting* function.
#> ℹ See <https://tidyselect.r-lib.org/reference/faq-selection-context.html>.

我得到了一个错误，所以我肯定需要以某种方式enquo它。

Answer 1

您正在尝试将字符串转换为可能不是最佳方法的代码。但是，您可以将parse_exprs与!!!结合使用。

library(dplyr)
library(rlang)

x = c('matches("cyl")')
mtcars %>% select(!!!parse_exprs(x))

#                    Cyl
#Mazda RX4             6
#Mazda RX4 Wag         6
#Datsun 710            4
#Hornet 4 Drive        6
#Hornet Sportabout     8
#...

x = c('matches("cyl")', 'hp')
mtcars %>% select(!!!parse_exprs(x))

#                    cyl  hp
#Mazda RX4             6 110
#Mazda RX4 Wag         6 110
#Datsun 710            4  93
#Hornet 4 Drive        6 110
#Hornet Sportabout     8 175
#....