# \donttest{
data(dengue2020)
data_limpia <- limpiar_data_sivigila(dengue2020)
data_limpia <- estandarizar_geo_cods(data_limpia)
data_agrupada <- agrupar_dpto(data_event = data_limpia)
plot_dptos(data_agrupada,
col_dptos = "departamento_ocurrencia"
)
# }
Run the code above in your browser using DataLab