6

我想使用 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 的组合......帮助！？

4

4 回答 4

10

我们可以用one_of

 mtcars %>%
        select(-one_of(rem_cols))
于 2017-07-14T10:28:22.707 回答
6

在这种情况下我也会使用one_of()，但更一般地说，您必须创建以-符号为参数的调用。

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

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

然后，您可以将呼叫列表与!!!

于 2017-07-17T13:37:42.207 回答
2

我在完成这项任务时遇到的困难导致我编写了一个包，friendlyeval来简化整洁的 eval API。这是一个关于如何使用它的想法：

library(friendlyeval)
library(dplyr)
data(mtcars)

rem_cols <- c("wt", "qsec", "vs", "am", "gear", "carb")
minus_cols <- paste0("-",rem_cols)
# [1] "-wt"   "-qsec" "-vs"   "-am"   "-gear" "-carb"

head(select(mtcars, !!!friendlyeval::treat_strings_as_exprs(minus_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

这里的一个陷阱是您必须使用treat_strings_as_exprs()而不是treat_strings_as_cols()，因为“-wt”是一个涉及列名的表达式，而不是实际的列名。

于 2018-06-24T00:25:51.650 回答
1 
drop = c("wt", "qsec", "vs", "am", "gear", "carb")
 mtcars %>% 
    select_(.dots= setdiff(names(.),drop))
于 2017-07-14T10:25:48.103 回答