# 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 <- "Enero"
mes_final <- "Julio"
ano <- 2018

## Descarga de la base de datos --------------------------------------
datos <- read_csv2("enejul2018.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 Enero-Julio del año 2018, Argentina totalizó 1157 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 581
Buenos Aires 152
Misiones 145
CABA 111
Santiago del Estero 100
Formosa 23
Córdoba 18
Corrientes 15
Santa Fe 6
Entre Ríos 4
Tucumã 2
Salta NA