仅在存在时删除列

Question

我只想从数据框中删除一列。

例子：

a <- 1:5
x <- tibble(a, b = a * 2, c = 1)
x %>% select(-'a')
x %>% select(-'d') # Throws an error

我想要一种方法来删除列 a 和 d 仅当它们存在时，所以 a 被删除并且尝试删除 d 永远不会发生。我尝试修改this 解决我的问题，但我无法让它工作。

Answer 1

data.table

library(data.table)
a <- 1:5
x <- data.frame(a, b = a * 2, c = 1)
cols <- c("a", "d")
my_cols <- intersect(cols, names(x))

setDT(x)[, ..my_cols]
#>    a
#> 1: 1
#> 2: 2
#> 3: 3
#> 4: 4
#> 5: 5

^{由reprex package (v2.0.0) 于 2021-07-09 创建}