以tidyeval方式删除列

Question

我想使用dplyr> = 0.7删除列向量

library(dplyr)
data(mtcars)

rem_cols <- c("wt", "qsec", "vs", "am", "gear", "carb")
head(select(mtcars, !!paste0("-", rem_cols)))

错误:字符串必须与列名匹配.未知列:-wt,-qsec,-vs,-am,-gear,-carb

dplyr <0.7的工作原理如下:

head(select_(mtcars, .dots = paste0("-", rem_cols)))
#                    mpg cyl disp  hp drat
# Mazda RX4         21.0   6  160 110 3.90
# Mazda RX4 Wag     21.0   6  160 110 3.90
# Datsun 710        22.8   4  108  93 3.85
# Hornet 4 Drive    21.4   6  258 110 3.08
# Hornet Sportabout 18.7   8  360 175 3.15
# Valiant           18.1   6  225 105 2.76

我已经尝试了所有rlang的组合:syms(),!!,!!!,quo和enquo,我能想​​到......帮助!？

Answer 1

我们可以用 one_of

 mtcars %>%
        select(-one_of(rem_cols))

Answer 2

我也会one_of()在这种情况下使用,但更一般地说,你必须-使用符号作为参数创建调用.

# This creates a single call:
call("-", quote(a))

# This creates a list of calls:
syms(letters) %>% map(function(sym) call("-", sym))

然后,您可以使用拼接列表来拼接 !!!