如何合并R语言中的DataFrame列表并生成自定义表头行结构？

核心思路 #

需要将两个结构有差异的DataFrame，按照第一个DF的列结构对齐，中间插入一行自定义表头映射，最终合并为三行的单个DataFrame。具体步骤为：

1. 以第一个DataFrame的列名为基准，构建自定义表头行
2. 将第二个DataFrame的列映射到第一个DF的列位置，确保列顺序一致
3. 依次合并第一个DF、表头行、对齐后的第二个DF

完整代码实现 #

# 原始数据
data <- list(structure(list(GROUP = "3\nN=6 (86%)", col1 = "6.5 [5.25; 7.75]", 
    col2 = "9 [7.25; 10.75]", col3 = "10.5 [9.25; 11.75]", dif = "1-2: -3 [-3; -3]\n1-3: -5 [-5; -5]\n2-3: -2 [-2; -2]", 
    p.value = "1-2: 0.107\n1-3: 0.013*\n2-3: 0.295"), row.names = c(NA, 
-1L), class = "data.frame"), structure(list(GROUP = "3\nN=6 (86%)", 
    col3 = "10.5 [9.25; 11.75]", col4 = "14.5 [12.5; 15.75]", 
    col5 = "16.5 [15.25; 17.75]", dif = "3-4: -3 [-3; -3]\n3-5: -6 [-6; -6]\n4-5: -3 [-3; -3]", 
    p.value = "3-4: 0.030*\n3-5: 0.002*\n4-5: 0.126"), row.names = c(NA, 
-1L), class = "data.frame"))

# 提取第一个DF的列名作为基准
base_cols <- names(data[[1]])

# 构建自定义表头行（列顺序与基准一致）
header_row <- data.frame(
  GROUP = "GROUP",
  col1 = "col3",
  col2 = "col4",
  col3 = "col5",
  dif = "dif",
  p.value = "p.value",
  stringsAsFactors = FALSE
)[, base_cols]

# 将第二个DF的列映射到基准列结构
df2_aligned <- data.frame(
  GROUP = data[[2]]$GROUP,
  col1 = data[[2]]$col3,
  col2 = data[[2]]$col4,
  col3 = data[[2]]$col5,
  dif = data[[2]]$dif,
  p.value = data[[2]]$p.value,
  stringsAsFactors = FALSE
)[, base_cols]

# 合并三个部分得到最终结果
result <- rbind(data[[1]], header_row, df2_aligned)

# 查看结果
print(result)

结果验证 #

运行上述代码后，result的结构与预期输出完全一致：

> str(result)
'data.frame':	3 obs. of  6 variables:
 $ GROUP   : chr  "3\nN=6 (86%)" "GROUP" "3\nN=6 (86%)"
 $ col1    : chr  "6.5 [5.25; 7.75]" "col3" "10.5 [9.25; 11.75]"
 $ col2    : chr  "9 [7.25; 10.75]" "col4" "14.5 [12.5; 15.75]"
 $ col3    : chr  "10.5 [9.25; 11.75]" "col5" "16.5 [15.25; 17.75]"
 $ dif     : chr  "1-2: -3 [-3; -3]\n1-3: -5 [-5; -5]\n2-3: -2 [-2; -2]" "dif" "3-4: -3 [-3; -3]\n3-5: -6 [-6; -6]\n4-5: -3 [-3; -3]"
 $ p.value : chr  "1-2: 0.107\n1-3: 0.013*\n2-3: 0.295" "p.value" "3-4: 0.030*\n3-5: 0.002*\n4-5: 0.126"

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