TAREA 1: ESTADÍSTICAS VITALES

ESTADÍSTICAS VITALES EN EPIDEMIOLOGÍA

Fecha: 11 de Diciembre 2025

Alumna: LN. Lucia Anahí Sandoval Chávez

ESTADÍSTICAS VITALES DE MEXICO 2018-2021

library(readr)
estadisticas_vitales_mexico_2018_2021 <- read_csv("Downloads/estadisticas_vitales_mexico_2018_2021.csv")
View(estadisticas_vitales_mexico_2018_2021)
print(estadisticas_vitales_mexico_2018_2021)

NA

1-Crear un conjunto de datos

# Crear data frame
datos <- data.frame(estadisticas_vitales_mexico_2018_2021)
#Renombrar una columna con funcion "rename" con dplyr
datos <- datos %>% rename(año  = anio)

# Mostrar los primeros datos
print(datos)

NA

2-Calcular Tasa de Natalidad por 1000 habitantes

str(datos)

'data.frame':   4 obs. of  7 variables:
 $ año                          : num  2018 2019 2020 2021
 $ poblacion_total              : num  1.25e+08 1.26e+08 1.26e+08 1.27e+08
 $ nacimientos_registrados      : num  2162535 2092214 1629211 1912178
 $ defunciones_registradas      : num  722611 747784 1086743 1122249
 $ incremento_natural           : num  1439924 1344430 542468 789929
 $ casos_covid_confirmados      : num  0 0 1437185 NA
 $ defunciones_covid_confirmadas: num  0 0 126507 NA

print(datos)

# Calcular tasas de natalidad
datos$tasa_natalidad <- (datos$nacimientos_registrados / datos$poblacion_total) * 1000

# Crear Gráfico
ggplot(datos, aes(x = año, y = tasa_natalidad, fill = año)) +
  geom_bar(stat = "identity") +
  labs(title = "Tasa de Natalidad por Año",
       x = "año", y = "Tasa de Natalidad (por 1,000 habitantes)") +
  theme_classic()

3-Calcular Tasa de Mortalidad por 1000 habitantes

str(datos)

'data.frame':   4 obs. of  8 variables:
 $ año                          : num  2018 2019 2020 2021
 $ poblacion_total              : num  1.25e+08 1.26e+08 1.26e+08 1.27e+08
 $ nacimientos_registrados      : num  2162535 2092214 1629211 1912178
 $ defunciones_registradas      : num  722611 747784 1086743 1122249
 $ incremento_natural           : num  1439924 1344430 542468 789929
 $ casos_covid_confirmados      : num  0 0 1437185 NA
 $ defunciones_covid_confirmadas: num  0 0 126507 NA
 $ tasa_natalidad               : num  17.3 16.6 12.9 15.1

print(datos)

# Calcular tasas de mortalidad
datos$tasa_mortalidad <- (datos$defunciones_registradas / datos$poblacion_total) * 1000

# Crear gráfico
ggplot(datos, aes(x = año, y = tasa_mortalidad, fill = año)) +
  geom_bar(stat = "identity") +
  labs(title = "Tasa de Mortalidad por Año", x = "Año", y = "Tasa de Mortalidad (por 1,000 habitantes)") +
  theme_classic()

4- Tasa de incremento natural por 1 000 habitantes.

str(datos)

'data.frame':   4 obs. of  10 variables:
 $ año                          : num  2018 2019 2020 2021
 $ poblacion_total              : num  1.25e+08 1.26e+08 1.26e+08 1.27e+08
 $ nacimientos_registrados      : num  2162535 2092214 1629211 1912178
 $ defunciones_registradas      : num  722611 747784 1086743 1122249
 $ incremento_natural           : num  1439924 1344430 542468 789929
 $ casos_covid_confirmados      : num  0 0 1437185 NA
 $ defunciones_covid_confirmadas: num  0 0 126507 NA
 $ tasa_natalidad               : num  17.3 16.6 12.9 15.1
 $ tasa_mortalidad              : num  5.79 5.94 8.62 8.86
 $ tasa_incremento_natural      : num  11.54 10.68 4.3 6.23

print(datos)

#Se calcula restando la Tasa de Natalidad menos la Tasa de Mortaliad, donde ambas se expresan por cada mil individuos.

# Calcular tasas de incremento natural
datos$tasa_incremento_natural <- (datos$tasa_natalidad - datos$tasa_mortalidad) 

#Eliminar una columna 
datos <- datos %>% select(-contains('tasa_letalidad'))

