dplyr::coalesce遇列名缺失报错，如何兼容列存缺场景合并列？

遇到这种部分列可能不存在的情况，核心思路是只让coalesce处理数据集中实际存在的列，同时保留所有可能的邮箱列候选，适配不同使用场景。这里有两种简单可行的实现方式：

方法一：用pick() + any_of()自动筛选列 #

dplyr的any_of()函数可以识别并保留数据集中存在的列，忽略不存在的列，搭配pick()可以直接拿到这些列的集合，再通过do.call传给coalesce：

zed <- zed %>%
  dplyr::mutate(Email = do.call(coalesce, pick(any_of(c(
    "Email Address", "Email", "E-mail Address", "E-MAIL", 
    "email", "E-Mail", "E-mail", "E-Mail Address", 
    "EMAIL ADDRESS", "EMAIL"
  )))))

方法二：先手动筛选存在的列 #

先提前提取数据集中实际存在的邮箱列，再把这些列作为参数传给coalesce：

# 定义所有可能的邮箱列名
email_cols <- c(
  "Email Address", "Email", "E-mail Address", "E-MAIL", 
  "email", "E-Mail", "E-mail", "E-Mail Address", 
  "EMAIL ADDRESS", "EMAIL"
)
# 筛选数据集中存在的列
existing_email_cols <- email_cols[email_cols %in% colnames(zed)]

zed <- zed %>%
  dplyr::mutate(Email = coalesce(!!!rlang::syms(existing_email_cols)))

两种方法的效果一致：不管当前数据集里有没有某几个邮箱列，代码都能正常执行，自动跳过不存在的列，同时在有对应列的场景下正常合并取值。

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