如何在R中按条件提取列表中各等长向量的对应元素？

前置注意 #

R中不能使用x != NA判断值是否为缺失值，任何值与NA直接比较都会返回NA，无法得到正确的逻辑筛选条件，正确用法是!is.na(x)。即使用dplyr操作数据框时，正确写法也应该是df %>% filter(!is.na(n1))而非n1 != NA。

方法1：Base R原生实现（无需加载包） #

核心逻辑是先拿到指定向量非NA位置的逻辑索引，再对列表内所有向量按索引切片：

# 示例列表构造
name <- c("A","B","C","D","E")
n1 <- c(NA, "foo", "hoo", "haa", "hee")
n2 <- c("foo", "hoo", NA, "haa", "hee")
n3 <- c("foo", NA, "hoo", "haa", "hee")
my_list <- list(name=name, n1=n1, n2=n2, n3=n3)

# 例：筛选n1非NA的对应位置
idx <- !is.na(my_list[["n1"]])
result <- lapply(my_list, function(x) x[idx])

# 查看结果
result

输出完全符合你给出的示例要求。如果要筛选n2或n3，只需要把索引行的n1替换为对应字段名即可。

方法2：适配dplyr使用习惯 #

如果你更熟悉dplyr的操作逻辑，可以先把列表转为数据框，筛选后再转回列表：

library(dplyr)

# 例：筛选n2非NA的对应位置
result <- my_list %>% 
  as_tibble() %>% 
  filter(!is.na(n2)) %>% 
  as.list()

该方法的输出和原生方法完全一致，更符合你之前操作数据框的使用习惯。

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