|
|
@@ -377,14 +377,16 @@ exhau %>% |
|
|
|
```{r fig7} |
|
|
|
exhau_pims %>% |
|
|
|
mutate(mois_sortie = month(Sortie)) %>% |
|
|
|
filter(!is.na(DP)) %>% |
|
|
|
filter(is.na(DP)) %>% |
|
|
|
distinct(RSS, .keep_all = T) %>% |
|
|
|
count(mois_sortie) %>% |
|
|
|
full_join(exhau_pims %>% |
|
|
|
mutate(mois_sortie = month(Sortie)) %>% |
|
|
|
distinct(RSS, .keep_all = T) %>% |
|
|
|
count(mois_sortie), |
|
|
|
by = "mois_sortie") %>% |
|
|
|
mutate(n = 100 * n.x / n.y, |
|
|
|
n = ifelse(is.na(n), 100, n)) %>% |
|
|
|
mutate(n = 100 * (n.y - n.x) / n.y) %>% |
|
|
|
complete(mois_sortie = 1:mois, fill = list(n = 100)) %>% |
|
|
|
|
|
|
|
ggplot( |
|
|
|
aes(x = mois_sortie, |
|
|
@@ -406,14 +408,10 @@ exhau_pims %>% |
|
|
|
```{r fig8} |
|
|
|
exhau_pims %>% |
|
|
|
mutate(mois_sortie = month(Sortie)) %>% |
|
|
|
filter(!is.na(DP)) %>% |
|
|
|
filter(is.na(DP)) %>% |
|
|
|
distinct(RSS, .keep_all = T) %>% |
|
|
|
count(mois_sortie) %>% |
|
|
|
full_join(exhau_pims %>% |
|
|
|
mutate(mois_sortie = month(Sortie)) %>% |
|
|
|
count(mois_sortie), |
|
|
|
by = "mois_sortie") %>% |
|
|
|
mutate(n = n.y - n.x, |
|
|
|
n = ifelse(is.na(n), 0, n)) %>% |
|
|
|
complete(mois_sortie = 1:mois, fill = list(n = 0)) %>% |
|
|
|
|
|
|
|
ggplot( |
|
|
|
aes(x = mois_sortie, |
|
|
|