r - リストのサブセット (すべてのコンポーネントに一致する値を選択)

Question

ある方法でリストから特定の要素を読み込もうとします。これdf[, c(1,4,5)]は aと同等data.frameです。

> obj <- list(c(1:5), c(1:5))
> obj
[[1]]
[1] 1 2 3 4 5

[[2]]
[1] 1 2 3 4 5

私はこのような結果を探しています

[[1]]
[1] 1 4 5

[[2]]
[1] 1 4 5

私は を実験してきましたが[]、[[]]それ[[]][]はリストをコンポーネントごとに評価することです。私も試してみlapply(obj, c(1,4,5))ましたmatch()。

私はまだそこにいません。助けていただければ幸いです。

どうも！

Answer 1

EDiにはすばらしい答えがありますが、[関数をlapplyプラスの追加の引数に渡すことでそれを行うことができます。

lapply(obj, '[', c(1, 4, 5))

これらを引用することで、Rのこの関数やその他の「奇妙な」関数にアクセスできます。

?"["

Answer 2

すべてのリストエントリで実行される関数を使用してlapplyを呼び出す必要があります。

obj <- list(c(1:5), c(1:5))
lapply(obj, function(x) x[c(1, 4, 5)])
#[[1]]
[1] 1 4 5

[[2]]
[1] 1 4 5