R forループを活用し条件を変更したfilter関数の結果を別の変数に格納したい

Question

以下の様にデータフレームに対するfilter関数の条件として1から30まで変更し、その結果についても数字を1から30までカウントアップする形でそれぞれ変数名＋数字として格納したいのですが、自分にとってRは他のスクリプト言語の様にシンプルに書けず苦戦しております。どなたかアドバイス頂けますでしょうか？

hensu1 <- dataframe %>% filter(syurui == 1)
~
hensu30 <- dataframe %>% filter(syurui == 30)

以下のコードでは変数への代入の所がうまく行けば、期待した結果はとりあえず得られそうです。

>for (i in 1:30){paste("hensu",i,sep="") <- dataframe %>% filter(syurui == i)}
Error in paste("hensu", i, sep = "") <- dataframe %>% filter(syurui ==  : 
  target of assignment expands to non-language object

KojiDoki様にご教授頂いた内容で、期待通りの結果がリストhensuの各要素に格納されている事を確認致しました。

> layer <- list()
> for(i in 1:30){
+ hensu[[i]] <- dataframe %>% filter(syurui == i)
+ }
> hensu[1]

Answer 1

paste("hensu",i,sep="") <- dataframe

これではオブジェクトhensuXへの付値は成立しません。pasteは単に文字列の操作をするだけです。

意図通りの結果を得るには、次のようにする必要があります。

eval(parse(text=paste0("hensu",i," <- dataframe")))

しかし、こういうときはリストを使うのがベターでしょう。

hensu <- list()
for(i in 1:30){
  hensu[[i]] <- dataframe %>% filter(syurui == i)
}

Comments

[minhouse10]

KojiDoi様、ご教授頂き本当にありがとうございます！eval関数との組み合わせで文字列をコマンドとして実行する方法もあるのですね。大変勉強になりました。

[minhouse10]

KojiDoi様、度々申し訳ございません。実際にテストして致しました結果、hensu1から30に代入した結果がデータフレームの形式になっておらず、単に数字が格納されてしまっているようです。大変お手数ではございますが、よろしければテスト結果を追記させて頂きましたので、ご確認頂けますと幸いです。

[minhouse10]

KojiDoi様、大変申し訳ありません、リストに格納しているので、データを取り出すときはhensu[1]とすべきでした。こちらの間違いでご回答頂いた内容にはなんら問題はございませんでした。重ねてお詫び申し上げます。