ベクトル関係追記
無理にJ言語に対応させたやり方をしていたがR言語ならではのやりかたもあった。
前回のインデックスに対応する場所をFizzで置換する処理 > a = 1:15 > replace(a,a[a%%3==0],'Fizz') [1] "1" "2" "Fizz" "4" "5" "Fizz" "7" "8" "Fizz" "10" [11] "11" "Fizz" "13" "14" "Fizz" replaceは論理値ベクトルにも対応しているのでこれでよかった > replace(a,a%%3==0,'Fizz') [1] "1" "2" "Fizz" "4" "5" "Fizz" "7" "8" "Fizz" "10" [11] "11" "Fizz" "13" "14" "Fizz" そもそもifelseがベクトル対応なのでこれでもOK > ifelse(a%%3==0,'Fizz',a) [1] "1" "2" "Fizz" "4" "5" "Fizz" "7" "8" "Fizz" "10" [11] "11" "Fizz" "13" "14" "Fizz"