合并行数不同的DataFrame：基于行名合并8个数据框的技术求助

我来帮你搞定这个植物生境数据合并的问题！你之前遇到的问题主要是没有把行名作为合并的匹配键，而且默认缺失值会显示为NA，咱们一步步来解决：

问题根源 #

你用merge(DF1, DF2, all=TRUE)时，没有指定合并的依据列——R默认会找两个DataFrame中同名的列来合并，但你的每个DF只有唯一的生境列，没法匹配；同时行名没有被当作匹配项，直接丢失了，缺失值自然就显示成NA了。

解决方案步骤 #

1. 先把每个DataFrame的行名转为单独的列 #

咱们需要把植物名称从行名转成一个正式的列（比如叫「植物名称」），这样后续合并才有统一的匹配键：

# 用tidyverse的方法（推荐，更简洁）
library(tibble)

# 处理DF1
DF1 <- DF1 %>% rownames_to_column(var = "植物名称")
# 处理DF2
DF2 <- DF2 %>% rownames_to_column(var = "植物名称")
# 同理处理剩下的6个数据框：DF3到DF8

如果不用tidyverse，基础R也能搞定：

DF1$植物名称 <- rownames(DF1)
rownames(DF1) <- NULL  # 清空原来的行名
# 重复操作到DF8

2. 批量合并所有8个DataFrame #

因为要合并8个DF，一个个写merge太麻烦，咱们用Reduce（基础R）或者purrr::reduce（tidyverse）来批量处理：

方法一：基础R批量合并

# 把所有处理好的DF放进一个列表
df_list <- list(DF1, DF2, DF3, DF4, DF5, DF6, DF7, DF8)

# 用Reduce循环合并，指定按「植物名称」合并，保留所有行
merged_df <- Reduce(function(x, y) merge(x, y, by = "植物名称", all = TRUE), df_list)

# 把所有NA替换为0
merged_df[is.na(merged_df)] <- 0

方法二：tidyverse更直观的写法

library(dplyr)
library(purrr)

# 先把所有DF转成带「植物名称」列的格式，放进列表
df_list <- list(DF1, DF2, DF3, DF4, DF5, DF6, DF7, DF8) %>%
  map(~rownames_to_column(., var = "植物名称"))

# 批量全连接，然后把NA替换为0
merged_df <- df_list %>%
  reduce(full_join, by = "植物名称") %>%
  mutate(across(-植物名称, ~replace_na(., 0)))

3. 验证结果 #

这样处理后，你得到的merged_df就会和你期望的格式完全一致：

• 第一列是所有出现过的植物名称
• 每一列对应一个生境类型
• 某个植物在对应生境没有记录时，值会显示为0而不是NA

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