画像の座標を取りだす with R

• こんなjpeg画像(Wikipediaのこちらの記事から)に計測点をローカルに与えたもの)の計測点の座標を取り出してみよう

library(jpeg)
sebone <- readJPEG("sebone.jpg")
# 描図範囲を作る
plot(0:3,0:3,type="n")
# そこに読み込んだ画像をラスター化して張りつける
rasterImage(sebone,0.2,0.5,2.5,2.8)
# locator()関数を使って、座標を取る
# 左クリックで場所を決め、その座標を右クリックで取り込む。最後の点のときは「停止」を選び、まだ続けるなら「続く」を選ぶことで複数の点を取り出せる
coords <- locator()
coords
abline(v=coords$x,col=3)
abline(h=coords$y,col=4)

> coords
$x
[1] 1.188281 1.182422 1.176563 1.176563 1.205860

$y
[1] 1.476453 1.378343 1.273691 1.182122 1.084011

• これを使って、カーソルで選んだ場所にテキストを書きこむこともできる

text(locator(1), "背骨")