R语言：如何从矩阵列表中批量移除零行矩阵

你编写的M <- M[nrow(M)>0,]无法正常运行，核心是两处用法和R语法规则不匹配：

• nrow(M)直接作用于整个列表对象时，只会返回整个列表的维度信息，不会自动遍历列表内部存储的12个矩阵，无法生成对应每个元素的判断结果
• 带逗号的双索引写法[ , ]是矩阵/数据框的行列选择语法，不能直接用来索引列表的单个元素。

无需手动定位单个矩阵索引，通过遍历列表逐元素判断行数的方式批量筛选，有两种通用实现：

• 基础R原生写法，无额外包依赖：
  用sapply遍历列表内的每个矩阵计算行数，生成一一对应的逻辑判断向量做子集提取：
  M <- M[sapply(M, nrow) > 0]
  该写法运行时会逐个将M内的矩阵传入nrow函数，返回的结果长度和列表元素数完全一致，直接提取满足“行数大于0”的元素重新赋值给M，全程不会因为删除操作导致列表后续元素的索引错位。
• Tidyverse生态写法：
  借助purrr包的keep函数，直接保留满足判断条件的列表元素：
  M <- purrr::keep(M, ~nrow(.x) > 0)

• 尽量不要使用“先定位待删除元素的索引、再批量赋值为NULL”的反向删除逻辑，多元素删除时很容易因为列表长度变化、索引偏移、逻辑值长度不匹配出现误删
• 如果列表内混有非矩阵类型的元素，可以将判断逻辑替换为带容错的写法：M <- M[sapply(M, function(x) if(is.matrix(x)) nrow(x) >0 else FALSE)]

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