如何在R语言中自动拼接DataFrame指定列并更新目标列？

问题场景 #

有如下初始DataFrame：

asd <- data.frame(a = c("A", "B"), b = c(1,2))

手动拼接a、b列更新a可以用asd$a <- paste0(asd$a, "_", asd$b)，但当DataFrame新增c、x列后，需要拼接a、b、c三列来更新a，手动写拼接代码太繁琐，希望实现自动化。自己写的paste_function无法正常运行，需要简便的实现方法。

预期输出（测试数据为asd <- data.frame(a = c("A", "B"), b = c(1,2), c = c(1,2), x = c(1,2))）：

asd
      a b c x
1 A_1_1 1 1 1
2 B_2_2 2 2 2

用户尝试的无效函数：

paste_function <- function(df, df_col = c(a, b)){
  for (i in df_col){
    return(substr(paste0(df,'$',df_col,collapse = ",", sep = ",'_'"), 1,nchar(paste0(df,'$',df_col,collapse = ",", sep = ",'_'"))-4))
  }
}

asd$a <- paste_function(asd, df_col = c(a, b, c))

可行解决方案 #

方案1：基础R原生实现 #

用apply逐行处理指定列，完成拼接后覆盖原a列：

# 构造包含新增列的测试数据
asd <- data.frame(a = c("A", "B"), b = c(1,2), c = c(1,2), x = c(1,2))

# 定义需要拼接的列名
target_cols <- c("a", "b", "c")

# 逐行拼接列值，用下划线分隔
asd$a <- apply(asd[target_cols], 1, function(row) paste(row, collapse = "_"))

方案2：tidyverse工具包实现（更简洁） #

如果常用dplyr，可以用unite函数一步完成拼接与列更新：

library(dplyr)

asd <- data.frame(a = c("A", "B"), b = c(1,2), c = c(1,2), x = c(1,2))

# 定义需要拼接的列名
target_cols <- c("a", "b", "c")

# unite函数：将指定列拼接成新列，覆盖原a列；设置remove=FALSE保留原拼接列，之后按需调整列顺序
asd <- asd %>%
  unite(col = "a", all_of(target_cols), sep = "_", remove = FALSE) %>%
  select(a, b, c, x)  # 恢复原列顺序（可选操作）

原函数失效原因 #

你的函数试图通过拼接字符串生成代码，但这种方式并没有实际获取列的数值进行拼接，只是生成了类似asd$a,asd$b,asd$c的文本，没有执行真正的拼接操作，所以无法得到正确结果。

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