[R]Rで画像にテロップをつける

こういう話がある。
http://memo.sanographix.net/post/140968243125
同じようにRでさっとテロップをつけたいのだが見つけきれなかったので作った。
こんな感じでテロップをつけられる。

# インストール
install_github("dichika/caption")

library(caption)
caption("へえ、あんたも\n石田基広っていうんだ", "http://30d.jp/img/yumiyumi73/public/9283f587-6b3f-4858-ba66-a416475f73f9_resize.jpg")

なお、この例のように出力画像名を指定しなければ、画像はoutputという名前で出力される。

割と頻繁に利用するキャプションについては専用関数を作ったのでご利用ください。

sato()

テレビのテロップぽい飾り文字に対応してないとかそもそもフォントを固定しているとかR6使った方がいいんじゃないかとか改善の余地は多々あるのでPRください。

テキストを画像の上に書き込む方法について

ちなみにテキストを画像の上に書きこむ手段としてはEBImageパッケージのdrawtext関数が便利だったが無くなってから久しい。
http://d.hatena.ne.jp/MikuHatsune/20140228/1393521117
画像をrasterImageで描画してtext関数で書き込むというのが手っ取り早いようで、今回はそれを採用した。
http://stackoverflow.com/questions/23807021/how-to-do-in-r-load-an-image-file-print-text-on-image-save-modified-image

Enjoy!!!