Plotly for interactive graphs

Not self-contained (easier to load and archive)
Small corrections

cloture.Rmd

@@ -4,6 +4,7 @@ output:
   html_document:
     toc: true
     toc_float: true
+    self_contained: false
 ---
 
 ```{r init, echo = F, message = F}
@@ -13,12 +14,13 @@ library(knitr)
 library(tidyr)
 library(stringr)
 library(dplyr)
+library(plotly)
 
 opts_chunk$set(echo = F,
                message = F,
                warning = F,
-               fig.width = 12,
-               fig.height = 7)
+               fig.width = 10,
+               fig.height = 6)
 
 options(DT.options = list(paging = F,
                           searching = F,
@@ -91,21 +93,24 @@ rum %>%
 rum %>%
   count(annee_sortie, mois_sortie) %>%
   ungroup %>%
+  mutate(annee_sortie = annee_sortie %>% factor) %>%
 
-  ggplot +
+  ggplot(
     aes(x = mois_sortie,
         y = n,
-        color = annee_sortie %>% factor,
-        shape = annee_sortie %>% factor) +
+        color = annee_sortie,
+        shape = annee_sortie)) +
     scale_x_discrete(limits = mois_label, expand = c(.05, 0)) +
     geom_line() +
     geom_point() +
     labs(x = NULL,
          y = NULL,
          title = "RUM") +
+    theme_bw() +
     theme(axis.text.x = element_text(angle = 45, hjust = 1),
           legend.title = element_blank(),
-          plot.title = element_text(hjust = 0))
+          plot.title = element_text(hjust = 0)) -> p
+    ggplotly(p, tooltip = c("x", "y", "colour"))
 ```
 
 ## Nombre de RSS transmis par mois pour les 3 dernières années
@@ -131,21 +136,24 @@ rss %>%
 rss %>%
   count(annee_sortie, mois_sortie) %>%
   ungroup %>%
+  mutate(annee_sortie = annee_sortie %>% factor) %>%
 
-  ggplot +
+  ggplot(
   aes(x = mois_sortie,
       y = n,
-      color = annee_sortie %>% factor,
-      shape = annee_sortie %>% factor) +
+      color = annee_sortie,
+      shape = annee_sortie)) +
   scale_x_discrete(limits = mois_label, expand = c(.05, 0)) +
   geom_line() +
   geom_point() +
   labs(x = NULL,
        y = NULL,
        title = "RSS") +
+  theme_bw() +
   theme(axis.text.x = element_text(angle = 45, hjust = 1),
         legend.title = element_blank(),
-        plot.title = element_text(hjust = 0))
+        plot.title = element_text(hjust = 0)) -> p
+  ggplotly(p, tooltip = c("x", "y", "colour"))
 ```
 
 ### Nombre de RSS de 1 jour et plus transmis par mois pour les 3 dernières années
@@ -172,21 +180,24 @@ rss %>%
   filter(duree_rss >= 1) %>%
   count(annee_sortie, mois_sortie) %>%
   ungroup %>%
+  mutate(annee_sortie = annee_sortie %>% factor) %>%
 
-  ggplot +
+  ggplot(
   aes(x = mois_sortie,
       y = n,
-      color = annee_sortie %>% factor,
-      shape = annee_sortie %>% factor) +
+      color = annee_sortie,
+      shape = annee_sortie)) +
   scale_x_discrete(limits = mois_label, expand = c(.05, 0)) +
   geom_line() +
   geom_point() +
   labs(x = NULL,
        y = NULL,
        title = "RSS de 1 jour et +") +
+  theme_bw() +
   theme(axis.text.x = element_text(angle = 45, hjust = 1),
         legend.title = element_blank(),
-        plot.title = element_text(hjust = 0))
+        plot.title = element_text(hjust = 0)) -> p
+  ggplotly(p, tooltip = c("x", "y", "colour"))
 ```
 
 ### Nombre de RSS de 0 jour (hors séances) transmis par mois pour les 3 dernières années
@@ -215,21 +226,24 @@ rss %>%
   filter(duree_rss == 0, cmd != 28) %>%
   count(annee_sortie, mois_sortie) %>%
   ungroup %>%
+  mutate(annee_sortie = annee_sortie %>% factor) %>%
 
-  ggplot +
+  ggplot(
   aes(x = mois_sortie,
       y = n,
-      color = annee_sortie %>% factor,
-      shape = annee_sortie %>% factor) +
+      color = annee_sortie,
+      shape = annee_sortie)) +
   scale_x_discrete(limits = mois_label, expand = c(.05, 0)) +
   geom_line() +
   geom_point() +
   labs(x = NULL,
        y = NULL,
        title = "RSS de 0 jour, hors séances") +
