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
#....

将tidyselect辅助函数添加到向量

1 个答案: