如何从R的DataFrame列表中提取各DataFrame最大值并生成指定结果

首先要注意你的数据里存在字符串类型的'NA'，这会导致最大值计算出错，所以第一步需要先将这些字符串转换成R识别的缺失值NA，然后再提取每个DataFrame的ID和对应数值列的最大值。

方法一：Base R 实现 #

# 定义处理单个DataFrame的函数
process_df <- function(df) {
  # 将含'NA'字符串的列转换为数值型并替换为NA
  df[] <- lapply(df, function(col) {
    if (is.character(col)) {
      as.numeric(ifelse(col == 'NA', NA, col))
    } else {
      col
    }
  })
  # 获取唯一ID
  id <- unique(df$ID)
  # 计算数值列的最大值（排除ID列）
  max_val <- max(df[, sapply(df, is.numeric) & names(df) != 'ID'], na.rm = TRUE)
  # 返回单行数据框
  data.frame(ID = id, Max.Value = max_val, stringsAsFactors = FALSE)
}

# 遍历列表处理所有DataFrame并合并结果
result <- do.call(rbind, lapply(abc, process_df))

方法二：dplyr + purrr 实现（更简洁） #

如果习惯使用tidyverse工具，可使用以下代码：

library(dplyr)
library(purrr)

result <- map_dfr(abc, function(df) {
  df %>%
    # 将字符串'NA'转换为真正的NA，并将非ID字符列转为数值列
    mutate(across(-ID, ~ifelse(.x == 'NA', NA, as.numeric(.x)))) %>%
    # 提取ID和对应最大值
    summarise(
      ID = first(ID),
      Max.Value = max(across(where(is.numeric)), na.rm = TRUE)
    )
})

结果验证 #

运行上述代码后，result会生成你需要的格式：

ID Max.Value
1  a        14
2  b        15
3  c        27

你的尝试未成功的原因 #

• max(unlist(abc), na.rm = T)：计算的是整个列表所有元素的全局最大值，而非每个DataFrame单独的最大值。
• sapply(abc, function(x) max(x[3:9], na.rm=TRUE))：虽然能获取每个DataFrame的最大值，但未与ID关联，也未组合成目标DataFrame格式；此外，x[3:9]包含字符型列，直接调用max会引发类型错误。

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