list - 在 R 中，如何过滤列表列表？

Question

根据手册，Filter适用于向量，它恰好也适用于列表，例如:

z <- list(a=1, b=2, c=3)
Filter(function(i){
  z[[i]] > 1
}, z)
$b
[1] 2

$c
[1] 3

但是，它不适用于列表列表，例如:

z <- list(z1=list(a=1,b=2,c=3), z2=list(a=1,b=1,c=1), z3=list())
Filter(function(i){
  if(length(z[[i]])>0){
    if(z[[i]]$b > 1)
      TRUE
    else
      FALSE
  }
  else
    FALSE
}, z)
Error in z[[i]] : invalid subscript type 'list'

那么在不使用嵌套循环的情况下过滤列表列表的最佳方法是什么？它也可以是列表列表的列表......

(我尝试使用嵌套的 lapply 代替，但无法使其工作。)

编辑:在第二个例子中，这是我想要获得的:

list(z1=list(a=1,b=2,c=3))

也就是说，没有 z$z2 因为 z$z2$b < 1，没有 z$z3 因为它是空的。

Answer 1

我认为你应该使用:

Filter(function(x){length(x)>0 && x[["b"]] > 1},z)

谓词(您用来过滤 z 的函数)适用于 z 的元素，而不是它们的索引。