diff --git a/R/plotting.R b/R/plotting.R index 023b865f..dbd94628 100644 --- a/R/plotting.R +++ b/R/plotting.R @@ -755,8 +755,8 @@ plot_mpios <- function(data_agrupada, dplyr::summarise(casos = sum(.data[["casos"]]), .groups = "drop") plot_casos_muns <- ggplot2::ggplot(data_agrupada, - ggplot2::aes(x = reorder(.data[[nomb_col]], - .data[["casos"]]), + ggplot2::aes(x = stats::reorder(.data[[nomb_col]], + .data[["casos"]]), y = .data[["casos"]])) + ggplot2::geom_bar(width = 0.5, stat = "identity", diff --git a/inst/rmarkdown/templates/reports/skeleton/skeleton.Rmd b/inst/rmarkdown/templates/reports/skeleton/skeleton.Rmd index 8490eef2..5f875fc5 100644 --- a/inst/rmarkdown/templates/reports/skeleton/skeleton.Rmd +++ b/inst/rmarkdown/templates/reports/skeleton/skeleton.Rmd @@ -286,4 +286,4 @@ c. Identificar condiciones ambientales que pueden influir en la propagación de d. Analizar la relación entre variables climáticas y la ocurrencia de casos. e. Evaluar la presencia de vectores o reservorios específicos en la región. f. Analizar comparativamente la situación municipal, departamental o nacional. -g. Sugerir acciones de salud pública para mitigar la enfermedad. \ No newline at end of file +g. Sugerir acciones de salud pública para mitigar la enfermedad.