{r setup, include=FALSE} knitr::opts_chunk$set(echo = TRUE)

{r Logo, echo=FALSE} png_file <- "~/Solicitudes de información oficiales/9068855/logo_samic.png" knitr::include_graphics(png_file)

```{r} pacman::p_load(dplyr, rstatix, rio, here, tidyverse, janitor) pacman::p_load(dplyr) ce_ext <- calafate_consultorio_externo_extranjeros_2024 names(ce_ext) ce_ext\(npaisnacimiento <- as.factor(ce_ext\)npaisnacimiento) levels(ce_ext\(npaisnacimiento) ce_ext\)pais_nacimiento ce_ext\(pais_nacimiento <- as.factor(ce_ext\)pais_nacimiento) levels(ce_ext\(pais_nacimiento) ce_ext\)dtipodocumento ce_ext\(dtipodocumento <- as.factor(ce_ext\)dtipodocumento) levels(ce_ext$dtipodocumento)

ce_ext <- ce_ext %>% janitor::clean_names() %>% unique()

ce_ext <- ce_ext %>% mutate(dtipodocumento = recode(dtipodocumento, “REGISTRO NUICO NACIONAL DE CHILE” = “REGISTRO ÚNICO NACIONAL DE CHILE”)) %>% mutate(dtipodocumento = recode(dtipodocumento, “CEDULA DE INDENTIDAD REPUBLICA DE CHIL” = “CEDULA DE INDENTIDAD REPUBLICA DE CHILE”))

levels(ce_ext$dtipodocumento)

int_ext <- calafate_internaciones_extranjeros_2024 guardia_ext <- calafate_guardia_extranjeros_2024

ce_ext_conf <- ce_ext %>% filter(turno_estado == “CONFIRMADO”)

ce_ext_conf %>% tabyl(pais_nacimiento, dtipodocumento) %>% adorn_totals(where = “both”) %>% adorn_title( row_name = “País nacimiento en consulta programada”, col_name = “Tipo documento”, placement = “combined”) %>% flextable::flextable() %>% flextable ::autofit()

ce_ext_residencia <- ce_ext_conf %>% filter(dtipodocumento == “DNI”) print(ce_ext_residencia) ce_ext_residencia <- as.tibble(ce_ext_residencia) export(ce_ext_residencia, “ce_extranjeros_residentes.csv”)

#######################Internados#################################################### int_ext <- int_ext %>% janitor::clean_names() %>% unique() names(int_ext)

int_ext\(pais_nacimiento <- as.factor(int_ext\)pais_nacimiento) levels(int_ext\(pais_nacimiento) int_ext\)dtipodocumento int_ext\(dtipodocumento <- as.factor(int_ext\)dtipodocumento) levels(int_ext$dtipodocumento) int_ext <- int_ext %>% mutate(dtipodocumento = recode(dtipodocumento, “CEDULA DE INDENTIDAD REPUBLICA DE CHIL” = “CEDULA DE INDENTIDAD REPUBLICA DE CHILE”))

levels(int_ext$dtipodocumento)

int_ext %>% tabyl(pais_nacimiento, dtipodocumento) %>% adorn_totals(where = “both”) %>% adorn_title( row_name = “País nacimiento en internados”, col_name = “Tipo documento”, placement = “combined”) %>% flextable::flextable() %>% flextable ::autofit()

int_ext_residencia <- int_ext %>% filter(dtipodocumento == “DNI”) print(int_ext_residencia)

int_ext_residencia <- as.tibble(int_ext_residencia) export(int_ext_residencia, “int_extranjeros_residentes.csv”)

#######Guardia##################

guardia_ext <- guardia_ext %>% janitor::clean_names() %>% unique() names(guardia_ext)

guardia_ext\(pais_nacimiento <- as.factor(guardia_ext\)pais_nacimiento) levels(guardia_ext\(pais_nacimiento) guardia_ext\)dtipodocumento guardia_ext\(dtipodocumento <- as.factor(guardia_ext\)dtipodocumento) levels(guardia_ext$dtipodocumento) guardia_ext <- guardia_ext %>% mutate(dtipodocumento = recode(dtipodocumento, “REGISTRO NUICO NACIONAL DE CHILE” = “REGISTRO ÚNICO NACIONAL DE CHILE”)) %>% mutate(dtipodocumento = recode(dtipodocumento, “CEDULA DE INDENTIDAD REPUBLICA DE CHIL” = “CEDULA DE INDENTIDAD REPUBLICA DE CHILE”))

levels(guardia_ext$dtipodocumento)

guardia_ext %>% tabyl(pais_nacimiento, dtipodocumento) %>% adorn_totals(where = “both”) %>% adorn_title( row_name = “País nacimiento en atenciones de guardia”, col_name = “Tipo documento”, placement = “combined”) %>% flextable::flextable() %>% flextable ::autofit()

guardia_ext_residencia <- guardia_ext %>% filter(dtipodocumento == “DNI”) print(guardia_ext_residencia)

skimr::skim(guardia_ext_residencia) skimr::skim(guardia_ext)

guardia_ext_residencia %>% tabyl(pais_nacimiento) %>% adorn_totals(where = “row”) %>% adorn_title( row_name = “Pais nacimiento en guardia”, col_name = “n”, placement = “combined”) %>% flextable::flextable() %>% flextable::autofit()

ce_residente <- 3253-383 ce_residente ce_no_residente <- 3253-2870 ce_no_residente guardia_no_residente <- 3253-2870 guardia_no_residente

```