使用sapply调用max函数返回“无有效参数，返回-Inf”警告的求助

问题原因 #

你遇到的-Inf结果和警告，本质是**split()生成的df_list中存在空数据框**。当原始数据框df的分组列i中，某些分组值对应的行数量为0时，split()会为这些分组创建空数据框。此时调用max(x$a)时，x$a是长度为0的空向量，max()处理空向量就会返回-Inf并抛出警告。

可以先验证这个问题：

# 查看每个分组数据框的行数，确认是否有空数据框
lapply(df_list, nrow)

解决方法 #

方法1：提前过滤空分组（推荐） #

在生成数据框列表前，先筛选出有数据的分组，避免生成空数据框：

# Base R 实现
# 获取有数据的分组值
valid_groups <- names(which(table(df$i) > 0))
# 只保留有效分组的数据再分割
df_list <- split(df[df$i %in% valid_groups, ], f = df$i[df$i %in% valid_groups])

# Tidyverse 实现
library(dplyr)
df_filtered <- df %>%
  group_by(i) %>%
  filter(n() > 0) %>%  # 过滤掉无数据的分组
  ungroup()
df_list <- split(df_filtered, f = df_filtered$i)

之后再运行原sapply代码就能得到正确的最大值。

方法2：在计算时处理空数据框 #

如果需要保留空分组（比如后续要补全这些分组的结果），可以在sapply的匿名函数里添加空值判断，返回自定义默认值（比如NA）：

sapply(df_list, function(x) {
  if (nrow(x) == 0) {
    NA_real_  # 空数据框时返回NA，可替换为其他默认值
  } else {
    max(x$a)
  }
})

方法3：使用purrr包的安全映射（Tidyverse风格） #

如果熟悉tidyverse生态，purrr的函数更易读且处理空值更灵活：

library(purrr)
map_dbl(df_list, ~if (nrow(.x) == 0) NA_real_ else max(.x$a))

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