R语言如何提取列表中非NA元素的索引及对应值

首先给出题目中目标列表的构造代码：

lst <- as.list(rep(c(NA, 4, NA), times = c(5, 1, 2)))

方法1：基础R实现（无额外依赖，最通用） #

核心逻辑是遍历列表的每个元素判断是否为NA，生成逻辑掩码后分别提取索引和对应值，用vapply比sapply更稳健，可明确指定返回值类型避免隐式转换错误：

# 生成非NA元素的逻辑掩码
non_na_mask <- !vapply(lst, is.na, FUN.VALUE = logical(1))

# 提取非NA元素的索引
non_na_index <- which(non_na_mask)

# 提取非NA元素的取值，不需要向量格式的话可以去掉unlist直接保留列表
non_na_value <- unlist(lst[non_na_mask])

运行后non_na_index将得到示例中的6，non_na_value将得到4，完全符合需求。如果需要结构化结果可以直接合并为数据框：

result_df <- data.frame(
  索引 = non_na_index,
  取值 = non_na_value
)

方法2：tidyverse生态purrr包实现（tidyverse用户惯用写法） #

如果日常使用tidyverse工具链，可以用purrr的类型安全映射函数实现：

library(purrr)

# 生成逻辑掩码
non_na_mask <- !map_lgl(lst, is.na)

# 提取索引
non_na_index <- which(non_na_mask)

# 提取取值
non_na_value <- lst %>% keep(~!is.na(.x)) %>% unlist()

内容的提问来源于stack exchange，提问作者J. Mini