Les valeurs de filtre de la liste dans la R

Je veux calculer la moyenne d'une liste nominative des nombres. Il y a numeric(0) valeurs que je tiens d'abord à supprimer. Aussi, je voudrais récupérer les éléments de la liste contiennent numeric(0) valeurs.

Voici un exemple de la façon dont la valeur pourrait ressembler à:

>r["gg",]

$`01_1_er`
   gg 
0.5176445 

$`02_1_er`
   gg 
0.4990959 

$`03_1_er`
   gg 
0.5691489 

$`22_1_er`
numeric(0)

$`23_1_er`
numeric(0)

$`25_1_er`
  gg 
0.386304

Et voici le résultat de str:

> str(r["gg",])
List of 6
 $ 01_1_er: Named num 0.518
  ..- attr(*, "names")= chr "gg"
 $ 02_1_er: Named num 0.499
  ..- attr(*, "names")= chr "gg"
 $ 03_1_er: Named num 0.569
  ..- attr(*, "names")= chr "gg"
 $ 22_1_er: num(0) 
 $ 23_1_er: num(0) 
 $ 25_1_er: Named num 0.386
  ..- attr(*, "names")= chr "gg"

Peut aider quelqu'un?

mean(unlist(r["gg",]))

OriginalL'auteur chriga | 2013-02-08

  1. 22
    ## Example list

l <- list(n1=numeric(0), n2="foo", n3=numeric(0), n4=1:5)

## Filter out elements with length 0

l[lapply(l, length) > 0]


$n2
[1] "foo"

$n4
[1] 1 2 3 4 5


## Get names of elements with length 0

names(l)[lapply(l, length) == 0]

[1] "n1" "n3"
    J'aime vraiment cette solution. Mais j'ai aussi unlist que James a suggéré de calculer la moyenne. Je pense qu'une combinaison de vos deux réponses de travail.

    OriginalL'auteur juba

  2. 5

    Une autre solution à l'aide de la Filtre fonction à partir de la base de R:

    mean(unlist(Filter(is.numeric, l)))
    Le Filter(), c'est l'idéal. Cela semble comme il se doit la accepté de répondre.

    OriginalL'auteur Ramnath

  3. 2

    Unlisting va sortir juste le numérique entrées dans un seul vecteur qui vous pouvez appeler moyenne, alors essayez:

    mean(unlist(r["gg",]))
    Recherche me conduisent à une réponse similaire. Mais je n'ai pas les noms d'origine et aussi je ne reçois pas les éléments supprimés. Je pense qu'une combinaison de votre et juba a réponse va résoudre mon problème.

    OriginalL'auteur James