Rで、画像情報に対する条件式を作る。

Question

install.packages("imager")
library(imager)
img = load.image( "boats.png" )
plot( img )
boats[ , , 1, 1 ]

上のコードで、boatsの画像情報を表示できます。また、

boats[ 10, 20, 1, 1 ] # x = 10, y = 20 座標の R の画素値

上のコードで、boats画像のある座標のRGB情報を得られます。
この、各位置のRGB情報に対して

 x <- 2
 if (x > 0) {                 # if ( 条件式 )
   sum(1:x)                   #  条件式が TRUE  のときに実行される部分
 } else {
   x <- -x                    #  条件式が FALSE のときに実行される部分
   sum(1:x)                   # 
 }

if (x > 0) {                 # if ( 条件式 )
  sum(1:x)                   #  条件式が TRUE  のときに実行される部分
} else {
  x <- -x                    #  条件式が FALSE のときに実行される部分
  sum(1:x)                   # 
}

こんな感じのifや、forを使って、ある条件を満たすものだけを抽出したりなどしたいのですが、どうするのでしょうか・・・。
boats[ 10, 20, x, y ] などできればいいのですが、いまいちやり方が。

回答を受けて
ちょっと説明が足りていなかったようです、自分でもコードを組みましたができなかったので、
どうやるのかなと。自分で組んだコードを以下に貼ります。例えば、

for (x in 1:5) {
boats[ x, 20, 1, 1 ]
}

こういうのです。boatsは、ちゃんと表示されます。
boats[ 1, 20, 1, 1 ]とすればちゃんと小数が表示されます、しかしこのようない、
1から5まで表示、ということができない、これを実行しても「何も表示されません」。
これはfor文ですが、if文は、以下はちゃんと実行、表示されます。

x <- 1
if (boats[ x, 20, 1, 1 ] > 0.5) {
print(x)
} else {
print(0)
}

試行錯誤した結果、なぜか

for (x in 1:5) {
z <- boats[ x, 20, 1, 1 ]
print(z)
}

これだとできたんですが、他にやり方あります？

Comments

[ques346]

やはりRの質問はあまり好ましくないんでしょうか・・・

[Munosuke222]

いや長沼テラテイラーさんの丸投げの質問スタイルが好ましくないだけですよ。何度も言われてると思うけど基礎的なことやりなよ。質問の内容見る限りif文とかfor文とかのレベルなんだから、もうちょっと自力で頑張ってみれば？「これでも頑張ってるんです！」って思うかも知れないけど、今のところそれが何も伝わってないし、それを伝えるために質問のテンプレートがあるわけで。現状だと自分のブログかTwitterで一人で一生やってれば？って感じです。

[ques346]

Rのプロの書き込みがなく、全然分からない

[KojiDoi]

だって、最終的にどういう処理をしたいのか全然わからないじゃん。
ただ抽出したいとだけいわれても、「質問文で書いているようなパターンでできるはずだよ」以上のことをどう答えろと?

[ques346]

>できるはずだよ
できないです

[KojiDoi]

＞できないです
なら学校に通え。

あなたの要求は、見ず知らずの相手にタダで教えてもらおうという範囲を超えています。教えてくんの居場所はここにはありません。

[K_3578]

>Rのプロの書き込みがなく

少なくとも貴方の質問に回答、コメントを残してくれているKojiDoiさんは
R総合一位の方ですが。

それに、プロに教えてもらうと言うことは当然その労力に見合った対価を払うべき事です。

[ques346]

プロ（というか、Rがタグに入っている人）の書き込みがない、と書いた後に書いて頂いたKojiさんは確かにR1位ですね。

Answer 1

Rのプロの書き込みがなく、全然分からない

とのことですがRのプロどころか触ったことすらない私が10分調べたので回答しますよ！！！
自分でコードのコメントに

boats[ 10, 20, 1, 1 ] # x = 10, y = 20 座標の R の画素値

と書きながら

boats[ 10, 20, x, y ] などできればいいのですが、いまいちやり方が。

と書いてるので座標指定を間違っていますね！うまく行かない理由がわかりましたね。
あとはx,yにそれぞれfor文で座標値を入れて、boats[x, y, depth, channel]の値をif文で処理すればできますね。
手元でも同じような感じでfor文で画素値を得てif文で何やらする、みたいなことができました。やったぜ解決！

Comments

[ques346]

ちょっと色々説明が足りていなかったようです、x.yの位置は適当に書いたのですが（ようは上手く変数化できればという）
自分で作ったfor.ifだと上手くいかないんですね、作ったものを貼りました。

[Munosuke222]

追記見ましたけど、boatsの画素値表示するのが目的なんですか？

[ques346]

いきなり難しい事はできないと思い、ひとまずboatsの画素表示をして、正しく機能しているかどうか
確認しようとしたのですが、画素表示すらできません。
boats[ 10, 20, x, y ] と書けば自動的に表示されるはずなのですが、forの中に入れるとできない。
実際は表示することはなく、計算等できれば良いのですが。