R/graphics.R

In INESSSQC/polymedic: Calculs de la polypharmacie

#' Distribution de fréquence
#'
#' Diagramme à bande indiquant la fréquence de chaque valeur
#'
#' @param .data Tableau à utiliser pour le graphique.
#' @param xmax Maximum de l'axe des abscisses (x-axis).
#'
#' @import ggplot2
#'
#' @export
freqtable <- function(.data, name.value = "valeurs", xmax = 30){
  ggplot(.data, aes(Valeur, Freq)) +
    geom_bar(stat = "identity",
             col = "#5792CC", fill = "#5792CC") +
    labs(title = paste("Distribution de fréquence des", name.value),
         x = "Valeur de l'indicateur",
         y = "Freq (n)") +
    scale_y_continuous(expand = c(0, 0)) +
    scale_x_continuous(expand = c(0, 0),
                       limits = c(-1, xmax),
                       breaks = seq(0, xmax + 1, 2),
                       labels = seq(0, xmax + 1, 2)) +
    theme_classic() +
    theme(plot.title = element_text(hjust = 0.5))
}



#' Distribution cumulée des valeurs
#'
#' Courbe indiquant le pourcentage cumulé des valeurs
#'
#' @param .data Tableau à utiliser pour le graphique.
#' @param xmax Maximum de l'axe des abscisses (x-axis).
#'
#' @import ggplot2
#'
#' @export
graphpoints <- function(.data, name.value = "valeurs", xmax = 30){
  ggplot(.data, aes(Valeur, Cumul)) +
    geom_line(col = "#5792CC") + geom_point(col = "#5792CC") +
    labs(title = paste("Distribution cumulée des", name.value),
         x = "Valeur de l'indicateur",
         y = "Pourcentage cumulé (%)") +
    scale_y_continuous(expand = c(0, 0),
                       limits = c(0, 105),
                       breaks = seq(0, 105, 10),
                       labels = seq(0, 105, 10)) +
    scale_x_continuous(expand = c(0, 0),
                       limits = c(-1, xmax + 1),
                       breaks = seq(0, xmax + 1, 2),
                       labels = seq(0, xmax + 1, 2)) +
    theme_classic() +
    theme(plot.title = element_text(hjust = 0.5))
}