library(tidyverse)

library(extrafont)
sessionInfo()
# vérifier la version de Rttf2pt1 (tout en bas)

# si la version est 1.3.9, essayer: 
remotes::install_version("Rttf2pt1", version = "1.3.8")

# puis: 
extrafont::font_import()

dat = mtcars

# aller voir les polices disponibles dans votre ordi, puis:
ggplot(data = dat, aes(mpg, disp)) +
  geom_point() + 
  labs(title = "Test") +
  theme(text = element_text(family = "Arial Narrow"))

# installer une nouvelle police, comme:
# https://fonts.google.com/specimen/Roboto
# puis:
ggplot(data = dat, aes(mpg, disp)) +
  geom_point() + 
  labs(title = "Test") +
  theme(text = element_text(family = "Roboto"))

library(showtext)
font_add_google("Oswald", "oswald")

showtext_auto()
p = ggplot(data = dat, aes(mpg, disp)) +
  geom_point() + 
  labs(title = "Test") +
  theme(text = element_text(family = "oswald"))

ggsave("test_font_showtext.png")
showtext_auto(F)

# https://patchwork.data-imaginist.com/
library(patchwork)

p1 = ggplot(data = mtcars, aes(disp, hp)) +
  geom_point()
p2 = ggplot(data = mtcars, aes(vs)) +
  geom_bar()
p3 = ggplot(data = mtcars, aes(mpg, drat)) +
  geom_line()

# simplement utiliser le signe d'addition
p1 + p2 + p3

# la barre oblique pour superposer
p1 / p2

# les parenthèses pour regrouper
(p1 + p2) / p3

# la barre verticale pour mettre côte-à-côte
p1 | (p2 / p3)

# déterminer l'organisation
p1 + p2 + p3 + plot_layout(nrow = 2)

# annoter et modifier le thème (&)
(p1 + p2) + 
  plot_annotation(title = "Titre",
                  subtitle = "Sous-titre") &
  theme(plot.title = element_text(size = 20))

mtcars2 = mtcars %>% 
  mutate(auto = rownames(.)) # le point fait référence à "mtcars"

ggplot(data = mtcars2, 
       aes(y = reorder(auto, -mpg), x = mpg)) +
  geom_point() +
  geom_segment(aes(x = 0, xend = mpg, y = auto, yend = auto)) +
  labs(title = "Consommation de carburant selon la voiture",
       x = "Miles parcourus pour un gallon",
       y = "") +
  theme_minimal()

dat = read.csv("files/skater_stats.csv")
# source: http://inalitic.com/datasets/nhl%20player%20data.html

p = ggplot(data = dat,
           aes(x = Age,
               group = Season)) +
  geom_density(fill = "black", alpha = .2) + 
  theme_minimal() +
  theme(legend.position = "") 

p

library(gganimate)

# exécutez cela dans la Console directement
p + transition_time(Season) + 
  labs(title = "Saison: {frame_time}")

dat2 = dat %>% 
  group_by(Season,Tm) %>% 
  mutate(mediane = median(Age, na.rm = T)) %>% 
  ungroup() %>% 
  distinct(Season,Tm,mediane) %>% 
  filter(str_detect(Tm, "MTL|TOR"))

p1 = ggplot(data = dat2,
       aes(y = mediane,
           x = Season, 
           color = Tm)) +
  geom_point() +
  geom_line() +
  scale_color_manual(name = "", 
                     values = c("red", "blue")) +
  labs(x = "",
       y = "Âge médian",
       title = "Age médian des joueurs",
       subtitle = "Canadiens de Montréal et Maple Leafs de Toronto") +
  theme_minimal()

p1

p2 = p1 + transition_reveal(Season) 

animate(p2, fps = 4)
anim_save("graph_anime.gif", animation = last_animation())

# exemple
knitr::opts_chunk$set(echo = T, error = F, message = F, fig.width = 5)