如何基于各数据框中分类因子的唯一值数量过滤数据框列表？

你之前的问题在于用lapply处理时，既没生成正确的筛选逻辑，也没对列表本身做筛选操作。下面是两种可行的实现方式：

Base R 实现 #

# 生成筛选逻辑：判断每个子数据框的class列唯一因子数是否≥5
keep_condition <- sapply(list, function(df) length(unique(df$class)) >= 5)
# 用逻辑向量筛选原列表，保留符合条件的子数据框
filtered_list <- list[keep_condition]

Tidyverse（purrr）实现 #

如果习惯tidyverse生态，用purrr::keep更简洁：

library(purrr)
filtered_list <- keep(list, ~length(unique(.x$class)) >= 5)

错误说明 #

你之前的代码lapply(list, function(x) length(unique(x$class) >= 5))有两个问题：

• 括号位置错误：unique(x$class) >=5会把每个因子和5比较（毫无意义），再取这个逻辑向量的长度，结果永远是1，无法正确判断
• lapply返回的是结果列表，不是筛选用的逻辑向量，没法直接用来过滤原列表

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