こんなjpeg画像(Wikipediaのこちらの記事から)に計測点をローカルに与えたもの)の計測点の座標を取り出してみよう library(jpeg) sebone <- readJPEG("sebone.jpg") # 描図範囲を作る plot(0:3,0:3,type="n") # そこに読み込んだ画像をラスター化して張りつ…