Wyciąg non zerowe elementy z listy w R

Question

Mam listę takiego:

x = list(a = 1:4, b = 3:10, c = NULL) 
    x 
    #$a 
    #[1] 1 2 3 4 
    # 
    #$b 
    #[1] 3 4 5 6 7 8 9 10 
    # 
    #$c 
    #NULL 

i chcę, aby wyodrębnić wszystkie elementy, które nie są puste. Jak to zrobić? Dzięki.

Answer 1

Oto kolejny opcję:

Filter(Negate(is.null), x) 

Answer 2

Co o:

x[!unlist(lapply(x, is.null))] 

---

Oto krótki opis tego, co się dzieje.

1. lapply mówi nam, które elementy są NULL

   R> lapply(x, is.null) 
   $a 
   [1] FALSE 
   
   $b 
   [1] FALSE 
   
   $c 
   [1] TRUE 
   

2. Następnie ConvECt listę do wektora:

   R> unlist(lapply(x, is.null)) 
   a  b  c 
   FALSE FALSE TRUE 
   

3. Następnie przełączamy TRUE do FALSE:

   R> !unlist(lapply(x, is.null)) 
       a  b  c 
   TRUE TRUE FALSE 
   

4. Wreszcie, wybierz elementy używając zwykłej notacji:

   x[!unlist(lapply(x, is.null))] 
   

Answer 3

Prostsze i prawdopodobnie szybciej niż wymienione powyżej, następujące prace na listach dowolnych wartości nierekursywnych (w znaczeniu is.recursive):

example_1_LST <- list(NULL, a=1.0, b=Matrix::Matrix(), c=NULL, d=4L) 
example_2_LST <- as.list(unlist(example_1_LST, recursive=FALSE)) 

str(example_2_LST) drukuje:

List of 3 
$ a: num 1 
$ b:Formal class 'lsyMatrix' [package "Matrix"] with 5 slots 
    .. ..@ x  : logi NA 
    .. ..@ Dim  : int [1:2] 1 1 
    .. ..@ Dimnames:List of 2 
    .. .. ..$ : NULL 
    .. .. ..$ : NULL 
    .. ..@ uplo : chr "U" 
    .. ..@ factors : list() 
$ d: int 4 

Answer 4

x[!sapply(x,is.null)] 

ten uogólnia się jakiejkolwiek logicznej oświadczenia o listy, tylko sub w logice dla "is.null".