Calculate incidence by event

[GeraldineGomez]

No description provided.

[zmcucunuba]

Hola, les dejo el código para descargar los datos de DANE con proyecciones 2005-2035:

#POBLACIÓN 2005 - 2035 COLOMBIA
#FEB 2024

library(httr)
library(readxl)
library(tidyverse)
library(dplyr)
library(tidyr)

rm(list=ls())

#años 2005 - 2019
url <- "https://www.dane.gov.co/files/censo2018/proyecciones-de-poblacion/Municipal/DCD-area-sexo-edad-proypoblacion-Mun-2005-2019.xlsx"
response <- GET(url)
temp_file <- tempfile(fileext = ".xlsx")
writeBin(content(response, "raw"), temp_file)
dat_05_19 <- read_excel(temp_file, skip = 11)
dat_05_19 <- sivirep::limpiar_encabezado(dat_05_19)

dat_05_19 <- dat_05_19 %>%
  pivot_longer(
    cols = starts_with("hombres_") | starts_with("mujeres_") | starts_with("total_"),
    names_to = c(".value", "grupo_edad"),
    names_pattern = "(.*)_(\\d+_y_mas|\\d+)$"
  ) %>%
  select(dp, dpnom, dpmp, mpio, ano, area_geografica, grupo_edad, hombres, mujeres, total) %>%
  mutate(grupo_edad = recode(grupo_edad, `85_y_mas` = "85+"))
dat_05_19 <- dat_05_19 %>% filter(!is.na(grupo_edad))


#Años 2020 - 2035
url2 <- "https://www.dane.gov.co/files/censo2018/proyecciones-de-poblacion/Municipal/DCD-area-sexo-edad-proypoblacion-Mun-2020-2035-ActPostCOVID-19.xlsx"
response2 <- GET(url2)
temp_file2 <- tempfile(fileext = ".xlsx")
writeBin(content(response2, "raw"), temp_file2)
dat_20_35 <- read_excel(temp_file2, skip = 8)
dat_20_35 <- sivirep::limpiar_encabezado(dat_20_35)

dat_20_35 <- dat_20_35 %>% rename(total_general= total)
dat_20_35 <- dat_20_35 %>%
  pivot_longer(
    cols = starts_with("hombres_") | starts_with("mujeres_") | starts_with("total_"),
    names_to = c(".value", "grupo_edad"),
    names_pattern = "(.*)_(\\d+_y_mas|\\d+)$"
  ) %>%
  select(dp, dpnom, dpmp, mpio, ano, area_geografica, grupo_edad, hombres, mujeres, total) %>%
  mutate(grupo_edad = recode(grupo_edad, `85_y_mas` = "85+"))
dat_20_35 <- dat_20_35 %>% filter(!is.na(grupo_edad))


dat_05_35 <- rbind(dat_05_19, dat_20_35)
saveRDS(dat_05_35, "data/dist_pob/Pop_DANE_2005-2035.RDS")

[GeraldineGomez]

In PR #138, PR #142, and PR #143, introduced incidence calculation functionality, enabling it by Colombia, departments, municipalities, and sex.

Moreover, plot functions like plot_map and plot_sex have been updated to include both incidence and case data in visualizations.