Este informe presenta un análisis detallado de un conjunto de datos que abarca diversos aspectos relacionados con la salud y el estilo de vida de individuos. Con más de 10,000 registros, se exploran variables que incluyen la presión arterial, colesterol, índice de masa corporal (IMC), hábitos alimenticios, actividad física, evaluaciones de salud mental y física, así como otros factores demográficos. El objetivo principal de este proyecto es analizar la relación entre factores de salud y evaluar su impacto en la calidad de vida.
Las enfermedades cardíacas, también conocidas como enfermedades cardiovasculares, engloban una variedad de trastornos que afectan al corazón y los vasos sanguíneos. Algunas de las principales son:
La salud y el bienestar son fundamentales para la calidad de vida de las personas. Este proyecto se basa en la premisa de que el análisis de datos relacionados con la salud puede arrojar luz sobre prácticas saludables, identificar riesgos y contribuir a la toma de decisiones informada en el ámbito de la salud pública.
Las enfermedades cardíacas abarcan diversas afecciones que afectan al corazón. Factores como la hipertensión, el colesterol alto y el tabaquismo pueden aumentar el riesgo. Mantener un estilo de vida saludable, dieta equilibrada y ejercicio regular son clave para la prevención. Se entiende por factores de riesgo aquellas biológicas o conductuales cuya presencia confiere una mayor probabilidad de sufrir una enfermedad en el futuro. Algunos factores pueden ser modificados, tratados o controlados, mientras que otros no, así como la edad, el sexo o cuestiones hereditables. Los indicadores de riesgo establecidos en una enfermedad cardiaca son: el tabaco, colesterol, diabetes, hipertensión, obesidad, sedentarismo, antecedentes familiares, y por último estrés.
En Mexico, en 2021 ocurrieron cerca de un millón 100 mil defunciones por diferentes causas, de las cuales 220 mil fueron por enfermedades del corazón; de éstas, 78 por ciento correspondió a infartos del corazón o cardiopatía isquémica. Además, fallecieron alrededor de 30 mil personas por hipertensión arterial.
Los datos fueron obtenidos de [fuente] y constan de más de 10,000 registros. La recopilación incluye información detallada sobre diversos aspectos de la salud y el estilo de vida.
Se seleccionaron variables clave como enfermedad cardíaca, presión arterial, colesterol, IMC, hábitos alimenticios, actividad física, entre otras, para un análisis más profundo.
setwd("D:/Alyson Alvarez")
getwd()
## [1] "D:/Alyson Alvarez"
df=read.csv("heart_disease_health_indicators.csv")
colnames(df) = c("EnfermedadCardiaca","A_Presionarterial","A_Coresterol","Control_Coresterol","IMC","Fumador","Accidente_Cerebrovascular","Diabetes","Actividad_Fisica","Frutas","Verduras","Alcohol","Asistencia_Sanitaria", "Medico_por_Costo","Evaluacion_Salud","Evaluacion_Salud_Mental","Evaluacion_Salud_Fisica","Dificultad_Caminar","Sexo","Edad","Educacion","Ingresos")
attach(df)
A continuación, se presentan los resultados del análisis, incluyendo gráficos de barras, gráficos de pastel, histogramas y tablas, que ilustran patrones y tendencias en los datos de salud.
barplot(table(EnfermedadCardiaca),
col = "darkslategray2",
main = "Distribución de Enfermedad Cardíaca",
xlab = "Enfermedad Cardíaca",
ylab = "Frecuencia")
barplot(rbind(table(df$Evaluacion_Salud_Mental), table(df$Evaluacion_Salud_Fisica)),
beside = TRUE,
col = c("skyblue", "lightgreen"),
legend.text = TRUE,
args.legend = list(x = "topright"),
main = "Evaluaciones de Salud Mental y Física",
xlab = "Evaluación",
ylab = "Frecuencia")
Frecuencia = table(Alcohol)
No_alcohol = (Frecuencia["0"] / sum(Frecuencia))*100
Si_alcohol = (Frecuencia["1"] / sum(Frecuencia))*100
pie(table(Alcohol),
labels = c(paste("No tomo alcohol (", round(No_alcohol,2), "%)"), paste("Si toma alcohol (", round(Si_alcohol,2), "%)")),
col = c("blue4", "blue"),
main = "Consumo de Alcohol")
Frecuencia = table(Fumador)
No_fumar = (Frecuencia["0"] / sum(Frecuencia))*100
Si_fumar = (Frecuencia["1"] / sum(Frecuencia))*100
pie(table(Fumador),
labels = c(paste("No fuma (", round(No_fumar,2), "%)"), paste("Fuma (", round(Si_fumar,2), "%)")),
col = c("#97FFFF", "darkslategray"),
main = "Hábito de Fumar")
hist(IMC,
col = ifelse(EnfermedadCardiaca == 1, "red", "firebrick"),
main = "Distribución del Índice de Masa Corporal (IMC)",
xlab = "IMC",
ylab = "Frecuencia")
El análisis de este conjunto de datos revela patrones significativos en factores de salud y estilo de vida. La comprensión de estos patrones puede ser crucial para la formulación de políticas de salud pública, la prevención de enfermedades y la mejora de la calidad de vida de la población. La gran mayoria de los pacientes, no contaban con parte de los indicadores causantes de una enfermedad al corazón. Sin embargo es necesario darle la importancia que se merece la atención y los cuidados necesarios para prevenir una enfermedad cardíaca. Ya que aunque la mayoria de los pacientes no cumplían con todos los criterios, se mostró que un pocentaje arriba del 50% fuma, sufre colesterol alto e hipertensión.