Темы для ggplot2 основанные на телешоу
Пакет tvthemes предоставляет вам набор готовых тем, палитр и шрифтов, заимствованных из различных телешоу и сериалов, таких как: Игра Престолов, Симпсоны, Спанч Боб и многие другие.
Мы, в качестве примера, возьмём тему из мультсериала Симпсоны. Для начала необходимо установит нужные шрифты, для этого воспользуемся функцией import_simpsons(), после чего, в консоли увидим путь, к папке со шрифтом, файлы шрифтов необходимо перенести в папку Windows/fonts.
Можно посмотреть палитру с помощью scales::show_col(tvthemes:::simpsons_palette).
Ниже пример кода построения графика, приведённого на изображении к посту:
library(tvthemes)
library(ggplot2)
library(dplyr)
library(glue)
library(extrafont)
loadfonts(quiet = TRUE)
import_simpsons()
data <- gapminder::gapminder %>%
filter(country %in% c("France", "Germany", "Ireland", "Italy", "Japan", "Norway", "Belarus")) %>%
mutate(year = as.Date(paste(year, "-01-01", sep = "", format='%Y-%b-%d')))
ggplot(data = data, aes(x = year, y = gdpPercap, fill = country)) +
geom_area(alpha = 0.8) +
scale_x_date(breaks = data$year, date_labels = "%Y") +
scale_y_continuous(expand = c(0, 0), labels = scales::dollar) +
scale_fill_simpsons() +
labs(title = "The Simpsons",
subtitle = "Theme inspired in part by @nathancunn's blog posts",
caption = glue("
A 'Bake 'em Away, Toys!' Production
Location: Sector 7G"),
x = "Wel-diddly-elcome neighborino!",
y = "Price of Duff Beer") +
theme_simpsons(title.font = "Akbar",
text.font = "Akbar",
axis.text.size = 8)
Ссылки:
- Другие примеры тем и кода можно найти в официальной документации
#заметки_по_R
