R Notebook

datos

# Tasa de natalidad por año
nacimientos <- datos$nacimientos_registrados 
poblacion <- datos$poblacion_total

datos$natalidad <- (nacimientos / poblacional_total) * 1000
print(datos)

#graficos de natalidad por año 
library(ggplot2)
ggplot(datos, aes(x = año, y = natalidad)) +
  geom_line(stat = "identity", color = "red") +
  geom_point(stat = "identity") +
  labs(title = "Tasa de natalidad por año", x = "Año", y = "Natalidad por cada 1000 hab" )

library(dplyr)
library(flextable)

#tasa de mortalidad 
muertes <- datos$defunciones_registradas

datos$mortalidad <- (muertes / poblacional_total) * 1000

#grafico de mortalidad por año 
ggplot(datos, aes(x = año, y = mortalidad)) +
  geom_line(stat = "identity", color = "blue") +
  geom_point(stat = "identity") +
  labs(title = "Tasa de mortalidad por año", x = "año", y = "muertes por 1000 hab")

#incremento natural de la poblacion 
datos$incremento_natura_poblacion <- ((nacimientos - muertes) / poblacional_total) * 1000

datos

#graficos de incremento natural de la poblacion 
ggplot(datos, aes(x = año, y = incremento_natural)) +
  geom_line(stat = "identity", color = "gray") +
  geom_point(stat = "identity") +
  labs(title = "Incremento natural de la poblacion", x = "año", y = "incremento de la ponlacion")

#tasa de letalidad covid
datos$letalidad_covid <- ifelse(datos$casos_covid_confirmados > 0, (datos$defunciones_covid_confirmadas / datos$casos_covid_confirmados) * 100, NA)

#Grafico letalidad COVID por año 
ggplot(datos, aes(x = año, y = letalidad_covid)) +
  geom_bar(stat = "identity", color = "black") +
  labs(title = "porcentaje de letalidad de COVID", x = "año", y = "porcentaje de letalidad")

#redondear columnas numericas 
datos_redondeados <- datos %>%
  mutate(across(where(is.numeric), ~ round(.x, 2)))
datos

#crear la tabla
flextable(datos_redondeados) %>%
  autofit()

año	poblacion_total	nacimientos_registrados	defunciones_registradas	incremento_natural	casos_covid_confirmados	defunciones_covid_confirmadas	natalidad	mortalidad	incremento_natura_poblacion	letalidad_covid
2,018	124,738,000	2,162,535	722,611	1,439,924	0	0	21,625.35	7,226.11	14,399.24
2,019	125,930,000	2,092,214	747,784	1,344,430	0	0	20,922.14	7,477.84	13,444.30
2,020	126,014,024	1,629,211	1,086,743	542,468	1,437,185	126,507	16,292.11	10,867.43	5,424.68	8.8
2,021	126,705,138	1,912,178	1,122,249	789,929			19,121.78	11,222.49	7,899.29

NA
NA

¿En qué año se observa la mayor tasa de mortalidad y cómo se relaciona con la pandemia? 2021, despues del inicio de pandemia

¿Cómo cambia la tasa de natalidad entre 2018 y 2021? despues de pandemia reduce la natalidad en comparacion con 2018

¿Qué ocurre con el incremento natural durante ese periodo? disminuye en compracion con la muerte