R语言：如何合并数据框多列并保留每行元素的分隔？

你的问题核心是：当前用do.call(paste0, DF[c("Col1", "Col2", "Col3")])会把空字符串直接拼接，导致第三行的非空值连在一起没有分隔。我们需要的是只合并每行中的非空值，并且给它们加上指定分隔符，这里有两种实用的解决方案：

方案一：Base R 原生方法（无需额外包） #

利用apply逐行处理数据框，先过滤掉每行的空字符串，再用paste()指定分隔符合并：

# 你的原始数据框
DF <- data.frame(lapply(data.frame(Col1 = c("test", "", "test3"), Col2 = c("", "test2", ""), Col3 = c("", "", "test4")), as.character), stringsAsFactors=FALSE)

# 添加合并列
DF$Merged <- apply(DF, 1, function(row) {
  # 过滤掉当前行的空字符串
  non_empty <- row[row != ""]
  # 用指定分隔符合并（这里用", "，你可以换成空格、"-"等）
  paste(non_empty, collapse = ", ")
})

执行后的数据框效果：

Col1  Col2  Col3        Merged
1  test                 test
2        test2          test2
3 test3        test4 test3, test4

方案二：Tidyverse 风格（更简洁的管道操作） #

如果你习惯用dplyr和tidyr，可以先把空字符串转换为NA，再用unite()函数自动忽略NA并合并：

library(dplyr)
library(tidyr)

DF <- DF %>%
  # 将所有空字符串转为NA
  mutate(across(everything(), ~na_if(., ""))) %>%
  # 合并Col1到Col3，指定分隔符，忽略NA
  unite(Merged, Col1:Col3, sep = ", ", na.rm = TRUE)

这个方法和方案一的效果完全一致，适合已经在使用tidyverse工具链的场景。

两种方法都可以灵活调整分隔符（比如把", "换成" "或者"|"），根据你的需求修改即可～

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