31

次の要素を持つRのリストがあります。

[[812]]
[1] ""             "668"          "12345_s_at" "667"          "4.899777748" 
[6] "49.53333333"  "10.10930207"  "1.598228663"  "5.087437057" 

[[813]]
[1] ""            "376"         "6789_at"  "375"         "4.899655078"
[6] "136.3333333" "27.82508792" "2.20223398"  "5.087437057"

[[814]]
[1] ""             "19265"        "12351_s_at" "19264"        "4.897730912" 
[6] "889.3666667"  "181.5874908"  "1.846451572"  "5.087437057"

list_elem[[814]][3]位置 814 の 3 番目の要素を抽出したい場合のような方法でそれらにアクセスできることを知っています。たとえば12345_s_at、すべてのリストの 3 番目の要素を抽出する必要があり、それらをベクトルまたはリストに入れたいそのため、後でそれらの要素を別のリストと比較できます。以下は私のコードです：

elem<-(c(listdata))
lp<-length(elem)
for (i in 1:lp)
{
    newlist<-c(listdata[[i]][3]) ###maybe to put in a vector
    print(newlist)
 }

結果を印刷すると、3 番目の要素が得られますが、次のようになります。

  [1] "1417365_a_at"
  [1] "1416336_s_at"
  [1] "1416044_at"
  [1] "1451201_s_at"

newlist[3]を返すため、のようなインデックスでそれらをトラバースすることはできませんNA。私の間違いはどこですか？

4

3 に答える 3

52

各リスト要素の 3 番目の要素を抽出する場合は、次のようにします。

List <- list(c(1:3), c(4:6), c(7:9))
lapply(List, '[[', 3)  # This returns a list with only the third element
unlist(lapply(List, '[[', 3)) # This returns a vector with the third element

あなたの例を使用し、 @GSee コメントを考慮して、次のことができます。

yourList <- list(c("","668","12345_s_at","667", "4.899777748","49.53333333",
       "10.10930207", "1.598228663","5.087437057"),
     c("","376", "6789_at",  "375",  "4.899655078","136.3333333",
       "27.82508792", "2.20223398",  "5.087437057"),
     c("", "19265", "12351_s_at", "19264", "4.897730912",
       "889.3666667", "181.5874908","1.846451572","5.087437057" ))

sapply(yourList, '[[', 3)
[1] "12345_s_at" "6789_at"    "12351_s_at"

次回はdput、問題を簡単に再現できるように、データセットの一部を使用していくつかのデータを提供できます。

于 2012-09-30T14:36:51.830 に答える
16

purrr要素を抽出して、データ型の一貫性を確保できます。

library(purrr)

listdata <- list(c("","668","12345_s_at","667", "4.899777748","49.53333333",
       "10.10930207", "1.598228663","5.087437057"),
     c("","376", "6789_at",  "375",  "4.899655078","136.3333333",
       "27.82508792", "2.20223398",  "5.087437057"),
     c("", "19265", "12351_s_at", "19264", "4.897730912",
       "889.3666667", "181.5874908","1.846451572","5.087437057" ))

map_chr(listdata, 3)
## [1] "12345_s_at" "6789_at"    "12351_s_at"

map_型の一貫性を強制する他の関数と、最終的に狂気map_df()を終わらせるのに役立つ関数があります。do.call(rbind, …)

于 2016-08-17T11:33:42.300 に答える
1

質問に入力したコードを使用したい場合は、以下の修正があります。

listdata <- list(c("","668","12345_s_at","667", "4.899777748","49.53333333",
       "10.10930207", "1.598228663","5.087437057"),
     c("","376", "6789_at",  "375",  "4.899655078","136.3333333",
       "27.82508792", "2.20223398",  "5.087437057"),
     c("", "19265", "12351_s_at", "19264", "4.897730912",
       "889.3666667", "181.5874908","1.846451572","5.087437057" ))

v <- character() #creates empty character vector
list_len <- length(listdata)
for(i in 1:list_len)
    v <- c(v, listdata[[i]][3]) #fills the vector with list elements (not efficient, but works fine)

print(v)
[1] "12345_s_at" "6789_at"    "12351_s_at"
于 2015-08-18T15:13:26.103 に答える