如何向select()传入负向tidyselect表达式字符向量并忽略不存在的列

需要对tibble执行列排除操作，排除规则混合了明确列名与tidyselect表达式，要求：若待排除的列在tibble中不存在，管道操作不报错中断，仅排除存在的、匹配规则的列。
原实现代码运行时会因不存在的列id报错：

library(tidyverse)
library(rlang)

# 混合列名与tidyselect表达式的排除规则
exclude_expression <- c('-name', '-ends_with("_x")', '-id')

# 测试数据，不存在id列
dat <- 
  tribble(
    ~name,  ~coord_x, ~coord_y,
    "ben",  "1",      "2",
    "anna", "3",      "4"
  )

# 原写法报错
dat %>% 
  select(
    !!!parse_exprs(exclude_expression)
  )
#> Error: Can't subset columns that don't exist.
#> x Column `id` doesn't exist.

预期输出为仅保留coord_y列的tibble：

# A tibble: 2 x 1
  coord_y
  <chr>  
1 2      
2 4

原写法报错的核心原因是select默认使用严格匹配模式，规则中涉及的明确列名如果不存在会直接抛出错误，不会自动跳过。可以通过非严格模式先匹配所有排除规则对应的真实存在的列，再统一排除，兼容所有tidyselect表达式，不存在的列会自动忽略：

# 1. 处理排除规则：去掉表达式前的负号，解析为合法R表达式
exclude_rules <- str_remove(exclude_expression, "^-") %>% parse_exprs()

# 2. 非严格模式匹配数据中真实存在的、符合排除规则的列，不存在的列自动跳过
matched_exclude_cols <- names(
  eval_select(
    expr(c(!!!exclude_rules)), 
    data = dat, 
    strict = FALSE
  )
)

# 3. 统一排除匹配到的列，得到结果
dat %>%
  select(-all_of(matched_exclude_cols))

简化场景 #

如果排除规则全是明确列名，不包含ends_with这类tidyselect选择函数，可以直接用any_of()实现自动忽略不存在的列，写法更简洁：

# 仅当exclude_vec是纯列名字符串时使用
exclude_vec <- c("name", "id")
dat %>% select(-any_of(exclude_vec))

内容的提问来源于stack exchange，提问作者piptoma