R/graphe_ipr.R

In CedricMondy/AspeDashboard: Tableau de bord ASPE

#' Title
#'
#' @param donnees 
#'
#' @return
#' @export
#'
#' @examples
#' @importFrom dplyr group_by summarise n_distinct mutate ungroup left_join filter distinct
#' @importFrom ggplot2 ggplot aes geom_col scale_fill_identity facet_wrap vars labs
#' @importFrom sf st_drop_geometry
#' @importFrom tidyr pivot_longer
graphe_ipr <- function(donnees) {
    labels <- c(
        "nb_pop" = "Nombre de stations",
        "p_pop" = "Pourcentage de stations"
        )
        
    if (nrow(donnees) > 0)
        donnees %>% 
            dplyr::group_by(annee, cli_libelle) %>% 
            dplyr::summarise(nb_pop = dplyr::n_distinct(pop_id), .groups = "drop") %>%
            dplyr::group_by(annee) %>% 
            dplyr::mutate(p_pop = 100 * nb_pop / sum(nb_pop)) %>% 
            dplyr::ungroup() %>% 
            tidyr::pivot_longer(
                cols = c(nb_pop, p_pop)
            ) %>% 
            dplyr::left_join(
                carte_operations %>% 
                    dplyr::filter(variable == "ipr") %>% 
                    dplyr::distinct(valeur, couleur),
                by = c("cli_libelle" = "valeur")
            ) %>% 
            dplyr::mutate(
                name = unname(labels[name])
            ) %>% 
            ggplot2::ggplot(
                mapping = ggplot2::aes(
                    x = annee, y = value, fill = couleur
                )
            ) +
            ggplot2::geom_col() +
            ggplot2::scale_fill_identity() +
            ggplot2::facet_wrap(ggplot2::vars(name), nrow = 1, scales = "free_y") +
            ggplot2::labs(x = "", y = "")
}