R/utils_plot_mort_data.R

In UBESP-DCTV/covid19ita: Covid-19 - Italy

ggmort <- function(data, legend_title, x = c("regione", "provincia")) {
  x <- match.arg(x)

  ggplot(data, aes(
    x = .data[[x]],
    y = .data$variation,
    fill = .data$strata
  )) +
    geom_bar(position = "dodge", stat = "identity") +
    geom_bar(position = "dodge", stat = "identity") +
    labs(
      y = "Variazione Percentuale",
      x = paste("Nome", x),
      fill = legend_title
    ) +
    theme(
      axis.text.x = element_text(angle = 60, hjust = 1),
      panel.background = element_blank()
    )
}