# Crear gráfico
ggplot(datos, aes(x = año, y = tasa_incremento_natural, fill = año)) +
  geom_bar(stat = "identity") +
  labs(title = "Tasa de Incremento Natural por Año", x = "Año", y = "Tasa de Incremento Natural (por 1,000 habitantes)") +
  theme_classic()

5- Tasa de letalidad por COVID-19 (%) donde existan casos.

str(datos)

'data.frame':   4 obs. of  11 variables:
 $ año                          : num  2018 2019 2020 2021
 $ poblacion_total              : num  1.25e+08 1.26e+08 1.26e+08 1.27e+08
 $ nacimientos_registrados      : num  2162535 2092214 1629211 1912178
 $ defunciones_registradas      : num  722611 747784 1086743 1122249
 $ incremento_natural           : num  1439924 1344430 542468 789929
 $ casos_covid_confirmados      : num  0 0 1437185 NA
 $ defunciones_covid_confirmadas: num  0 0 126507 NA
 $ tasa_natalidad               : num  17.3 16.6 12.9 15.1
 $ tasa_mortalidad              : num  5.79 5.94 8.62 8.86
 $ tasa_incremento_natural      : num  11.54 10.68 4.3 6.23
 $ tasa_letalidad               : num  NaN NaN 8.8 NA

print(datos)

# Calcular tasas de letalidad
datos$tasa_letalidad <- (datos$defunciones_covid_confirmadas / datos$casos_covid_confirmados) * 100

#Tasa de letalidad
Datos_defunciones_covid_confirmadas <- 126507    # Número de fallecidos por la enfermedad 
casos_covid_confirmados <- 1437185   # Número total de casos registrados

# Cálculo de la tasa de letalidad
tasa_letalidad <- (Datos_defunciones_covid_confirmadas / casos_covid_confirmados) * 100

# Resultado
cat("Tasa de letalidad:", tasa_letalidad, "% de los casos que fallecen por COVID\n")

Tasa de letalidad: 8.802416 % de los casos que fallecen por COVID

NOTA: Decidí no hacer gráfico debido a que sólo se presentó en un año y me pareció más coherente presentar el resultado de esta manera. 

6- Construir una tabla con Flexatable

# Crear data frame
datos <- data.frame(estadisticas_vitales_mexico_2018_2021)
#Renombrar una columna con funcion "rename" con dplyr
datos <- datos %>% rename(año  = anio)
print(datos)

# Calcular las tasas
datos$tasa_natalidad <- (datos$nacimientos_registrados / datos$poblacion_total) * 1000

datos$tasa_mortalidad <- (datos$defunciones_registradas / datos$poblacion_total) * 1000

datos$tasa_incremento_natural <- (datos$tasa_natalidad - datos$tasa_mortalidad) 

datos$tasa_letalidad <- (datos$defunciones_covid_confirmadas / datos$casos_covid_confirmados) * 100

# Redondear solo columnas numéricas
datos_redondeados <- datos %>%
  mutate_if(is.numeric, round, 2)

# Crear la tabla con flextable
flextable(datos_redondeados) %>% 
  autofit()

año	poblacion_total	nacimientos_registrados	defunciones_registradas	incremento_natural	casos_covid_confirmados	defunciones_covid_confirmadas	tasa_natalidad	tasa_mortalidad	tasa_incremento_natural	tasa_letalidad
2,018	124,738,000	2,162,535	722,611	1,439,924	0	0	17.34	5.79	11.54
2,019	125,930,000	2,092,214	747,784	1,344,430	0	0	16.61	5.94	10.68
2,020	126,014,024	1,629,211	1,086,743	542,468	1,437,185	126,507	12.93	8.62	4.30	8.8
2,021	126,705,138	1,912,178	1,122,249	789,929			15.09	8.86	6.23

REFLEXIÓN

• ¿En qué año se observa la mayor tasa de mortalidad y cómo se relaciona con la pandemia? La mayor tasa de mortalidad se presenta en el año 2021, sin embargo, se muestra un aumento significativo desde el año 2020, año donde inició la pandemia, y por ende los registros de defunciones relacionados con los casos registrados por COVID.

• ¿Cómo cambia la tasa de natalidad entre 2018 y 2021? Se presentó una reducción en la natalidad en el año 2021, comparado con el año 2018.

• ¿Qué ocurre con el incremento natural durante ese periodo? Presenta un decrecimiento o reducción en la población, casi del 50%.
  

• ¿Qué significa la tasa de letalidad por COVID-19 que obtuviste para 2020? Nos dice que 8.8% de los casos confirmados por COVID fallecieron.