テロップをつけた画像に落書きする
以前captionパッケージを使ってテロップを自動で画像につける話をした。
しかしこういった画像を見ているとどうしても落書きしたくなる。
ペイントソフトを開いて落書きしてもいいのだがここはシームレスにRからやりたい。
ということでrakugaki関数をcaptionパッケージに追加した。
以下のように実行するとRStudio上でviewerペインに画像が表示されて落書きできる。
library("caption") rakugaki("http://cdn-ak.f.st-hatena.com/images/fotolife/d/dichika/20160315/20160315095320.png")
保存したい場合は左上のshow in new windowを押してブラウザで改めて開いた後、右クリック等で画像を保存してほしい。
ただしこの時viewer上で書いていた落書きは消えるので、保存したい場合はブラウザで開いた後に落書きをすると良い。