lapply関数のリスト名にアクセスして保存する

Question

lapply関数内のリスト名にアクセスする必要があります。それは私が私の機能で、各リストの要素名を取得できるようにするには、リストの名前を反復処理すべきであると述べていますどこ私は、オンラインでいくつかのスレッドを見つけた：

> n = names(mylist) 
> mynewlist = lapply(n, function(nameindex, mylist) { return(mylist[[nameindex]]) }, mylist) 
> names(mynewlist) 
NULL 
> names(mynewlist) = n 

問題はmynewlistがオリジナルmylistというインデックスを失うということで、私はそれらを復元するためにその姓（）の割り当てを追加する必要があります。

lapply関数が返す各要素に明示的なインデックス名を付ける方法はありますか？または、mynewlist要素に正しいインデックス名が設定されているかどうかを確認する別の方法はありますか？ lapplyがmylistと同じ順序でリストの要素を返さないと、mynewlistのインデックス名が間違っている可能性があると感じています。

Answer 1

デフォルトでは、lapplyは反復処理の名前属性を保持していると思います。 myListの名前をnに格納すると、そのベクターには「名前」がなくなります。あなたは、経由で

names(n) <- names(myList) 

前と同じように使用lapplyをそのバックを追加するのであれば、あなたは望ましい結果を取得する必要があります。今朝少し霧

編集

私の脳。 、私が模索された

sapply(n,FUN = ...,simplify = FALSE,USE.NAMES = TRUE) 

lapplyがUSE.NAMES引数を持っていなかった、そして私が実際にsapplyためのコードを見て、私は愚かされていたが実現することを混同し、：ここでは別の、おそらくより便利に、オプションですこれはおそらくより良い方法でした。

Answer 2

plyrからllply()を調べましたか？

これはまさにあなたが求めていることです。 リストの各要素に対して、関数を適用し、結果をリストとして保持します。 llplyはラベルを保存し、進行状況バーを表示できる点を除いてlapplyと同等です。 joranの答え上に構築し、それをprecising

mylist <- list(foo1=1:10,foo2=11:20) 
>names(mylist) 
[1] "foo1" "foo2" 
newlist<- llply(mylist, function(x) mean(x)) 

>names(newlist) 
[1] "foo1" "foo2" 

Answer 3

?llplyから：

sapply(USE.NAMES=T)ラッパーが実際にベクトルの値は、あなたが反復処理されている（とは、その名の属性、最終的な結果の名として設定されます

lapplyのように）、ですが、これらが文字の場合のみです。

結果として、インデックスを渡すことは役に立ちません。あなたはsapplyでインデックスを渡したい場合は、あなたには、いくつかの（醜い）鋳造に頼る必要があります。この場合

sapply(as.character(c(1,11)), function(i) TEST[[as.numeric(i)]], USE.NAMES = TRUE) 

、クリーナー液をそのまま設定し、元のオブジェクトの名前を使用することです。ここでのソリューションの完全なリストは以下のとおりです。

TEST <- as.list(LETTERS[1:12]) 

### lapply ## 
## Not working because no name attribute 
lapply(c(1,11), function(i) TEST[[i]]) 

## working but cumbersome 
index <- c(1,11) 
names(index) <- index 
lapply(index, function(i) TEST[[i]]) 

### sapply ## 
## Not working because vector elements are not strings 
sapply(c(1,11), function(i) TEST[[i]], simplify = F) 

## Working with the casting trick 
sapply(as.character(c(1,11)), function(i) TEST[[as.numeric(i)]], simplify = F) 

## Cleaner, using names with sapply: 
names(TEST) <- LETTERS[26:15] 
sapply(names(TEST)[c(1,11)], function(name) TEST[[name]], simplify = F) 

Answer 4

setNames機能は、ここでは便利なショートカットですpurrrパッケージから名前

> mynewlist 
$a 
[1] TRUE 

$foo 
[1] "A" "B" "C" 

$baz 
[1] 1 2 3 4 5 

Answer 5

imap()を維持し

mylist <- list(a = TRUE, foo = LETTERS[1:3], baz = 1:5) 
n <- names(mylist) 
mynewlist <- lapply(setNames(n, n), function(nameindex) {mylist[[nameindex]]}) 

があなたのためにいいです問題。

library(purrr) 
mylist <- list(foo1=1:10,foo2=11:20) 
imap(mylist, function(x, y) mean(x)) ## x is the value, y is the name 

か、IMAPのよりコンパクトなバージョンを使用することができます：あなたが欲しいのベクターの種類に応じて、imap_xxxのバリエーションを使用することができます

imap(mylist, ~ mean(.x)) 

注：

imap_dbl(mylist, ~ mean(.x)) ## will return a named numeric vector.