如何对list类型变量应用filter函数？R语言嵌套数据过滤问题

问题1：基础List的过滤操作 #

根据使用的工具链，有两种常用方式：

• 基础R环境：使用首字母大写的Filter()函数，传入判断逻辑和目标List：

  # 示例：筛选List中大于5的元素
  my_list <- list(3, 6, 2, 8)
  Filter(function(item) item > 5, my_list)
  

• tidyverse生态：用purrr包的keep()/discard()函数，语法更简洁：

  library(purrr)
  my_list <- list(3, 6, 2, 8)
  # 保留符合条件的元素
  keep(my_list, ~ .x > 5)
  # 剔除不符合条件的元素
  discard(my_list, ~ .x <= 5)
  

问题2：嵌套数据框中List列的过滤（针对test_data案例） #

你的代码报错是因为直接提取test_data$data[[['x']]]只会取第一组嵌套数据的x列，无法逐行判断嵌套数据框的条件。以下是两种常见需求的修正方案：

需求1：筛选嵌套数据框中所有x值都大于4的行 #

用purrr::map_lgl()生成逐行的逻辑判断结果，再传给filter()：

library(tidyverse)
test_data <- diamonds %>% nest(.by='cut')

# 修正代码
test_data %>% 
  filter(map_lgl(data, ~ all(.x$x > 4)))

需求2：筛选嵌套数据框中至少存在一个x值大于4的行 #

将all()替换为any()即可：

test_data %>% 
  filter(map_lgl(data, ~ any(.x$x > 4)))

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