Calcular las siguientes tasas para cada año 2018-2021

library(readr)
## Warning: package 'readr' was built under R version 4.4.3
estadisticas_vitales_mexico_2018_2021 <- read_csv("C:/Users/biome/Downloads/estadisticas_vitales_mexico_2018_2021.csv")
## Rows: 4 Columns: 7
## ── Column specification ────────────────────────────────────────────────────────
## Delimiter: ","
## dbl (7): anio, poblacion_total, nacimientos_registrados, defunciones_registr...
## 
## ℹ Use `spec()` to retrieve the full column specification for this data.
## ℹ Specify the column types or set `show_col_types = FALSE` to quiet this message.
View(estadisticas_vitales_mexico_2018_2021)
print(estadisticas_vitales_mexico_2018_2021)
## # A tibble: 4 × 7
##    anio poblacion_total nacimientos_registrados defunciones_registradas
##   <dbl>           <dbl>                   <dbl>                   <dbl>
## 1  2018       124738000                 2162535                  722611
## 2  2019       125930000                 2092214                  747784
## 3  2020       126014024                 1629211                 1086743
## 4  2021       126705138                 1912178                 1122249
## # ℹ 3 more variables: incremento_natural <dbl>, casos_covid_confirmados <dbl>,
## #   defunciones_covid_confirmadas <dbl>

2018

Calculo de tasa de natalidad (2018) por cada 1,000 habitantes

#estadisticas_vitales_mexico_2018_2021 <- read_csv

nacimientos <- 2162535  # Número de nacimientos en un año
poblacion_total <- 124738000  # Población total en ese año

# Cálculo de la tasa de natalidad
tasa_natalidad <- (nacimientos / poblacion_total) * 1000

# Resultado
cat("Tasa de natalidad:", tasa_natalidad, "nacimientos por cada 1,000 habitantes\n")
## Tasa de natalidad: 17.33662 nacimientos por cada 1,000 habitantes

Calculo de tasa de mortalidad (2018) por cada 1,000 habitantes

muertes <- 722611  # Número de muertes en un año
poblacion_total <- 124738000  # Población total en ese año

# Cálculo de la tasa de mortalidad
tasa_mortalidad <- (muertes / poblacion_total) * 1000

# Resultado
cat("Tasa de mortalidad:", tasa_mortalidad, "muertes por cada 1,000 habitantes\n")
## Tasa de mortalidad: 5.79303 muertes por cada 1,000 habitantes

Calculo de incremento natural (2018) por cada 1,000 habitantes

nacimientos <- 2162535  # Número de nacimientos en un año
muertes <- 722611  # Número de muertes en un año
poblacion_total <- 124738000  # Población total en ese año

# Cálculo de incremento natural
incremento_natural <- (nacimientos - muertes) / poblacion_total * 1000

# Resultado
cat("Incremento natural:", incremento_natural, "incremento natural por 1,000 habitantes\n")
## Incremento natural: 11.54359 incremento natural por 1,000 habitantes

La tasa de letalidad por covid-19 en 2018 es 0% debido a que no se presentaron casos

2019

Calculo de tasa de natalidad (2019) por cada 1,000 habitantes

#estadisticas_vitales_mexico_2018_2021 <- read_csv

nacimientos <- 2092214  # Número de nacimientos en un año
poblacion_total <- 125930000  # Población total en ese año

# Cálculo de la tasa de natalidad
tasa_natalidad <- (nacimientos / poblacion_total) * 1000

# Resultado
cat("Tasa de natalidad:", tasa_natalidad, "nacimientos por cada 1,000 habitantes\n")
## Tasa de natalidad: 16.6141 nacimientos por cada 1,000 habitantes

Calculo de tasa de mortalidad (2019) por cada 1,000 habitantes

muertes <- 747784  # Número de muertes en un año
poblacion_total <- 125930000  # Población total en ese año

# Cálculo de la tasa de mortalidad
tasa_mortalidad <- (muertes / poblacion_total) * 1000

# Resultado
cat("Tasa de mortalidad:", tasa_mortalidad, "muertes por cada 1,000 habitantes\n")
## Tasa de mortalidad: 5.938093 muertes por cada 1,000 habitantes

Calculo de incremento natural (2019) por cada 1,000 habitantes

nacimientos <- 2092214  # Número de nacimientos en un año
muertes <- 747784  # Número de muertes en un año
poblacion_total <- 125930000  # Población total en ese año

# Cálculo de incremento natural
incremento_natural <- (nacimientos - muertes) / poblacion_total * 1000

# Resultado
cat("Incremento natural:", incremento_natural, "incremento natural por 1,000 habitantes\n")
## Incremento natural: 10.67601 incremento natural por 1,000 habitantes

La tasa de letalidad por covid-19 en 2019 es 0% debido a que no se presentaron casos

2020

Calculo de tasa de natalidad (2020) por cada 1,000 habitantes

