こんにちは、6月からECナビで働いている水越明哉(@Akiyah)ともうします。

最近、Rを使いはじめました。Rとはオープンソースの統計解析ソフトで、解析したデータをグラフにするのも得意です。まだ手探り中ですが、なかなか良いツールだなぁと思っています。そこでRと仲良くなるためにRでお絵描きをしてみることにしました。

まずは、R -- 図形描画関数群を参考にして図形描画関数をインストールします。
source("http://aoki2.si.gunma-u.ac.jp/R/src/plot.R", encoding="euc-jp")
この図形描画関数を使ってアンパンマンを書いてみます。アンパンマンのソースはJavaScriptでアンパンマンを描くコードを参考にしました。
plot.start(asp=1)
plot.circlef( 200,    200,    85,        col=heat.colors(24)[23]) # 輪郭
plot.circlef( 200-55, 200-5,  24,        col=heat.colors(12)[5]) # 左ほっぺ
plot.circlef( 200+55, 200-5,  24,        col=heat.colors(12)[5]) # 右ほっぺ
plot.ellipsef(200,    200-5,  28, 23, 0, col=heat.colors(12)[4]) # 鼻
plot.ellipsef(200-18, 200+40,  9, 15, 0, col="black") # 左目
plot.ellipsef(200+18, 200+40,  9, 15, 0, col="black") # 右目
plot.ellipse( 200,    200-30, 42, 18, 0, 180, 360, lwd=3) # 口
げんき１００ばい！アンパンマンがかけましたね。



あとは画像ファイルとして出力して、
dev.print(file="rpanman1.eps", width=10, height=10, horizontal=FALSE)
GIMPでまとめてgifアニメにしましたよ。
またRでお絵描きしたら投稿します。

参考：
タグ ：
#r
#アンパンマン