# Instale los paquetes ----------------------------------------------
install.packages("kableExtra")
install.packages("viridis")
install.packages("ggthemes")
## Paquetes ----------------------------------------------------------
library(tidyverse) # paquete para manipulación de bases de datos
library(kableExtra) # paquete para formatación de tablas
library(viridis) # paquete de paleta de colores
library(ggthemes) # paquete temático para gráfico ggplot

## Curso del tiempo --------------------------------------------------
mes_comiezo <- "Julio"
mes_final <- "Diciembre"
ano <- 2018

## Descarga de la base de datos --------------------------------------
datos <- read_csv2("juldic2018.csv")

# names(datos)
# [1] "departamento_id"         "departamento_nombre"     "provincia_id"           
# [4] "provincia_nombre"        "anio"                    "semanas_epidemiologicas"
# [7] "evento_nombre"           "grupo_edad_id"           "grupo_edad_desc"        
# [10] "cantidad_casos"         

## Manipular la base de datos ----------------------------------------
newdt <- datos %>% 
  dplyr::select(provincia_nombre, evento_nombre, cantidad_casos) %>% # seleccionar columnas
  group_by(provincia_nombre, evento_nombre) %>% # Agrupar datos por provincia y enfermedad
  summarise(total = sum(cantidad_casos)) %>% # Suma el número de casos por provincia
  pivot_wider(names_from = evento_nombre, values_from = total) %>% # cambiar formato de tabla
  dplyr::select(-`Enfermedad por Virus del Zika`) %>% # borrar los datos de Zica
  arrange(desc(Dengue)) %>%
  rename(Provincia = provincia_nombre, Casos = Dengue)

En el período de Julio-Diciembre del año 2018, Argentina totalizó 1576 casos de dengue, siendo la provincia de Chaco la que presenta mayor número de afectados (tabla 1).

## n casos en las provincias --------------------------------------
newdt %>%
  kableExtra::kbl(booktabs = T, align = "c", caption = "Distribución de casos de dengue por provincia de Argentina.", longtable = T) %>%
  column_spec(1, width = "6cm", latex_valign = "p") %>%
  column_spec(2, color = "white", width = "2.5cm", bold = T,
                          background = spec_color(newdt$Casos, end = 0.9, option = "A", direction = -1))
Distribución de casos de dengue por provincia de Argentina.
Provincia Casos
Chaco 739
Buenos Aires 187
Misiones 158
CABA 133
Corrientes 126
Santiago del Estero 116
Salta 58
Formosa 24
Córdoba 13
Santa Fe 11
Entre Ríos 6
DESCONOCIDA 2
Tucumán 2
Mendoza 1