#estadisticas_vitales_mexico_2018_2021 <- read_csv

nacimientos <- 1629211  # Número de nacimientos en un año
poblacion_total <- 126014024  # Población total en ese año

# Cálculo de la tasa de natalidad
tasa_natalidad <- (nacimientos / poblacion_total) * 1000

# Resultado
cat("Tasa de natalidad:", tasa_natalidad, "nacimientos por cada 1,000 habitantes\n")
## Tasa de natalidad: 12.92881 nacimientos por cada 1,000 habitantes

Calculo de tasa de mortalidad (2020) por cada 1,000 habitantes

muertes <- 1086743  # Número de muertes en un año
poblacion_total <- 126014024  # Población total en ese año

# Cálculo de la tasa de mortalidad
tasa_mortalidad <- (muertes / poblacion_total) * 1000

# Resultado
cat("Tasa de mortalidad:", tasa_mortalidad, "muertes por cada 1,000 habitantes\n")
## Tasa de mortalidad: 8.623985 muertes por cada 1,000 habitantes

Calculo de incremento natural (2020) por cada 1,000 habitantes

nacimientos <- 1629211  # Número de nacimientos en un año
muertes <- 1086743  # Número de muertes en un año
poblacion_total <- 126014024  # Población total en ese año

# Cálculo de incremento natural
incremento_natural <- (nacimientos - muertes) / poblacion_total * 1000

# Resultado
cat("Incremento natural:", incremento_natural, "incremento natural por 1,000 habitantes\n")
## Incremento natural: 4.304822 incremento natural por 1,000 habitantes

Calculo de la tasa de letalidad por covid-19 en 2020

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 <- (defunciones_covid_confirmadas / casos_covid_confirmados) * 100

# Resultado

cat("Tasa de letalidad:", tasa_letalidad, "% de los casos fallecen\n")
## Tasa de letalidad: 8.802416 % de los casos fallecen

2021

Calculo de tasa de natalidad (2021) por cada 1,000 habitantes

#estadisticas_vitales_mexico_2018_2021 <- read_csv

nacimientos <- 1912178  # Número de nacimientos en un año
poblacion_total <- 126705138  # Población total en ese año

# Cálculo de la tasa de natalidad
tasa_natalidad <- (nacimientos / poblacion_total) * 1000

# Resultado
cat("Tasa de natalidad:", tasa_natalidad, "nacimientos por cada 1,000 habitantes\n")
## Tasa de natalidad: 15.09156 nacimientos por cada 1,000 habitantes

Calculo de tasa de mortalidad (2021) por cada 1,000 habitantes

muertes <- 1122249  # Número de muertes en un año
poblacion_total <- 126705138  # Población total en ese año

# Cálculo de la tasa de mortalidad
tasa_mortalidad <- (muertes / poblacion_total) * 1000

# Resultado
cat("Tasa de mortalidad:", tasa_mortalidad, "muertes por cada 1,000 habitantes\n")
## Tasa de mortalidad: 8.85717 muertes por cada 1,000 habitantes

Calculo de incremento natural (2021) por cada 1,000 habitantes

nacimientos <- 1912178  # Número de nacimientos en un año
muertes <- 1122249  # Número de muertes en un año
poblacion_total <- 126705138  # Población total en ese año

# Cálculo de incremento natural
incremento_natural <- (nacimientos - muertes) / poblacion_total * 1000

# Resultado
cat("Incremento natural:", incremento_natural, "incremento natural por 1,000 habitantes\n")
## Incremento natural: 6.234388 incremento natural por 1,000 habitantes

La tasa de letalidad por covid-19 en 2021 es 0% porque N/A

Gráficos con ggplot2

Natalidad vs Año

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

# Gráfico
ggplot(estadisticas_vitales_mexico_2018_2021, aes(x = anio, y = tasa_natalidad, fill = anio)) + 
  geom_bar(stat = "identity") +
  labs(title = "Tasa de Natalidad vs Año",
       x = "Año", y = "Tasa de natalidad (por 1,000 habitantes)")+
  theme_bw()

Mortalidad vs Año

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

# Gráfico
ggplot(estadisticas_vitales_mexico_2018_2021, aes(x = anio, y = tasa_mortalidad, fill = anio)) + 
  geom_bar(stat = "identity") +
  labs(title = "Tasa de Mortalidad vs Año",
       x = "Año", y = "Tasa de Mortalidad (por 1,000 habitantes)")+
  theme_bw()

Letalidad por COVID-19 vs Año

# Calcular tasas de letalidad por Covid-19
estadisticas_vitales_mexico_2018_2021$tasa_letalidad <- (estadisticas_vitales_mexico_2018_2021$defunciones_covid_confirmadas / estadisticas_vitales_mexico_2018_2021$casos_covid_confirmados) * 1000

