Rで解析：絵文字をグラフに使ってみませんか？「emoGG」パッケージ

公開日 2015-12-07

絵文字をggplot2パッケージのラベルやシンボルに利用できるパッケージの紹介です。

・ggplot2パッケージの紹介
　https://www.karada-good.net/analyticsr/r-78/

パッケージバージョンは0.0.1。実行コマンドはR version 3.2.2で確認しています。

＜おすすめのRに関する書籍です＞

Rクックブック第2版 | J.D.Long, Paul Teetor, 大橋真也

AmazonでJ.D.Long, Paul Teetor, 大橋真也のRクックブック第2版。アマゾンならポイント還元本が多数。J.D.Long, Paul Teetor, 大橋真也作品ほか、お急ぎ便対象商品は当日お届けも可能。またRクックブック第2版もアマゾン配送商品なら通常配送無料。

www.amazon.co.jp

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

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

#パッケージのインストール
devtools::install_github("dill/emoGG")

実行コマンド

詳細はコメント、パッケージのヘルプを確認してください。

#パッケージの読み込み
library("emoGG")

#キーワードで絵文字の検索:emoji_searchコマンド
#検索結果をggplotでプロット
EmojiData <- emoji_search("smile")
#データの整形
Emoji <- data.frame(X = 1.5, Y = seq(nrow(EmojiData)), Content = EmojiData[, 1])
Code <- data.frame(X = 1.55, Y = seq(nrow(EmojiData)), Content = EmojiData[, 2])
NewEmojiData <- rbind(Emoji, Code)
#ggplotで処理
p <- ggplot(NewEmojiData, aes(x = NewEmojiData[, 1],
                                 y = NewEmojiData[, 2],
                                 label = NewEmojiData[, 3])) +
  geom_text(aes(x = NewEmojiData[seq(nrow(EmojiData)), 1],
                y = NewEmojiData[seq(nrow(EmojiData)), 2],
                label = NewEmojiData[seq(nrow(EmojiData)), 3]), hjust = -0) +
  geom_text(aes(x = (NewEmojiData[nrow(EmojiData) + seq(nrow(EmojiData)), 1] - 0.02),
                y = NewEmojiData[nrow(EmojiData) + seq(nrow(EmojiData)), 2],
                label = NewEmojiData[nrow(EmojiData) + seq(nrow(EmojiData)), 3]), hjust = -0) +
  theme_bw(base_size = 12, base_family = "") + xlim(1.49, 1.56)
#繰り返し処理
for (i in seq(nrow(EmojiData))) {
  p <- p +
    add_emoji(NewEmojiData[nrow(EmojiData) + i, 3],
              x = NewEmojiData[nrow(EmojiData) + i, 1],
              y = NewEmojiData[nrow(EmojiData) + i, 2],
              ysize = sqrt(nrow(EmojiData))/10)
}
#プロット
p

#ggplotのシンボルを絵文字にする:geom_emojiコマンド
ggplot(iris, aes(Sepal.Length, Sepal.Width, color = Species)) +
  geom_emoji(emoji = "1f604")