如何无循环合并动态列数data.frame的每行字符（带分隔符）

针对大数据量、列数动态变化的data.frame，以下是几种无需for循环的高效拼接方法：

1. Base R 轻量化方案（无需额外包） #

利用do.call将data.frame的所有列作为参数传递给paste，自动适配任意列数：

# 示例：用"-"作为分隔符，生成新列combined
data$combined <- do.call(paste, c(data, sep = "-"))

原理：do.call会把data的每一列拆解为paste的独立输入，不管列数是3列还是更多，都能自动处理，性能远优于循环。

2. tidyverse 风格方案 #

如果习惯用dplyr，可以结合rowwise和c_across实现按行拼接：

library(dplyr)
library(stringr)

data <- data %>%
  rowwise() %>%
  mutate(combined = str_c(c_across(everything()), collapse = "-")) %>%
  ungroup()

说明：c_across(everything())捕获当前行的所有列值，str_c的collapse参数指定分隔符，最后ungroup恢复数据结构。

3. 超大数据量最优方案（data.table） #

处理百万级以上数据时，data.table的性能优势明显：

library(data.table)

setDT(data)[, combined := do.call(paste, c(.SD, sep = "-"))]

原理：setDT将data.frame转换为data.table格式，.SD代表所有列，通过do.call调用paste完成拼接，赋值操作效率极高。

以上三种方法都无需手动指定列数，完全适配动态变化的列数，且均避免了for循环，适合大规模数据场景。

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