仅当列存在时才将其删除

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

数据表

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 创建于 2021-07-09 (v2.0.0)}