R语言合并data.frame并拼接单元格值的实现方法求助

假设你的两个data.frame结构完全一致（列数、行数、列名均匹配），以下是几种可行的实现方式：

1. 基础R原生方法（无需额外包） #

先构造示例数据：

df1 <- data.frame(a = c("x", "y"), b = c("m", "n"), stringsAsFactors = FALSE)
df2 <- data.frame(a = c("1", "2"), b = c("3", "4"), stringsAsFactors = FALSE)

使用Map函数逐列拼接对应单元格的值：

merged_df <- data.frame(
  Map(function(col1, col2) paste(col1, col2, sep = " "), df1, df2),
  stringsAsFactors = FALSE
)

2. tidyverse 实现方案 #

借助purrr的map2_dfc函数，按列并行处理两个data.frame：

library(tidyverse)

merged_df <- map2_dfc(df1, df2, ~paste(.x, .y, sep = " "))

3. 矩阵化快速处理（适合大型数据集） #

将data.frame转为矩阵后批量拼接，再转回data.frame：

merged_df <- as.data.frame(
  paste(as.matrix(df1), as.matrix(df2), sep = " "),
  stringsAsFactors = FALSE
)
colnames(merged_df) <- colnames(df1) # 还原原列名

验证结果 #

执行上述任意方法后，merged_df的输出为：

a   b
1 x 1 m 3
2 y 2 n 4

注意：如果你的data.frame存在列名不匹配的情况，需要先对齐列名（比如用dplyr::select调整列顺序），确保两个数据集的列完全对应后再执行拼接操作。

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