# Gráfico
ggplot(estadisticas_vitales_mexico_2018_2021, aes(x = anio, y = tasa_letalidad, fill = anio)) + 
  geom_bar(stat = "identity") +
  labs(title = "Tasa de Letalidad por Covid-19 vs Año",
       x = "Año", y = "Tasa de Letalidad (por 1,000 habitantes)")+
  theme_bw()
## Warning: Removed 3 rows containing missing values or values outside the scale range
## (`geom_bar()`).

Tabla flextable

library(readr)
library(dplyr)
library(flextable)
## Warning: package 'flextable' was built under R version 4.4.3
## 
## Adjuntando el paquete: 'flextable'
## The following object is masked from 'package:purrr':
## 
##     compose
estadisticas_vitales_mexico_2018_2021 <- read_csv("C:/Users/biome/Downloads/estadisticas_vitales_mexico_2018_2021.csv")
## Rows: 4 Columns: 7
## ── Column specification ────────────────────────────────────────────────────────
## Delimiter: ","
## dbl (7): anio, poblacion_total, nacimientos_registrados, defunciones_registr...
## 
## ℹ Use `spec()` to retrieve the full column specification for this data.
## ℹ Specify the column types or set `show_col_types = FALSE` to quiet this message.
estadisticas_vitales_mexico_2018_2021$tasa_natalidad <- (estadisticas_vitales_mexico_2018_2021$nacimientos_registrados/estadisticas_vitales_mexico_2018_2021$poblacion_total) * 1000
estadisticas_vitales_mexico_2018_2021$tasa_mortalidad <- (estadisticas_vitales_mexico_2018_2021$defunciones_registradas/estadisticas_vitales_mexico_2018_2021$poblacion_total) * 1000
estadisticas_vitales_mexico_2018_2021$tasa_incremento_natural <- (estadisticas_vitales_mexico_2018_2021$nacimientos_registrados-estadisticas_vitales_mexico_2018_2021$defunciones_registradas) / estadisticas_vitales_mexico_2018_2021$poblacion_total * 1000
estadisticas_vitales_mexico_2018_2021$tasa_letalidad <- (estadisticas_vitales_mexico_2018_2021$defunciones_covid_confirmadas/estadisticas_vitales_mexico_2018_2021$casos_covid_confirmados) * 1000

library(dplyr)

estadisticas_vitales_mexico_2018_2021_redondeados <- 
  estadisticas_vitales_mexico_2018_2021 %>%
  mutate_if(is.numeric, round, 2)

estadisticas_vitales_mexico_2018_2021 <- estadisticas_vitales_mexico_2018_2021 %>% 
  select(-contains("casos_covid_confirmados")) %>% 
  select(-contains("defunciones_covid_confirmadas"))

flextable(estadisticas_vitales_mexico_2018_2021_redondeados) %>% 
  autofit()

anio

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

88.02

2,021

126,705,138

1,912,178

1,122,249

789,929

15.09

8.86

6.23

Preguntas Finales

1. ¿En qué año se observa la mayor tasa de mortalidad y cómo se relaciona con la pandemia?

En el año 2021 se observa la mayor tasa de mortalidad debido a la presencia de la pandemia y se relaciono directamente en que hubo mayor tasa de natalidad en el año 2021 que en el año 2020 donde de igual manera ya estaba presente la pandemia.Es bien sabido que el sistema de salud mexicano colapso debido al número alto de casos de covid-19 en 2020, por lo que la mayor parte del sistema de salud se enfoco mayormente en casos covid, dejando un poco de lado el 2do padecimiento prevalente en el país, enfermedades cardiacas y diabetes, entonces teniendo covid-19 en la ecuación más diabetes y enfermedades cardiacas aumento la mortalidad.

2. ¿Cómo cambia la tasa de natalidad entre 2018 y 2021?

En el año 2018 la tasa de natalidad tiene un valor de 17.34, este valor fue disminuyendo hasta tener su menor valor en el año 2020 de 12.93 mayormente por factores sociales, de salud y económicos provocados por la pandemia, pero en el año 2021 aumento a 15.09, por el desarrollo de vacunas y el papel de la ciencia para combatir la pandemia.

3. ¿Qué ocurre con el incremento natural durante ese periodo?

El incremento natural del 2018 fue 1,439,924 y en el 2021 789,929: una caida sumamente brusca al reducir su valor a la mitad. Hubo más muertes que nacimientos del periodo del 2018-2021 en México, resultando en un decrecimiento, esta envejeciendo la población más de lo que rejuvenece por falta de nacimientos.

4. ¿Qué significa la tasa de letalidad por COVID-19 que obtuviste para 2020?

Significa que la enfermedad causada por covid-19 si fue altamente peligrosa y grave porque en el 88% de los pacientes provoco la muerte, uno de lo factores es que fue un virus variante emergente, no se conocia su evolución, tratamientos efectivos ni había vacunas por lo que el personal médico no tenia las herramientas necesarias para tratar la enfermedad. ```