基于逻辑条件的列表中的子集元素

Question

如何根据另一个列表中的条件(TRUE,FALSE)对列表进行子集化？请看下面的例子:

l <- list(a=c(1,2,3), b=c(4,5,6,5), c=c(3,4,5,6))
l
$a
[1] 1 2 3

$b
[1] 4 5 6 5

$c
[1] 3 4 5 6

cond <- lapply(l, function(x) length(x) > 3)
cond
$a
[1] FALSE

$b
[1] TRUE

$c
[1] TRUE

> l[cond]

l [cond]出错:无效的下标类型'list'

Answer 1

这就是Filter函数的用途:

Filter(function(x) length(x) > 3, l)
$b
[1] 4 5 6 5

$c
[1] 3 4 5 6

Answer 2

另一种方法是使用sapply而不是lapply.

cond <- sapply(l, function(x) length(x) > 3)
l[cond]

Answer 3

[期待一个矢量,所以使用unlist上cond:

l[unlist(cond)]
$b
[1] 4 5 6 5

$c
[1] 3 4 5 6

Answer 4

> l[as.logical(cond)]
$b
[1] 4 5 6 5

$c
[1] 3 4 5 6