tarea de jesus Daniel

library(dplyr)
library(ggplot2)
library(flextable)

library(dplyr)

datos <- datos %>%
  mutate(
    tasa_natalidad = (nacimientos_registrados / poblacion_total) * 1000,
    tasa_mortalidad = (defunciones_registradas / poblacion_total) * 1000,
    incremento_natural = nacimientos_registrados - defunciones_registradas,
    tasa_incremento_natural = (incremento_natural / poblacion_total) * 1000,
    tasa_letalidad_covid = ifelse(casos_covid > 0,
                                  (defunciones_covid / casos_covid) * 100,
                                  NA)
  )

Error in `mutate()`:
ℹ In argument:
  `tasa_letalidad_covid = ifelse(...)`.
Caused by error:
! objeto 'casos_covid' no encontrado
Run `]8;;x-r-run:rlang::last_trace()rlang::last_trace()]8;;` to see where the error occurred.

# Natalidad
ggplot(datos, aes(x = anio, y = tasa_natalidad)) +
  geom_line(color = "blue") +
  geom_point(color = "blue") +
  labs(title = "Tasa de natalidad", y = "Por 1000 hab.", x = "Año")

# Mortalidad
ggplot(datos, aes(x = anio, y = tasa_mortalidad)) +
  geom_line(color = "red") +
  geom_point(color = "red") +
  labs(title = "Tasa de mortalidad", y = "Por 1000 hab.", x = "Año")


#Letalidad COVID
ggplot(datos, aes(x = anio, y = tasa_letalidad_covid)) +
  geom_line(color = "darkgreen", na.rm = TRUE) +
  geom_point(color = "darkgreen", na.rm = TRUE) +
  labs(title = "Tasa de letalidad por COVID-19", y = "%", x = "Año")

anio	poblacion_total	nacimientos_registrados	defunciones_registradas	incremento_natural	tasa_natalidad	tasa_mortalidad	tasa_incremento_natural	tasa_letalidad_covid
2,018	124,738,000	2,162,535	722,611	1,439,924	17.33662	5.793030	11.543587
2,019	125,930,000	2,092,214	747,784	1,344,430	16.61410	5.938093	10.676010
2,020	126,014,024	1,629,211	1,086,743	542,468	12.92881	8.623985	4.304822	8.802416
2,021	126,705,138	1,912,178	1,122,249	789,929	15.09156	8.857170	6.234388

#preguntas 

1. ¿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 registra en 2021, con 8.857 por cada 1000 habitantes. Este aumento está directamente relacionado con el impacto de la pandemia de COVID‑19, que elevó las defunciones desde 2020.

2. ¿Cómo cambia la tasa de natalidad entre 2018 y 2021?  
La tasa de natalidad disminuye de forma continua:

2018: 17.34

2019: 16.61

2020: 15.17

2021: 15.09
.

3. ¿Qué ocurre con el incremento natural durante ese periodo?  
El incremento natural se reduce drásticamente, pasando de 1,439,924 en 2018 a 789,929 en 2021. Menor crecimiento poblacional debido a menos nacimientos y más defunciones.

4. ¿Qué significa la tasa de letalidad por COVID‑19 que obtuviste para 2020?  
La tasa de letalidad por COVID‑19 en 2020 fue de 8.80%, lo que indica que aproximadamente 9 de cada 100 personas diagnosticadas con COVID‑19 fallecieron ese año en México.