R-Purrr使用map()对tibble列表按首个非NA切片报错如何解决

错误原因 #

原始代码存在两处核心问题：

• 未将is.na()作用到遍历到的tibble对象上，直接传递了is.na函数本身，导致which.min()接收到函数对象而非可计算的逻辑向量，触发类型转换错误
• 缺少「整行全为NA」的判断逻辑：直接对数据框调用is.na()会返回同维度的逻辑矩阵，which.min()无法直接处理该格式，也无法实现按行判断全NA的需求

修复后代码 #

你可以选择任意一种实现，效果完全一致：

写法1：可读性优先 #

library(purrr)
library(dplyr)

sliced <- map(lst, function(df) {
  # 计算每一行是否全为NA，提取第一个非全NA行的索引
  first_valid_idx <- which(!apply(df, 1, \(row) all(is.na(row))))[1]
  # 从第一个有效行切片到最后一行
  slice(df, first_valid_idx:nrow(df))
})

写法2：简洁高效（推荐） #

直接通过累积判断实现过滤，不需要手动计算行号：

sliced <- map(lst, ~ filter(.x,!cumall(if_all(everything(), is.na))))

效果验证 #

运行后输出sliced$list1可以看到结果如下，已经删除了开头的全NA行：

# A tibble: 4 × 3
  first second third
  <dbl>  <dbl> <dbl>
1     1      1     1
2     2     NA     2
3     3      3    NA
4    NA     NA    NA

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