在RMarkdown中合并多个数据框并保留行名的问题

我在RMarkdown文件中需要合并5个数据框，要求保留行名并将每个相关列添加到表中。合并两个数据框（k1_1、k1_2）时，使用K1 <- merge(k1_1, k1_2, by="row.names")可以成功，但尝试K1 <- merge(k1_1, k1_2, k1_3, k1_4, k1_5, by = "row.names")合并5个数据框时失败。这些数据框由带行名列的标准数据框经s.data.frame(t())转换而来。我还尝试过merge()、各类join函数、rbind.fill()、bind_rows()以及如下代码，均未成功：

k1_1 <- head(by_source_baseline)[1]
k1_2 <- head(by_source_allocation)[1]
k1_3 <- head(by_source_allocation)[1]
k1_4 <- head(by_source_allocation)[1]
k1_5 <- head(by_source_allocation)[1]
kable(list(k1_1, k1_2, k1_3, k1_4, k1_5))

解决方案 #

方法1：逐步链式合并 #

merge()函数一次仅支持合并两个数据框，因此可以通过逐步合并的方式处理多个数据框：

# 合并前两个数据框
K_temp <- merge(k1_1, k1_2, by = "row.names")
# 依次合并后续数据框
K_temp <- merge(K_temp, k1_3, by = "Row.names")
K_temp <- merge(K_temp, k1_4, by = "Row.names")
K_final <- merge(K_temp, k1_5, by = "Row.names")

# 可选：将自动生成的Row.names列恢复为行名并移除该列
rownames(K_final) <- K_final$Row.names
K_final$Row.names <- NULL

方法2：用purrr::reduce批量合并 #

借助purrr包的reduce函数可以批量处理多数据框合并，代码更简洁：

library(purrr)

# 将所有需要合并的数据框放入列表
df_list <- list(k1_1, k1_2, k1_3, k1_4, k1_5)

# 批量执行merge，指定按行名合并
K_final <- reduce(df_list, merge, by = "row.names")

# 可选：恢复行名并清理冗余列
rownames(K_final) <- K_final$Row.names
K_final$Row.names <- NULL

方法3：先统一行名为显式列再合并 #

由于你的数据框由转置生成，可先将每个数据框的行名转为显式列，再用dplyr的批量join实现合并：

library(dplyr)
library(purrr)

# 定义函数：将行名转为id列并前置
add_id_col <- function(df) {
  df %>%
    mutate(id = rownames(.)) %>%
    relocate(id)
}

# 为所有数据框添加id列
df_list <- list(k1_1, k1_2, k1_3, k1_4, k1_5) %>%
  map(add_id_col)

# 批量执行左连接
K_final <- reduce(df_list, left_join, by = "id")

# 可选：将id列设为行名并移除该列
rownames(K_final) <- K_final$id
K_final$id <- NULL

内容的提问来源于stack exchange，提问作者jor-hoeh