Rで解析：今年もよろしくお願いします。「meme」パッケージ

手軽に画像に文字を入れることができるパッケージの紹介です。コマンド例のように新年のあいさつなど、いろいろと面白い使い方ができるのではないでしょうか。

パッケージバージョンは0.2.3。実行コマンドはwindows 11のR version 4.1.2で確認しています。

パッケージのインストール

下記コマンドを実行してください。

#パッケージのインストール
install.packages("meme")

実行コマンド

詳細はコマンド、パッケージのヘルプを確認してください。写真は、ぱくたそ(www.pakutaso.com）の写真素材を利用しています。この写真を継続して利用する場合は、ぱくたそ公式サイトからご自身でダウンロードしていただくか、ぱくたそのご利用規約(www.pakutaso.com/userpolicy.html）に同意していただく必要があります。同意しない場合は写真のご利用はできませんのでご注意ください。

#パッケージの読み込み
library("meme")
windowsFonts(Mei = windowsFont("Meiryo"))

###画像の準備#####
#ぱくたそ（www.pakutaso.com）
#https://www.pakutaso.com/20211050293post-37366.htmlのSサイズを使用させていただいています。
#ファイルの読み込み
library("tcltk")
#画像ファイルを選択
TigerPict <- paste0(as.character(tkgetOpenFile(title = "ファイルを選択",
                                               filetypes = '{"ファイル" {"*.*"}}',
                                               initialfile = c("*.*"))))
########

#画像を作成:memeコマンド
TigerMeme <- meme(img = TigerPict,
                  upper = "今年もよろしく!!",
                  lower = "からだにいいもの",
                  font = "Mei",
                  color = "#7BC7C8",
                  bgcolor = "#004849",
                  size = 4,
                  r = .2)
#表示
TigerMeme

#作業フォルダに保存:meme_saveコマンド
meme_save(TigerMeme, file = "TigerMeme.jpg")

出力例

・memeコマンド

少しでも、あなたの解析が楽になりますように！！