【R】tvthemes

1. はじめに

tvthemesは、名前の通りTV番組風のggplotのテーマを提供してくれます。

2. インストール

githubからインストールします。

devtools::install_github("Ryo-N7/tvthemes")

3. 使ってみる

こんな番組テーマがあるようです。

・Avatar: The Last Airbender: theme + palettes (Fire Nation, Water Tribe, Earth Kingdom, & Air Nomads)
・Brooklyn Nine-Nine: theme + palettes (regular & dark)
・Game of Thrones/A Song of Ice & Fire: ‘The Palettes of Ice & Fire’ (currently: Stark,
・Baratheon (Stannis), Lannister, Tully, Targaryen, Martell, Greyjoy, Tyrell, Arryn, Manderly)
・Rick & Morty: theme + palette
・Parks & Recreation: two themes (light & dark) + palette
・The Simpsons: theme + palette
・Spongebob Squarepants: theme + palette + background images
・Hilda: Day, Dusk, Night themes + palettes
・Attack on Titan: palette
・Kim Possible: palette Big Hero 6: palette
・Gravity Falls: palette

テーマは増加中のこと。期待です。

例にあったものをavatar風に変更してみます。

library(tvthemes)
library(ggplot2)
library(extrafont)

loadfonts(quiet = TRUE)

ggplot(mpg, aes(displ)) +
  geom_histogram(aes(fill = class), 
                 col = "black", size = 0.1,
                 binwidth = 0.1) +
  scale_fill_avatar(palette = "FireNation") +
  labs(title = "Do you know what it means to 'clap back', Raymond?",
       subtitle = glue::glue("BE- {emo::ji('clap')} -CAUSE {emo::ji('clap')} I {emo::ji('clap')} DO {emo::ji('clap')} !"),
       x = "Titles of Your Sex Tape",
       caption = "Pizza bagels? Pizza rolls? Pizza poppers? Pizzaritos? Pizza pockets?") +
  theme_avatar(title.font = "Titillium Web",
                   text.font = "Calibri Light",
                   subtitle.size = 14)

次はスポンジボブ風に。

library(tvthemes)
library(ggplot2)
library(extrafont)

loadfonts(quiet = TRUE)

ggplot(mpg, aes(displ)) +
  geom_histogram(aes(fill = class), 
                 col = "black", size = 0.1,
                 binwidth = 0.1) +
  scale_fill_spongeBob() +
  labs(title = "Do you know what it means to 'clap back', Raymond?",
       subtitle = glue::glue("BE- {emo::ji('clap')} -CAUSE {emo::ji('clap')} I {emo::ji('clap')} DO {emo::ji('clap')} !"),
       x = "Titles of Your Sex Tape",
       caption = "Pizza bagels? Pizza rolls? Pizza poppers? Pizzaritos? Pizza pockets?") +
  theme_spongeBob(title.font = "Titillium Web",
               text.font = "Calibri Light",
               subtitle.size = 14)

4. さいごに

グラフって、テーマで印象が変わりますから、使えそうなパッケージです。