Filter() from base提取逻辑函数为真的列表中的元素。

Filter(\(df) "ID" %in% colnames(df), my_list)

purrr的等效选项是keep/discard：

purrr::keep(my_list, ~ "ID" %in% colnames(.x))

purrr::discard(my_list, ~ !"ID" %in% colnames(.x))

输出

$df1
  ID Name
1  1    a
2  2    b
3  3    c
4  4    d
5  5    e

使用for循环

for(nm in names(my_list)) if(!"ID" %in% names(my_list[[nm]])) my_list[[nm]] <- NULL

您可以使用正常的逻辑子集：

my_list[sapply(my_list, function(x) "ID" %in% colnames(x))]

另一种选择是使用布尔向量来子集列表。这里我们使用map_lgl：

library(purrr)

my_list[map_lgl(my_list, ~ "ID" %in% colnames(.))]

$df1
  ID Name
1  1    a
2  2    b
3  3    c
4  4    d
5  5    e