1. 概要: R の for loop
2. for loop の結果をリストに格納する
3. 実例 1: 偶数の数を数える
4. 実例 2: R の for loop で変数を扱う
   • paste0()関数, assign()関数 との組み合わせ

概要: R の for loop

for loop は、繰り返し処理を行いたい場合に、さまざまな言語で共通して使われる形式である。言語によって書き方に多少の違いがある。このページでは、R での for loop の使い方と実例を示す。

あらかじめ繰り返し数を指定するのが for、特定の条件式を与えて、その式が偽になるまで処理を続けるのが while である。

基本系は以下の通り。

for (val in x) # val という変数に入れるデータを指定
{
# valに関する処理を指定
}

メモ

• 文字列のリスト (ベクター形式) から順に実行したいとき。まずは val = c("文字列1") として、for loop なしで解析を実行する。動くようだったら vallist = c("文字列1", "文字列2") のようにリストを作り、for (val in vallist) とすれば、スクリプトの形を変えずに実行できる。

for loop の結果をリストに格納する

自らを rbind または cbind に入れる 方法で、for loop から出力される結果を list や data frame にまとめることができる (4)。

for loop に入る前に、a_row <- NULL のようにして「入れ物」を用意しておかないと、変数がみつからないというエラーになる。

実例 1: 偶数の数を数える

以下の例 (文献 1 を改変) では、まず x にいくつかの番号を入れ、それらについて一つずつ繰り返し処理を行う。処理は if 以下で、「数値が 2 で割り切れるならば、count という変数に 1 を加える」というもの。

そのために、x を指定した後に count を 0 と定義している。最後、print(count) で変数 count を出力。この場合、2 と 12 が偶数なので、個数として 2 が出力されるはずである。

x <- c(1, 2, 3, 5, 7, 9, 12)
count <- 0
for (val in x) {
if(val %% 2 == 0) count = count+1
}
print(count)

なお、%% と == は R の概要 のページにまとめた演算子である。val %% 2 は val を整数の範囲で 2 で割った余り、== は「等しい」を示す。

if statement もいずれまとめる予定。とりあえず参考ページ その 1、その 2。

R の for loop で変数を扱う

paste0()関数, assign()関数 との組み合わせ

x <- c("a", "b", "c")
for (val in x) {
print(val)
}

アウトプットは以下のようになり、a, b, c が順に print 関数で書き出されたことになる。

[1] "a"
[1] "b"
[1] "c"

ところが、以下のスクリプトは object 'val.csv' not found というエラーになる。ワーキングディレクトリにある a.csv, b.csv, c.csv というファイルを順に読んで、それぞれ a, b, c というオブジェクトに保存するという内容を書いたつもりだったのだが。

x <- c("a", "b", "c")
for (val in x) {
val <- read.csv(val.csv)
}

ここでの問題は、val.csv の val が x として認識されていないことである。つまり、print 関数は val を解釈できるが、read.csv 関数の中に入っていると認識されないのである。

同様に、val.csv を val として、ワーキングディレクトリに a, b, c というファイルを用意すると、一応 csv ファイルとして読み込まれるが、val というオブジェクトが生成する。つまり、オブジェクト名としても val に x が代入されていないということ。

この場合は、文字列を結合する paste0 関数 を使う。よく似た関数に paste があり、paste はスペースを入れて、paste0 はスペースを入れずに、文字列を結合する。

x <- c("a", "b", "c")
for (val in x) {
val <- read.csv(paste0(val, ".csv"))
}

こうすると、read.csv(paste0(val, ".csv")) の部分は OK になる。a.csv, b.csv, c.csv が順番に読み込まれる。

しかし、オブジェクト名の val の部分がまだ val として認識されている。つまり、val というオブジェクトにデータが上書きされてしまう。

これを解決するために assign 関数 を使う (3)。assign は assign(オブジェクト名, 代入したい値) のように使う。つまり次のようになる。

x <- c("a", "b", "c")
for (val in x) {
csv <- read.csv(paste0(val, ".csv"))
assign(val, csv)
}

References

1. R for loop. Link: Last access 2021/03/08.
2. 繰返処理. Link: Last access 2021/03/08.
3. Rでloopを使って動的な名前の変数を作成したい. Link: Last access 2022/07/08.
4. for文の応用的な使い方. Link: Last access 2022/11/26.

コメント欄

各ページのコメント欄を復活させました。スパム対策のため、以下の禁止ワードが含まれるコメントは表示されないように設定しています。レイアウトなどは引き続き改善していきます。「管理人への質問」「フォーラム」へのバナーも引き続きご利用下さい。

禁止ワード: http, the, м (ロシア語のフォントです)

このページにコメント

これまでに投稿されたコメント