如何在R中使用mutate动态拼接列，避免硬编码列名？

问题背景 #

需要通过mutate和paste将多列内容拼接为新列，但希望避免硬编码列名，而是通过变量指定列名实现动态拼接。

示例数据集 #

test <- data.frame(
  name = c("Andrea","Matteo","Matteo","sonia"),
  code = c("A", "A", "B", "B"),
  number = c(1,1,2,2),
  surname = c("surname1", "surname2", "surname3","surname4")
)

期望的硬编码效果 #

以下是直接写死列名的目标实现，我们需要用动态列名达到相同效果：

test1 <- test %>%
  mutate(aggregate = paste(surname, number, name))

错误尝试分析 #

你之前的代码问题在于：paste(needed1)只是把字符串"name"本身拼接到结果里，而不是提取数据框中name列的实际值：

needed1 <- "name"
test2 <- test %>%
  mutate(aggregate = paste(surname, number, paste(needed1)))

可行解决方案 #

方法1：使用.data代词（最直观） #

利用tidyverse中的.data代词，直接通过字符串索引提取对应列：

needed1 <- "name"
test2 <- test %>%
  mutate(aggregate = paste(surname, number, .data[[needed1]]))

方法2：使用rlang包的符号求值 #

将字符串转换为列名符号后求值，需要加载rlang包：

library(rlang)
needed1 <- "name"
test2 <- test %>%
  mutate(aggregate = paste(surname, number, !!sym(needed1)))

方法3：批量指定多列（扩展场景） #

如果需要动态指定多个列名（比如存放在向量中），可以用pick配合do.call实现批量拼接：

# 定义需要拼接的列名向量
needed_cols <- c("surname", "number", "name")
test3 <- test %>%
  mutate(aggregate = do.call(paste, pick(all_of(needed_cols))))

或者用across结合reduce：

library(purrr)
needed_cols <- c("surname", "number", "name")
test3 <- test %>%
  mutate(aggregate = across(all_of(needed_cols)) %>% reduce(paste))

内容的提问来源于stack exchange，提问作者i.b