如何在R语言管道中动态拼接数据框指定列生成ID变量？

这里有几种在管道中使用动态列名生成拼接ID的方法，完全可以替代你原来的分步操作：

方法1：使用pick() + do.call() #

这种方法和你原来的分步逻辑最接近，直接在mutate里复用do.call(paste0)的逻辑：

library(dplyr)

# 假设你的列名字符向量是idcols，比如 idcols <- c("colA", "colB")
new <- merge(old1, old2, by = "MergeVar") %>%
  mutate(id = do.call(paste0, pick(all_of(idcols))))

• pick(all_of(idcols))：根据字符向量idcols选中目标列，返回对应数据框
• do.call(paste0, ...)：将选中的列按行拼接成单个字符向量，赋值给新列id

方法2：使用unite()函数（更简洁） #

dplyr的unite()专门用于列拼接，语法更直观：

new <- merge(old1, old2, by = "MergeVar") %>%
  unite(col = "id", all_of(idcols), sep = "", remove = FALSE)

• col = "id"：指定生成的新列名
• all_of(idcols)：引用字符向量中的列名，避免dplyr的列名检查警告
• sep = ""：设置拼接时无分隔符（默认是下划线）
• remove = FALSE：保留原来的目标列，不需要的话可以省略这个参数

方法3：使用across() + 非标准求值（备选） #

如果需要更灵活的操作，可以结合rowwise()和across()：

new <- merge(old1, old2, by = "MergeVar") %>%
  rowwise() %>%
  mutate(id = paste0(!!!across(all_of(idcols)))) %>%
  ungroup()

注意：这种方法需要先按行分组（rowwise()），完成操作后记得取消分组（ungroup()），性能略逊于前两种方法。

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