如何合并所有列表并提取唯一名称？附R语言示例数据

我来帮你搞定这个问题！要合并列表中的多个data.frame，同时让Abund列的名称保持唯一，咱们可以用tidyverse工具包来轻松实现，具体步骤如下：

步骤1：加载必要的工具包 #

首先需要加载dplyr和purrr（或者直接加载整个tidyverse），用来处理数据合并和分组操作：

library(tidyverse)

步骤2：合并列表中的所有data.frame #

把列表里的各个data.frame合并成一个完整的数据集，bind_rows()会自动保留所有列，同时我们先把原始数据里的空字符串转为NA，方便后续处理：

combined_df <- ldf %>%
  map(~ mutate(.x, across(-Abund, ~ na_if(.x, "")))) %>%
  bind_rows()

步骤3：按Abund分组，保留唯一名称并整合数据 #

按Abund分组后，把同一名称对应的所有列信息整合到一行，保留非空/非NA的值：

unique_abund_df <- combined_df %>%
  group_by(Abund) %>%
  summarize(
    across(everything(), ~ first(na.omit(c(.x, NA)))),
    .groups = "drop"
  )

用data.table的替代方案 #

如果你习惯用data.table，也可以这样实现：

library(data.table)
# 合并列表，自动填充缺失列
combined_dt <- rbindlist(ldf, fill = TRUE)
# 把空字符串转NA
combined_dt[, (names(combined_dt)[-1]) := lapply(.SD, function(x) na_if(x, "")), .SDcols = -"Abund"]
# 按Abund分组整合
unique_abund_dt <- combined_dt[, lapply(.SD, function(x) first(na.omit(c(x, NA)))), by = Abund]

这样处理后，你就得到了一个Abund列全为唯一值的数据集，同时保留了所有原始的Value列信息，缺失的数值会显示为NA。

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