20

名前付き数値のリストの平均を計算したい。numeric(0)最初に削除したい値があります。また、リストのどの要素に値が含まれているかを取得したいと思いnumeric(0)ます。

値がどのように見えるかの例を次に示します。

>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

そして、これが 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"

誰でも助けることができますか？

4

3 に答える 3

40 
## 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"
于 2013-02-08T11:14:26.573 に答える
18

ベース R のFilter関数を使用した別のソリューション:

mean(unlist(Filter(is.numeric, l)))
于 2013-02-08T13:53:14.373 に答える
2

リストから外すと、平均値を呼び出すことができる単一のベクトルの数値エントリのみが抽出されるため、次を試してください。

mean(unlist(r["gg",]))
于 2013-02-08T11:14:15.337 に答える