+  theme_bw() +
   theme(axis.text.x = element_text(angle = 45, hjust = 1),
         legend.title = element_blank(),
-        plot.title = element_text(hjust = 0))
+        plot.title = element_text(hjust = 0)) -> p
+  ggplotly(p, tooltip = c("x", "y", "colour"))
 ```
 
 ### Nombre de RSS de séance transmis par mois pour les 3 dernières années
@@ -256,21 +270,24 @@ rss %>%
   filter(duree_rss == 0, cmd == 28) %>%
   count(annee_sortie, mois_sortie) %>%
   ungroup %>%
+  mutate(annee_sortie = annee_sortie %>% factor) %>%
 
-  ggplot +
+  ggplot(
   aes(x = mois_sortie,
       y = n,
-      color = annee_sortie %>% factor,
-      shape = annee_sortie %>% factor) +
+      color = annee_sortie,
+      shape = annee_sortie)) +
   scale_x_discrete(limits = mois_label, expand = c(.05, 0)) +
   geom_line() +
   geom_point() +
   labs(x = NULL,
        y = NULL,
        title = "RSS de séances") +
+  theme_bw() +
   theme(axis.text.x = element_text(angle = 45, hjust = 1),
         legend.title = element_blank(),
-        plot.title = element_text(hjust = 0))
+        plot.title = element_text(hjust = 0)) -> p
+  ggplotly(p, tooltip = c("x", "y", "colour"))
 ```
 
 ## Nombre de RUM transmis par pôle pour les 3 dernières années
@@ -280,6 +297,7 @@ rum %>%
   filter(! is.na(pole_libelle)) %>%
   count(pole_libelle, annee_sortie) %>%
   ungroup %>%
+  mutate(pole_libelle = pole_libelle %>% str_replace("\xc9", "É")) %>%
   spread(annee_sortie, n) %>%
   bind_rows(select(., -pole_libelle) %>%
             summarise_each(funs(sum(., na.rm = T))) %>%
@@ -296,11 +314,12 @@ rum %>%
   filter(! is.na(pole_libelle)) %>%
   count(pole_libelle, annee_sortie) %>%
   ungroup %>%
+  mutate(pole_libelle = pole_libelle %>% str_replace("\xc9", "É")) %>%
 
-  ggplot +
+  ggplot(
   aes(x = annee_sortie,
       y = n,
-      color = pole_libelle) +
+      color = pole_libelle)) +
   scale_x_continuous(breaks = (annee - 2):annee) +
   facet_wrap(~ pole_libelle, scales = "free") +
   geom_point() +
@@ -308,6 +327,7 @@ rum %>%
   labs(x = NULL,
        y = NULL,
        title = "RUM par pôle") +
+  theme_bw() +
   theme(legend.position = "none",
         plot.title = element_text(hjust = 0))
 ```
@@ -336,16 +356,18 @@ exhau %>%
   mutate(rss_prod = rss + manq,
          exh = 100 * rss / rss_prod) %>%
 
-  ggplot +
+  ggplot(
   aes(x = mois,
-      y = exh) +
+      y = exh)) +
   geom_point() +
   geom_line() +
   labs(x = NULL,
        y = NULL,
        title = NULL) +
   scale_x_discrete(limits = mois_label, expand = c(.05, 0)) +
-  theme(axis.text.x = element_text(angle = 45, hjust = 1))
+  theme_bw() +
+  theme(axis.text.x = element_text(angle = 45, hjust = 1)) -> p
+  ggplotly(p)
 
 ```
 
@@ -364,18 +386,20 @@ rss %>%
   mutate(n = 100 * (n.x - n.y) / n.x,
          n = ifelse(is.na(n), 100, n)) %>%
 
-  ggplot +
+  ggplot(
   aes(x = mois_sortie,
-      y = n) +
+      y = n)) +
   scale_x_discrete(limits = mois_label, expand = c(.05, 0)) +
   geom_line() +
   geom_point() +
   labs(x = NULL,
        y = NULL,
        title = NULL) +
+  theme_bw() +
   theme(axis.text.x = element_text(angle = 45, hjust = 1),
         legend.title = element_blank(),
-        plot.title = element_text(hjust = 0))
+        plot.title = element_text(hjust = 0)) -> p
+  ggplotly(p)
 ```
 
 ### Nombre de RSS manquants pour la clôture actuelle selon le mois de sortie du RSS
@@ -384,18 +408,20 @@ gam %>%
   count(mois_sortie) %>%
   full_join(data.frame(mois_sortie = setdiff(1:mois, .$mois_sortie), n = rep(0, length(setdiff(1:mois, .$mois_sortie))))) %>%
 
-  ggplot +
+  ggplot(
   aes(x = mois_sortie,
-      y = n) +
+      y = n)) +
   scale_x_discrete(limits = mois_label, expand = c(.05, 0)) +
   geom_line() +
   geom_point() +
   labs(x = NULL,
        y = NULL,
        title = NULL) +
+  theme_bw() +
   theme(axis.text.x = element_text(angle = 45, hjust = 1),
         legend.title = element_blank(),
-        plot.title = element_text(hjust = 0))
+        plot.title = element_text(hjust = 0)) -> p
+  ggplotly(p)
 ```
 
 ## Exhaustivité par pôle et par service