Rで自動的に画像にテロップをつける

R

昨日の続き。
これを自動でやりたい。
http://togetter.com/li/931610
ということで関数を追加した。
ついでにフォントを変更できるようにした。
下記コードでoutputという名前で画像が出力できる。
ちなみにこの画像はGoogle様がこのように判定したのであり、きたるべき未来を予見する結果である。

devtools::install_github("dichika/caption")

f_ojisan <- system.file("data/ojisan.png", package = "caption")

library("caption")
autocaption(f_input = f_ojisan,
            font_family = "YuGothic Bold",
            CROWD_VISION_KEY = "あなたのCROWD_VISION_KEY",
            AZURE_CLIENT_ID = "あなたのAZURE_CLIENT_ID",
            AZURE_CLIENT_SECRET = "あなたのAZURE_CLIENT_SECRET"
            )


どのように処理しているか

以下の手順を踏んでいる。

  1. Google Cloud Vision APIで物体認識し得られたラベル候補から1つをランダムに選ぶ
  2. Microsoft Translation APIで得られたラベルを日本語に翻訳
  3. kakasiでひらがなに直す

翻訳にはtranslateRパッケージ、kakasiはNipponパッケージを利用している。
各APIの利用については以下を参照されたし。
http://qiita.com/takaheraw@github/items/e2d8ac9edad4655596a2
http://qiita.com/kemayako/items/21fe36005e6e729aff77

もう少しやることがあるのであと1回続きます。

Enjoy!!!