如何移除split列表中包含零观测值的元素？

嘿，这个需求我太熟了！根据你的split列表里元素的类型，给你几个简单直接的解决方案，挑适合你的用就行：

情况1：元素是数据框（data.frame/tibble），零观测指行数为0 #

如果你的列表元素是数据框，所谓“零观测”就是没有行数据（nrow(x) == 0），那可以用基础R的Filter函数，或者tidyverse里的purrr::keep来过滤：

基础R实现 #

# 只保留行数大于0的元素
split <- Filter(function(x) nrow(x) > 0, split)

tidyverse（purrr）实现 #

这个写法更简洁易读：

library(purrr)
split <- split %>% keep(~ nrow(.x) > 0)

情况2：元素是向量，零观测指长度为0 #

如果你的列表元素是向量，零观测指的是空向量（length(x) == 0），同样两种方式：

基础R实现 #

split <- Filter(function(x) length(x) > 0, split)

tidyverse（purrr）实现 #

split <- split %>% keep(~ length(.x) > 0)

情况3：元素是全0值（不是空，而是所有值都是0） #

如果你的“零观测”是指元素里全是0（比如c(0,0,0)），那判断条件要改成检查是否存在非0值：

基础R实现 #

split <- Filter(function(x) any(x != 0), split)

tidyverse（purrr）实现 #

split <- split %>% keep(~ any(.x != 0))

混合类型的通用处理 #

如果你的列表里既有数据框又有向量，可以写个更通用的判断逻辑，同时处理空元素和全0元素：

# 模拟你的split列表
split <- list(
  data.frame(a = numeric(0)),  # 零观测数据框
  data.frame(a = 1:5),         # 有效数据框
  integer(0),                  # 空向量
  c(0,0,0),                    # 全0向量
  c(2,3,NA)                    # 有效向量（NA不影响，只要有非0值就保留）
)

# 过滤规则：数据框要行数>0；向量要长度>0且存在非0值（忽略NA）
split_cleaned <- split %>% 
  keep(~ if (is.data.frame(.x)) {
    nrow(.x) > 0
  } else if (is.vector(.x)) {
    length(.x) > 0 && any(.x != 0, na.rm = TRUE)
  } else {
    TRUE  # 如果是其他类型，默认保留，可按需修改
  })

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