Caso de estudio: Relación entre enfermedades crónicas y COVID-19

Importar paquetes

library(pacman)
p_load("prettydoc", "readr", "tidyverse", "DT")

Importar datos

datosenfcron <- read.csv("Diagnosticos18.csv")

sonora <- (datosenfcron [datosenfcron$Estado == "Sonora", ])

datatable(sonora)
## Warning in instance$preRenderHook(instance): It seems your data is too big
## for client-side DataTables. You may consider server-side processing: https://
## rstudio.github.io/DT/server.html

Caso de estudio

¿Qué variables hacen que aumente o disminuyan las defunciones por covid-19 en Sonora?

Caso de estudio: Relación entre enfermedades crónicas y covid-19

¿Son lugares que tienen más personas reportadas con enfermedades crónicas los lugares que también tienen más personas fallecidas por covid-19?

Para responder esto tenemos el dato más nuevo de número de personas con diagnóstico de enfermedades crónicas, para esto usamos datos provenientes de:

www.cenaprece.salud.gob.mx/descargas/Excel/Diagnosticos18.csv https://datos.gob.mx/busca/dataset/expediente-clinico-electronico-unemes-enfermedades-cronicas--2018

Datos de enfermades cronicas para sonora

datatable(sonora)
## Warning in instance$preRenderHook(instance): It seems your data is too big
## for client-side DataTables. You may consider server-side processing: https://
## rstudio.github.io/DT/server.html

Enfermedades # Grafica de barras de enfermedades cronicas en Obregón , Hermosillo, Santa Ana y caborca

Diagnostico <- sonora$Diagnóstico

Jurisdiccion <- sonora$Jurisdicción

datosgrafico <- data.frame(Diagnostico,Jurisdiccion)

ggplot(datosgrafico, aes(fill=Jurisdiccion, y=Diagnostico)) + 
    geom_bar(position="dodge", stat="count") +
    xlab ("Número de casos") +
    ylab ("Diagnóstico") +
  ggtitle(" Enfermedades crónicas en Sonora, 2018 (CENAPRECE)")

Podemos decir que en ciudad obregon tienen una mejor calidad de vida pero esto no quiere decir que tiene que ver con sus casos porque en obregon tiene mas caso que en otras ciudaddes asi que las enfermedades cronicas o mas bien la calidad de medicina es un factor de contagios.

¿Por qué razones si la población de Ciudad Obregón es más grande que la santa ana y de caborca, existen más personas con diagnóstico de enfermedades crónicas ?

Se puede decir que en ciudad obregon hay mas cultura de deporte hay mas gyms o centros deportivos donde la gente pueda tener una buena calidad de ejercicios .

Analizamos caborca

caborca <- (datosenfcron [datosenfcron$Jurisdicción == "CABORCA", ])

datatable(caborca)
## Warning in instance$preRenderHook(instance): It seems your data is too big
## for client-side DataTables. You may consider server-side processing: https://
## rstudio.github.io/DT/server.html
count(caborca)
##     n
## 1 647

Analizamos Obregon

obregon <- (datosenfcron [datosenfcron$Jurisdicción == "CIUDAD OBREGÓN", ])
datatable(obregon)
## Warning in instance$preRenderHook(instance): It seems your data is too big
## for client-side DataTables. You may consider server-side processing: https://
## rstudio.github.io/DT/server.html
count(obregon)
##     n
## 1 158

Analizamos hermosillo

hermosillo <- (datosenfcron [datosenfcron$Jurisdicción == "HERMOSILLO", ])

datatable(hermosillo)
## Warning in instance$preRenderHook(instance): It seems your data is too big
## for client-side DataTables. You may consider server-side processing: https://
## rstudio.github.io/DT/server.html
count(hermosillo)
##     n
## 1 738

Analizamos santa ana

ana<- (datosenfcron [datosenfcron$Jurisdicción == "SANTA ANA", ])

datatable(ana)
## Warning in instance$preRenderHook(instance): It seems your data is too big
## for client-side DataTables. You may consider server-side processing: https://
## rstudio.github.io/DT/server.html
count(ana)
##     n
## 1 593

Tabla datos de salud

library(readxl)
datosdalud <- read_excel("datosdalud.xlsx")
datatable(datosdalud)

¿Son los lugares que proporcionalmente tienen más defunciones, los lugares que también tienen más diagnósticos?

no y obregon es un ejemplo puede ser que sus difunciones se deban a otra n cantidad de razones delincuencia y etc.

¿por qué si en cajeme hay menos enfermedades crónicas, proporcionalmente a su población hay más defunciones? Puede deberse a la delicuencia porque en obregon tiene mas tendencias de asesinatos a terceros.

https://news.culturacolectiva.com/mexico/la-quinta-ciudad-mas-peligrosa-del-mundo-se-encuentra-en-sonora/#:~:text=El%20Gobierno%20de%20Claudia%20Pavlovich,progresos%20considerables%20contra%20la%20violencia.

¿Cuánta gente habita en cada ciudad?

Fuente: http://cuentame.inegi.org.mx/monografias/informacion/son/territorio/div_municipal.aspx?tema=me&e=26

Caborca 85631

Santa Ana 16248

Cajeme 433050

Hermosillo 884273

Comparacion

Cajeme tiene una mayor proporcionalidad de fallecidos por cada diez mil habitantes.

#¿Qué características tendría un municipio que tuviera menos defunciones? R= La cantidad de habitantes pero no en proporcion, la educacion es factor que ayuda y centros recreativos que hay en la ciudad.

#¿Qué variables se correlacionan con el número de defunciones? Directamenta no se relaciona con nada porque anteriormente analizamos si leer y escribir era un factor importante pero no lo resulto ser del todo porque obregon tiene mas calidad y no es su fuerte.

#¿Los municipios que tienen más gente escolarizada son los que menos tienen defunciones? no cambia y no impacta por que Santa Ana es ligeramente mayor que obregon pero de igual forma para la cantidad de defunciones por cada 10000 habitantes.

#¿Qué otras variables podemos añadir al análisis? - Cantidad de centros recreativos de la ciudad