R语言：如何将数据框各列的行元素拼接为单个值

嗨，这个需求我平时处理数据时经常碰到，给你分享几个实用的实现方式，你可以根据自己的代码习惯来选：

方法一：Base R原生实现 #

不用额外装包，直接用R自带的函数就能搞定，适合不想引入第三方包的场景：

# 先构造你的数据框（R4.0+默认stringsAsFactors=FALSE，旧版本建议加上）
v1 <- c("aaa", "bbb")
v2 <- c(111, 222)
df <- data.frame(v1, v2)

# 核心代码：遍历每一列，用paste拼接元素
df_collapsed <- as.data.frame(lapply(df, function(col) paste(col, collapse = ", ")))

# 查看结果
df_collapsed

解释：lapply会逐个处理数据框的每一列，paste(..., collapse = ", ")把列里的所有元素用, 连接成单个字符串，最后用as.data.frame把结果转回数据框格式。

方法二：用dplyr（tidyverse系列）简化代码 #

如果你平时习惯用tidyverse的工具链，这个写法会更简洁直观：

# 先加载dplyr包（如果没装的话先运行install.packages("dplyr")）
library(dplyr)

# 一行代码完成拼接
df_collapsed <- df %>%
  summarise_all(~paste(., collapse = ", "))

# 查看结果
df_collapsed

解释：summarise_all会对数据框的每一列应用后面的匿名函数，直接把每列的元素拼接成你要的字符串，管道符%>%让代码逻辑更清晰。

方法三：purrr包的简洁写法 #

同样属于tidyverse家族，purrr的map_dfr可以直接把处理后的结果整合成数据框：

# 加载purrr包（没装的话先运行install.packages("purrr")）
library(purrr)

# 核心代码
df_collapsed <- map_dfr(df, ~paste(., collapse = ", "))

# 查看结果
df_collapsed

解释：map_dfr遍历每一列并执行拼接操作，自动把结果组合成数据框，代码非常精简。

小提示 #

如果你的数据框里有因子类型的列（比如旧版本R构造数据框时没加stringsAsFactors=FALSE），建议先把列转成字符型再拼接，避免出现拼接因子水平值的问题，比如用df$v1 <- as.character(df$v1)。

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