R言語で複数のオブジェクトをループで回したい

Question

現在、以下のコードを使用して、処理を行おうとしています。

length_1 <- c(paste0("AS",18:30))
length_2 <- c(paste0("AS",21:23))
length_3 <- c(paste0("AS",25:30))

length_list <- list(length_1,length_2,length_3)

for (v in 1:length(length_list)) {
        a <- length_list[v]
        
   for (z in 1:length(antisense_length_list[[v]])){
    antisense <- filter(md_select_df, data$library %in% a[z])
     }
  }

私が行いたい処理としては、
ループでlength_1～3をひとつずつ指定して
その中のASXXという文字を含む行を
md_select_dfというデータフレームのdata$libraryという列から
すべて抜き出したいと考えているのですが、
list(length_1,length_2,length_3)を行うと
length_list[v]でlength_1の長さが1のデータになってしまい、
要素の個数は出せるため、変数ｚの数値は大丈夫になりました。
しかし、a[z]で指定すると
例えば"AS18"ではなく
"AS18" "AS19" "AS20" "AS21" "AS22" "AS23" "AS24" "AS25" "AS26" "AS27" "AS28" "AS29" "AS30"
をひとつの塊として検索してしまうようです。
そのため行を抜き出すことができません。

何か解決方法があれば教えてください。

Comments

[KojiDoi]

> 変数ｚ
> a[z]で指定

これ何? エスパーじゃないのであなたが何を用意していて何を得たいのかさっぱり分かりません。

[birdman]

わかりづらくて申し訳ないです。
変数z length_listの長さ
つまり1：3を代入しています。

a[z]は、aにはlength_list1から3が順次入って
ｚにはlength_list1から3の要素の数
つまり、length_list1を指定しているときは、1～13が入ります。
これを用いて、length_list1の時、ｚが1ならAS18が指定されて、
md_select_dfのデータフレームのdata$libraryの列でAS18が存在すれば
その行を抜き出すような作業を行いたいと考えています。

Answer 1

a <- length_list[v]

リストの要素をベクトルとして取り出そうとしていると思いますが、これだとリストのサブセットを取り出すことになります。結果がリスト。なので後でa[z]すると単一要素ではなくベクトルが返ってきます。

多分こうでしょう。

a <- length_list[[v]]

Comments

[birdman]

回答ありがとうございます。
指摘された部分を変更したらできました！
ありがとうございました。