Elementos del subconjunto en una lista basada en una condición lógica

Question

¿Cómo puedo subconjuntar una lista basada en una condición (VERDADERO, FALSO) en otra lista? Por favor, vea mi ejemplo a continuación:

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] 

error en l [cond]: inválido tipo subíndice 'lista'

Answer 1

[ está esperando un vector, por lo que utilizar unlist en cond:

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

$c 
[1] 3 4 5 6 

Answer 2

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

$c 
[1] 3 4 5 6 

Answer 3

Otra forma es utilizar en lugar sapply de lapply.

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

Answer 4

Esto es lo que se hizo la función Filter para:

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

$c 
[1] 3 4 5 6 

Answer 5

cond <- lapply(l, length) > 3 
l[cond] 

Answer 6

Hace poco supe lengths(), que obtiene la longitud de cada elemento de una lista. Esto nos permite evitar hacer otra lista que incluya valores lógicos como lo intentó el OP.

lengths(l) 
#a b c 
#3 4 4 

El uso de este en una condición lógica, podemos subconjunto de elementos de la lista en l.

l[lengths(l) > 3] 

$b 
[1] 4 5 6 5 

$c 
[1] 3 4 5 6