La salud mental es un aspecto del bienestar del ser humano, y la conducta suicida es una problemática actual a nivel mundial de salud pública, la cual requiere gran atención de parte del estado colombiano, así como de otros. En Colombia, las tasas de conducta suicida han demostrado un comportamiento que varía gracias a factores demográficos, desencadenantes y de riesgo. También es posible identificar la preferencia de ciertos métodos para realizar el acto suicida, que pueden ser claves para ayudar a prevenir los casos.
En el siguiente estudio nos centraremos en explorar DataSet sobre contexto y características de la vida de personas que intentaron suicidarse en Colombia, aunque centrado en Santander. Se busca comprender mejor las razones que llevaron a las personas a tomar esta decisión mediante el análisis de las variables que ofrece el DataSet.
El objetivo de este proyecto es aportar información para orientar el diseño de estrategias preventivas públicas que busquen ayudar a reducir estas tasas desde una intervención temprana hacia personas propensas.
La pregunta de investigación de este proyecto es: ¿Cuáles son los factores demográficos, desencadenantes y de riesgo y los mecanismos de autolesión más frecuentes en los intentos de suicidio, y cómo se pueden orientar estrategias para reducir su incidencia?
La metodología del proyecto se centra en la generación de gráficas que faciliten el análisis de los factores que influyen en los casos intentos de suicidio. Entre estos factores se incluyen características demográficas, métodos utilizados, factores desencadenantes y factores de riesgo.
El objetivo de estas gráficas es proporcionar una comprensión más clara sobre cuáles son los elementos que tienen mayor incidencia en la ocurrencia de estos casos. Esto permitiría identificar las áreas prioritarias en las cuales deben enfocarse las políticas públicas orientadas a reducir la incidencia de los intentos de suicidio, buscando promover alternativas que disuadan a las personas de considerar esta opción como la única solución a sus problemas.
Las gráficas serán presentadas en la sección de resultados de este informe, mientras que se realizará su análisis respectivo en la sección de discusión.
Es necesario destacar que pese a que el DataSet contiene datos de varios departamentos, o incluso de Venezuela, este se centra enormemente en datos de casos ocurridos en Santander.
df <- read.csv("intencion_suicida_datos.csv")
frecuencias_departamentos <- sort(table(df$nmun_resi), decreasing = TRUE)
porcentajes <- prop.table(frecuencias_departamentos) * 100
tabla <- data.frame(
Departamento = names(frecuencias_departamentos),
Frecuencia = as.vector(frecuencias_departamentos),
Porcentaje = round(as.vector(porcentajes), 2)
)
knitr::kable(
tabla,
caption = "Distribución de departamentos"
)
| Departamento | Frecuencia | Porcentaje |
|---|---|---|
| SANTANDER | 4088 | 97.96 |
| NORTE SANTANDER | 26 | 0.62 |
| CESAR | 17 | 0.41 |
| ARAUCA | 16 | 0.38 |
| BOLIVAR | 8 | 0.19 |
| BOGOTA | 4 | 0.10 |
| DEPTO DESCONOCIDO | 4 | 0.10 |
| AMAZONAS | 2 | 0.05 |
| ANTIOQUIA | 2 | 0.05 |
| ATLANTICO | 1 | 0.02 |
| CARABOBO | 1 | 0.02 |
| CAUCA | 1 | 0.02 |
| HUILA | 1 | 0.02 |
| RISARALDA | 1 | 0.02 |
| VALLE | 1 | 0.02 |
departamentos <- sort(table(df$nmun_resi), decrasing = TRUE)
departamentos_names <- c("Valle del Cauca", "Risaralda", "Huila", "Cauca", "Carabobo", "Atlantico", "Antioquia", "Amazonas", "Dpto desconocido", "Bogota", "Bolivar", "Arauca", "Cesar", "Norte de Santander", "Santander")
par(mar = c(10, 4, 4, 2))
bp <- barplot(departamentos, names.arg = departamentos_names, col = rainbow(15), main = "Departamentos", las = 2, ylim = c(0, 5000))
text(bp, departamentos + 200, labels = departamentos, col = "black", cex = 0.8)
Antes de generar las gráficas, es necesario realizar ciertos ajustes a los datos del DataSet para facilitar la comprensión de los datos.
Se realizó un preprocesamiento de los datos para facilitar la posterior trata de datos, en este caso se cambió la respuesta no por 0 en vez de 2, la respuesta si sigue siendo 1
siono <- c("pac_hos_", "inten_prev", "prob_parej", "enfermedad_cronica", "prob_econo", "muerte_fam","esco_educ", "prob_legal", "suici_fm_a", "maltr_fps", "prob_labor", "prob_consu", "prob_famil", "hist_famil", "idea_suici", "plan_suici", "antec_tran", "tran_depre", "trast_personalidad", "trast_bipolaridad", "esquizofre", "antec_v_a", "abuso_alco", "ahorcamien", "arma_corto", "arma_fuego", "inmolacion", "lanz_vacio", "lanz_vehic", "lanz_agua", "intoxicaci")
for(col in siono) {
df[[col]] <- ifelse(df[[col]] == 2, 0, df[[col]])
}
Para analizar los tipos de sustancias utilizadas, en el caso de que la persona en cuestión no haya usado ninguna sustancia este campo contiene NA, por lo que para visualizarlo no se toman en cuenta, además existen campo con 99, lo cual no corresponde a ninguna opción documentada, entonces al momento de graficar se colocarán como inválido.
na.omit(df$tipo_susta)
Esta gráfica muestra la distribución de los intentos de suicidio según el sexo de las personas involucradas. Es fundamental analizar esta variable para identificar la diferencia de incidencias entre hombres y mujeres, lo que será de ayuda para orientar estrategias específicas de prevención.
resultados_sexo <- table(df$sexo_)
bp <- barplot(resultados_sexo, names.arg = c("Mujeres", "Hombres"), col = c("pink", "lightblue"), main = "Sexo", ylim = c(0, 3000))
text(bp, resultados_sexo + 250, labels = resultados_sexo, col = "black", cex = 0.8)
En esta gráfica se observa la distribución de los intentos de suicidio según la edad. El análisis de esta variable permite identificar los rangos de edad más vulnerables, lo que sería de ayuda en el diseño de políticas enfocadas en dichos rangos de edad.
barplot(table(df$edad_), main = "Edad", col = "purple")
La siguiente tabla muestra la cantidad de casos por cada municipio de Santander registrados en el DataSet. Lo que puede ser un indicador de posibles regiones con gran incidencia, pero también del enfoque regional de este DataSet.
frecuencias_municipios <- sort(table(df$nmun_proce[df$ndep_proce == "SANTANDER"]), decreasing = TRUE)
porcentajes <- prop.table(frecuencias_municipios) * 100
tabla <- data.frame(
Municipio = names(frecuencias_municipios),
Frecuencia = as.vector(frecuencias_municipios),
Porcentaje = round(as.vector(porcentajes), 2)
)
knitr::kable(
tabla,
caption = "Distribución de municipios en Santander"
)
| Municipio | Frecuencia | Porcentaje |
|---|---|---|
| BUCARAMANGA | 2905 | 71.31 |
| FLORIDABLANCA | 582 | 14.29 |
| GIRON | 271 | 6.65 |
| PIEDECUESTA | 136 | 3.34 |
| LEBRIJA | 29 | 0.71 |
| BARRANCABERMEJA | 17 | 0.42 |
| LOS SANTOS | 14 | 0.34 |
| RIONEGRO | 14 | 0.34 |
| EL PLAYON | 12 | 0.29 |
| SABANA DE TORRES | 10 | 0.25 |
| SAN GIL | 9 | 0.22 |
| TONA | 9 | 0.22 |
| ZAPATOCA | 8 | 0.20 |
| CHARTA | 6 | 0.15 |
| 5 | 0.12 | |
| MALAGA | 5 | 0.12 |
| PUERTO WILCHES | 5 | 0.12 |
| SOCORRO | 5 | 0.12 |
| MATANZA | 4 | 0.10 |
| EL CARMEN DE CHUCURI | 3 | 0.07 |
| SAN VICENTE DE CHUCURI | 3 | 0.07 |
| BETULIA | 2 | 0.05 |
| CIMITARRA | 2 | 0.05 |
| CURITI | 2 | 0.05 |
| GUACA | 2 | 0.05 |
| SAN ANDRES | 2 | 0.05 |
| BARBOSA | 1 | 0.02 |
| CERRITO | 1 | 0.02 |
| CHARALA | 1 | 0.02 |
| GALAN | 1 | 0.02 |
| GAMBITA | 1 | 0.02 |
| GUADALUPE | 1 | 0.02 |
| PARAMO | 1 | 0.02 |
| PUENTE NACIONAL | 1 | 0.02 |
| SUAITA | 1 | 0.02 |
| SURATA | 1 | 0.02 |
| VELEZ | 1 | 0.02 |
| VETAS | 1 | 0.02 |
Esta tabla presenta los barrios de Bucaramanga ordenados según la cantidad de casos de intentos de suicidio reportados. Esta información es de gran importancia para identificar las zonas con mayor incidencia, lo que facilitará la implementación de estrategias enfocadas en dichas zonas.
frecuencias_barrios <- sort(table(df$Barrio[df$nmun_proce == "BUCARAMANGA"]), decreasing = TRUE)
porcentajes <- prop.table(frecuencias_barrios) * 100
tabla <- data.frame(
Barrio = names(frecuencias_barrios),
Frecuencia = as.vector(frecuencias_barrios),
Porcentaje = round(as.vector(porcentajes), 2)
)
knitr::kable(
tabla,
caption = "Distribución de Barrios en Bucaramanga"
)
| Barrio | Frecuencia | Porcentaje |
|---|---|---|
| SIN INFORMACION | 478 | 16.45 |
| Campo Hermoso | 154 | 5.30 |
| Provenza | 101 | 3.48 |
| Centro | 83 | 2.86 |
| Real De Minas | 81 | 2.79 |
| San Francisco | 80 | 2.75 |
| San Alonso | 72 | 2.48 |
| FLORIDABLANCA | 68 | 2.34 |
| Cafe Madrid | 67 | 2.31 |
| Colorados | 57 | 1.96 |
| Girardot | 48 | 1.65 |
| Bucaramanga | 46 | 1.58 |
| Comuneros | 45 | 1.55 |
| Mutis | 43 | 1.48 |
| La Joya | 42 | 1.45 |
| Alfonso Lopez | 38 | 1.31 |
| Universidad | 38 | 1.31 |
| Diamante Ii | 37 | 1.27 |
| Cabecera Del Llano | 35 | 1.20 |
| Antonia Santos Centro | 34 | 1.17 |
| GIRON | 34 | 1.17 |
| Sotomayor | 31 | 1.07 |
| La Aurora | 30 | 1.03 |
| Gaitan | 29 | 1.00 |
| Kennedy | 29 | 1.00 |
| Transicion I-V | 29 | 1.00 |
| Villa Rosa | 29 | 1.00 |
| Villas de San Ignacio | 28 | 0.96 |
| La Concordia | 24 | 0.83 |
| La Independencia | 24 | 0.83 |
| Morrorico | 24 | 0.83 |
| El Porvenir | 23 | 0.79 |
| El Tejar | 23 | 0.79 |
| Estoraques | 22 | 0.76 |
| Alvarez | 21 | 0.72 |
| El Prado | 20 | 0.69 |
| La Victoria | 20 | 0.69 |
| San Rafael | 18 | 0.62 |
| Cristal Alto | 17 | 0.59 |
| Albania | 16 | 0.55 |
| Garcia Rovira | 16 | 0.55 |
| Jardines De Coaviconsa | 16 | 0.55 |
| Alarcon | 15 | 0.52 |
| Betania | 15 | 0.52 |
| PIEDECUESTA | 15 | 0.52 |
| Tejar Norte | 15 | 0.52 |
| Lagos del Cacique | 14 | 0.48 |
| Monterredondo | 14 | 0.48 |
| Pablo Vi | 14 | 0.48 |
| Colseguros Norte | 13 | 0.45 |
| Conucos | 13 | 0.45 |
| Cristal Bajo | 13 | 0.45 |
| Mejoras Publicas | 13 | 0.45 |
| Buenos Aires | 12 | 0.41 |
| San Miguel | 12 | 0.41 |
| Villa Helena | 12 | 0.41 |
| Chapinero | 11 | 0.38 |
| Dangond | 11 | 0.38 |
| Regaderos Norte | 11 | 0.38 |
| Ricaurte | 11 | 0.38 |
| Canelos | 10 | 0.34 |
| Esperanza Ii | 10 | 0.34 |
| La Feria | 10 | 0.34 |
| Maria Paz | 10 | 0.34 |
| Miraflores | 10 | 0.34 |
| Terrazas | 10 | 0.34 |
| El Rocio | 9 | 0.31 |
| Los Conquistadores | 9 | 0.31 |
| Nuevo Sotomayor | 9 | 0.31 |
| San Martin | 9 | 0.31 |
| 12 De Octubre | 8 | 0.28 |
| 20 De Julio | 8 | 0.28 |
| Bolivar | 8 | 0.28 |
| La Ceiba | 8 | 0.28 |
| La Floresta | 8 | 0.28 |
| La Inmaculada | 8 | 0.28 |
| La Juventud | 8 | 0.28 |
| Los Pinos | 8 | 0.28 |
| Nariño | 8 | 0.28 |
| Toledo Plata | 8 | 0.28 |
| Claveriano | 7 | 0.24 |
| Esperanza I | 7 | 0.24 |
| Fontana | 7 | 0.24 |
| Las Hamacas | 7 | 0.24 |
| San Gerardo | 7 | 0.24 |
| Santander | 7 | 0.24 |
| Vegas De Morrorico | 7 | 0.24 |
| Ciudad Venecia | 6 | 0.21 |
| La Pedregosa | 6 | 0.21 |
| Manuela Beltran | 6 | 0.21 |
| Minuto De Dios | 6 | 0.21 |
| Napoles | 6 | 0.21 |
| San Luis | 6 | 0.21 |
| Villa Mercedes | 6 | 0.21 |
| Asturias | 5 | 0.17 |
| Esperanza Iii | 5 | 0.17 |
| Granjas De Provenza | 5 | 0.17 |
| Antonia Santos Sur | 4 | 0.14 |
| BARRANCABERMEJA | 4 | 0.14 |
| Bolarqui | 4 | 0.14 |
| Candiles | 4 | 0.14 |
| Chorreras De Don Juan | 4 | 0.14 |
| Diamante I | 4 | 0.14 |
| El Diviso | 4 | 0.14 |
| El Pablon | 4 | 0.14 |
| La Libertad | 4 | 0.14 |
| La Salle | 4 | 0.14 |
| Los Angeles | 4 | 0.14 |
| Los Heroes | 4 | 0.14 |
| Modelo | 4 | 0.14 |
| Olas Bajas | 4 | 0.14 |
| San Pedro Claver | 4 | 0.14 |
| 10 de mayo Santa Barbara | 3 | 0.10 |
| Altos del Progreso | 3 | 0.10 |
| Buenavista | 3 | 0.10 |
| Campestre Norte | 3 | 0.10 |
| Hacienda San Juan | 3 | 0.10 |
| Juan Xxiii | 3 | 0.10 |
| La Gran ladera | 3 | 0.10 |
| Los Cedros | 3 | 0.10 |
| Miradores Del Kennedy | 3 | 0.10 |
| Omaga Ii | 3 | 0.10 |
| Pan De Azucar | 3 | 0.10 |
| Punta Paraiso | 3 | 0.10 |
| Quinta Brigada | 3 | 0.10 |
| San Cristobal | 3 | 0.10 |
| Sauces | 3 | 0.10 |
| Villa Maria I | 3 | 0.10 |
| Villa Real del Sur | 3 | 0.10 |
| Altos del Cacique | 2 | 0.07 |
| BOGOTA | 2 | 0.07 |
| Cordoncillo Ii | 2 | 0.07 |
| Granjas De Julio Rincon | 2 | 0.07 |
| La Esmeralda | 2 | 0.07 |
| La Gloria | 2 | 0.07 |
| LEBRIJA | 2 | 0.07 |
| Lizcano I | 2 | 0.07 |
| Lizcano Ii | 2 | 0.07 |
| Malpaso | 2 | 0.07 |
| Miramar | 2 | 0.07 |
| Norte Bajo | 2 | 0.07 |
| Olas Altas | 2 | 0.07 |
| Olas Ii | 2 | 0.07 |
| Prados Del Mutis | 2 | 0.07 |
| Primero de Mayo | 2 | 0.07 |
| Puerta del Sol | 2 | 0.07 |
| Puerto Rico | 2 | 0.07 |
| Quinta Estrella | 2 | 0.07 |
| Quintadania | 2 | 0.07 |
| Real de Minas | 2 | 0.07 |
| RIONEGRO | 2 | 0.07 |
| San Bernardo | 2 | 0.07 |
| Venado De Oro | 2 | 0.07 |
| Villa Alicia | 2 | 0.07 |
| Viveros De Provenza | 2 | 0.07 |
| *REPUBLICA POPULAR DEL CONGO - SIN ESPECIFICACIÓN ADICIONAL DE LUGAR | 1 | 0.03 |
| 23 De Junio | 1 | 0.03 |
| Africa | 1 | 0.03 |
| Altos del Jardin | 1 | 0.03 |
| Altos Del Kennedy | 1 | 0.03 |
| Antiguo Campestre | 1 | 0.03 |
| Balconcitos | 1 | 0.03 |
| Balcones del Sur | 1 | 0.03 |
| Bellavista | 1 | 0.03 |
| Bogotá - Ciudad BolÃvar-Ismael Perdomo | 1 | 0.03 |
| Bosque norte | 1 | 0.03 |
| Brisas De Provenza | 1 | 0.03 |
| Brisas del Mutis | 1 | 0.03 |
| Brisas del Paraiso | 1 | 0.03 |
| Cabecera del Llano | 1 | 0.03 |
| Caldas | 1 | 0.03 |
| CALI | 1 | 0.03 |
| CERRITO | 1 | 0.03 |
| CHARALA | 1 | 0.03 |
| Chorreras de Don Juan | 1 | 0.03 |
| COLOMBIA | 1 | 0.03 |
| Cordoncillo I | 1 | 0.03 |
| CUCUTA | 1 | 0.03 |
| Delicias | 1 | 0.03 |
| Delicias Altas | 1 | 0.03 |
| El Cinal | 1 | 0.03 |
| El Jardin | 1 | 0.03 |
| Galan | 1 | 0.03 |
| JUAN JOSÉ MORA (MORÓN). | 1 | 0.03 |
| La Paz | 1 | 0.03 |
| Laureles I | 1 | 0.03 |
| Los Guayacanes | 1 | 0.03 |
| Manzanares | 1 | 0.03 |
| MATANZA | 1 | 0.03 |
| Milagro de Dios | 1 | 0.03 |
| Nogal I y II | 1 | 0.03 |
| OCAMONTE | 1 | 0.03 |
| Omaga I | 1 | 0.03 |
| Pablo VI | 1 | 0.03 |
| Paisajes del Norte | 1 | 0.03 |
| Pan de Azucar | 1 | 0.03 |
| PEREIRA | 1 | 0.03 |
| Pio XII | 1 | 0.03 |
| Portal de los Angeles | 1 | 0.03 |
| Quebrada La Iglesia | 1 | 0.03 |
| Quebrada la iglesia I | 1 | 0.03 |
| Rincon de la Paz | 1 | 0.03 |
| Robles | 1 | 0.03 |
| SAN ALBERTO | 1 | 0.03 |
| San Expedito | 1 | 0.03 |
| SAN GIL | 1 | 0.03 |
| SARAVENA | 1 | 0.03 |
| Sin Informacion | 1 | 0.03 |
| Vijagual | 1 | 0.03 |
| Villa Alegria I | 1 | 0.03 |
| Villa Luz | 1 | 0.03 |
Esta gráfica ilustra los métodos más utilizados en los intentos de suicidio. Esto es crucial para desarrollar intervenciones específicas que traten de minimizar el acceso a estos métodos.
metodos <- c("Ahorcamiento", "Arma cortopunzante", "Arma de fuego", "Inmolacion", "Lanzamiento al vacio", "Lanzamiento a un vehiculo", "Lanzamiento al agua", "Intoxicacion")
l_ah = sum(df$ahorcamien)
l_ac = sum(df$arma_corto)
l_af = sum(df$arma_fuego)
l_in = sum(df$inmolacion)
l_va = sum(df$lanz_vacio)
l_ve = sum(df$lanz_vehic)
l_ag = sum(df$lanz_agua)
l_in2 = sum(df$intoxicaci)
frecuencias_metodos <- 8
resultados_metodos <- c(l_ah, l_ac, l_af, l_in, l_va, l_ve, l_ag, l_in2)
par(mar = c(12, 4, 4, 2))
bp <- barplot(resultados_metodos, names.arg = metodos, col = rainbow(frecuencias_metodos), main = "Mecanismos de intento suicida", ylab = "Numero de Intentos", las = 2, ylim = c(0, 3000))
text(bp, resultados_metodos + 150, labels = resultados_metodos, col = "black", cex = 0.8)
par(mar = c(8, 4, 4, 2))
pie(resultados_metodos, col = rainbow(frecuencias_metodos), main = "Mecanismos de intento suicida", labels = "")
legend(x = -2.5, y = 1, legend = metodos, fill = rainbow(frecuencias_metodos), title = "Mecanismos", bty = "n", cex = 0.8)
Para los casos en los que el método empleado es la intoxicación, esta gráfica detalla las sustancias más comúnmente utilizadas. Lo que ayudaría a identificar patrones de uso y posibles áreas de regulación.
Cabe destacar que existen registros con “99”, lo cual no se encuentra documentado, entonces se etiquetarán como inválido, como se evidencia en la siguiente tabla.
sustancias <- c("Medicamentos", "Plaguicidas", "Metanol", "Solventes", "Otras sustancias quimicas", "Gases", "Sustancias psicoactivas", "Invalido")
frecuencias <- table(na.omit(df$tipo_susta))
par(mar = c(12, 4, 4, 2))
bp <- barplot(frecuencias, names.arg = sustancias, col = rainbow(length(frecuencias)), main = "Tipos de sustancias utilizadas", ylab = "Numero de Intentos", las = 2, ylim = c(0, 2100))
text(bp, frecuencias + 150, labels = frecuencias, col = "black", cex = 0.8)
par(mar = c(8, 4, 4, 2))
pie(frecuencias, col = rainbow(length(frecuencias)), main = "Tipos de sustancias utilizadas", labels = "")
legend(x = -2.5, y = 1, legend = sustancias, fill = rainbow(length(frecuencias)), title = "Sustancias", bty = "n", cex = 0.8)
Los factores desencadenantes hacen referencia a los factores que rodean la vida de las personas para motivarlas a tomar esta decisión.
En esta gráfica se analizan los principales factores desencadenantes asociados a los intentos de suicidio. Es esencial identificar cuáles de estos factores tienen mayor incidencia para abordarlas y brindar soluciones efectivas en lo social y psicológico.
l_prob_parej = sum(df$prob_parej)
l_enfermedad_cronica = sum(df$enfermedad_cronica)
l_prob_econo = sum(df$prob_econo)
l_muerte_fam = sum(df$muerte_fam)
l_esco_educ = sum(df$esco_educ)
l_prob_legal = sum(df$prob_legal)
l_suici_fm_a = sum(df$suici_fm_a)
l_maltr_fps = sum(df$maltr_fps)
l_prob_labor = sum(df$prob_labor)
l_prob_famil = sum(df$prob_famil)
frecuencias_factores <- 10
resultados <- c(l_prob_parej, l_enfermedad_cronica, l_prob_econo, l_muerte_fam, l_esco_educ, l_prob_legal, l_suici_fm_a, l_maltr_fps, l_prob_labor, l_prob_famil)
nombres_factores <- c("Conflictos con la pareja", "Enfermedad cronica", "Problemas economicos", "Muerte de un familiar", "Escolar/educativa", "Problemas juridicos", "Suicidio de un familiar o amigo", "Maltrato fisico/Psicologico/Sexual", "Problemas laborales", "Problemas familiares")
par(mar = c(12, 4, 4, 2))
bp = barplot(resultados, names.arg = nombres_factores, col = rainbow(frecuencias_factores), main = "Factores Desencadenantes de Intentos de Suicidio", ylab = "Numero de Intentos", las = 2, ylim = c(0, 2000), cex.names = 0.8)
text(bp, resultados + 100, labels = resultados, col = "black", cex = 0.8)
par(mar = c(8, 4, 4, 2))
pie(resultados, col = rainbow(frecuencias_factores), main = "Factores desencadenantes", labels = "")
legend(x = -2.8, y = 1, legend = nombres_factores, fill = rainbow(frecuencias_factores), title = "Factores", bty = "n", cex = 0.8)
Los factores de riesgo hacen referencia a condiciones previas del individuo que pudieron influir en tomar esa decisión.
Esta gráfica presenta los factores de riesgo más comunes en los intentos de suicidio. Lo que ayudaría a identificar las condiciones previas con más incidencia para aplicar estrategias preventivas pertinentes antes de que los casos ocurran.
l_prob_consu = sum(df$prob_consu)
l_hist_famil = sum(df$hist_famil)
l_idea_suici = sum(df$idea_suici)
l_plan_suici = sum(df$plan_suici)
l_antec_tran = sum(df$antec_tran)
l_tran_depre = sum(df$tran_depre)
l_trast_personalidad = sum(df$trast_personalidad)
l_trast_bipolaridad = sum(df$trast_bipolaridad)
l_esquizofre = sum(df$esquizofre)
l_antec_v_a = sum(df$antec_v_a)
l_abuso_alco = sum(df$abuso_alco)
frecuencias_riesgo <- 11
resultados_riesgo <- c(l_prob_consu, l_hist_famil, l_idea_suici, l_plan_suici, l_antec_tran, l_tran_depre, l_trast_personalidad, l_trast_bipolaridad, l_esquizofre, l_antec_v_a, l_abuso_alco)
nombres_riesgo <- c("Consumo de SPA", "Antecedentes familiares", "Ideación suicida persistente", "Plan organizado de suicidio", "Antecedentes de trastorno psiquiátrico", "Trastorno depresivo", "Trastornos de personalidad", "Trastorno bipolar", "Esquizofrenia", "Antecedentes de violencia o abuso", "Abuso de alcohol")
par(mar = c(16, 4, 4, 2))
bp_riesgo <- barplot(resultados_riesgo, names.arg = nombres_riesgo, col = rainbow(frecuencias_riesgo), main = "Factores de Riesgo de Intentos de Suicidio", ylab = "Número de Casos", las = 2, ylim = c(0, max(resultados_riesgo) + 500))
text(bp_riesgo, resultados_riesgo + 100, labels = resultados_riesgo, col = "black", cex = 0.8)
par(mar = c(8, 4, 4, 2))
pie(resultados, col = rainbow(frecuencias_riesgo), main = "Factores de riesgo", labels = "")
legend(x = -3, y = 1, legend = nombres_riesgo, fill = rainbow(frecuencias_riesgo), title = "Factores", bty = "n", cex = 0.8)
Los datos sobre los casos atendidos por las IPS dan evidencia como los casos más frecuentes de intentos de suicidios se concentran en jóvenes de entre 13 y 25 años, así como más en mujeres que en hombres.
El rango de edad de mayor incidencia se encuentra en las etapas de la adolescencia y la juventud. Etapas en las que se presentan los cambios hormonales y psicológicos más drásticos, lo que influye de gran manera en una mayor inestabilidad emocional. Esto genera en el que a estas edades se tienda a tomar decisiones más impulsivas y a que la opinión social tenga una influencia peligrosamente mayor sobre las emociones. Esto puede derivar en un mayor estrés, problemas de salud mental y conflictos internos que, si no se tratan adecuadamente, pueden terminar en una tragedia.
El que haya una mayor incidencia en mujeres que en hombres puede deberse a factores como que las mujeres son más propensas a expresar emociones, y que también suelen tener mayor prevalencia de trastornos como la ansiedad y la depresión.
Sin embargo, encontramos que estos datos difieren frente a la tasa de suicidios a nivel nacional, donde hay una cantidad mucho mayor de casos en hombres que en mujeres.
Aunque puede que la diferencia radique en la diferencia demográfica, se puede ver como el Gráfico 8 demuestra una tendencia similar a la obtenida en nuestro estudio, por lo que es probable que los Casos de suicidios apliquen de manera similar a nuestro caso.
La diferencia información proporcionada en el dataset de intentos de suicidio y los casos de suicidio, podría deberse a que las mujeres tienden a recurrir a servicios de ayuda anti-suicidios más que los hombres, lo que puede ser de ayuda para que mueran menos personas de este sector; sin embargo, al los hombres recurrir menos a estas ayudas, sus tasas de suicidio son abrumadoramente mayores.
Además, la tendencia de los datos de intentos de suicidio se reflejan en los casos de suicidio en las mujeres, algo que no ocurre de igual manera con los hombres, siendo estas tasas bajan a los 50 años, pero seguidamente vuelven a subir casi a su máximo, siendo este rango (18 - 24 & 70 - 80+).
A partir de la información de los municipios, se puede observar la incidencia de casos reportados en el Área Metropolitana de Bucaramanga y alrededores. Algo que puede deberse a tener una mayor cantidad de habitantes, y en el caso de municipios circundantes, debido a su cercanía a la capital, los casos en ellos suelen ser más comúnmente reportados.
En cuanto a los barrios de Bucaramanga, pese a que hay varios casos en los que el barrio no fue registrado, se puede indicar una incidencia en barrios como: Campo Hermoso, Provenza, Centro, Real de Minas y San Francisco. Estos datos nos pueden indicar que es necesario que las políticas que vayan encaminadas a tratar de reducir estos casos, le den cierta prioridad a estos barrios para tratar de disminuir sus grandes tasas de intentos de suicidio.
A partir de las gráficas generadas se puede observar que el mecanismo de suicidio que es más ampliamente utilizado es el de intoxicación, seguido por el uso de armas corto punzantes, quien a su vez está seguido de lanzamiento al vacío y ahorcamiento.
Dentro de los casos de intoxicación se encuentra que los medicamentos son las sustancias más ampliamente utilizadas, seguido de los plaguicidas.
Estos resultados pueden deberse a que la intoxicación puede ser vista como una alternativa más efectiva, menos dolorosa y más discreta que otros métodos. Así como es fácilmente accesible, especialmente en el caso de medicamentos y plaguicidas, lo que ayuda a que sea un método muy recurrido.
El uso de armas corto punzantes y el salto al vacío son también alternativas muy usadas. Lo que puede deberse a la facilidad para obtener armas corto punzantes o acceder a un piso lo suficientemente alto de un edificio.
Es posible observar que los factores desencadenantes con mayor incidencia son: problemas con la pareja, problemas familiares, problemas económicos, problemas escolares y maltrato. Esto se debe a que son factores que ejercen una mayor influencia sobre las emociones de las personas.
El caso de los problemas de pareja y familiares se ven potenciados por el hecho de que tanto la pareja como la familia suelen ser un entorno de fuerte apoyo emocional. Esta dependencia emocional genera que las personas puedan experimentar crisis severas ante conflictos con la pareja o la familia.
Los problemas económicos generan una presión enorme en las personas, ya que afectan la capacidad de cubrir necesidades básicas.
La presión académica suele ser un factor que puede generar estrés en niños, adolescentes y jóvenes, en especial si viene acompañado de grandes expectativas y miedo al fracaso.
El maltrato puede generar diversos traumas que pueden generar en las personas que lo padecieron trastornos de ansiedad, baja autoestima y depresión.
Es posible observar que los factores de riesgo con mayor incidencia en los casos de intentos de suicidio son: trastornos psiquiátricos, trastorno depresivo, ideación suicida persistente y consumo de sustancias psicoactivas.
Los trastornos psiquiátricos y de depresión son productos de la dificultad de las personas para manejar sus emociones, y deriva en un aislamiento social que dificulta el que puedan acceder a ayuda.
La ideación suicida persistente es un factor que suele ser desapercibido en etapas tempranas, pero puede volverse abrumador si no se interviene a tiempo y llevar a disminuir la percepción del riesgo que implica el acto suicida.
El consumo de sustancias psicoactivas suele deberse o relacionarse con otros factores de riesgo y factores desencadenantes. Además de que estas sustancias alteran enormemente la percepción y la capacidad de juicio de quienes las consumen, quienes al ser incapaces de evaluar las consecuencias de sus acciones, pueden ser más impulsivos ante pensamientos suicidas.
El análisis de las tendencias mostradas por las gráficas permiten comprender cuáles son los factores de mayor incidencia, los cuales tienen prioridad de ser abordados. Las estrategias efectivas para reducir esta problemática deben considerar una intervención integral para abordar los factores demográficos, desencadenantes y de riesgo, así como también los métodos de autolesión utilizados. A continuación se presentan los factores a tener en cuenta para abordar la problemática:
Promoción de la salud mental: Es necesario realizar campañas que puedan ayudar a concientizar sobre los problemas de salud mental, lo que ayudará a las personas a buscar la ayuda necesaria sin temor a ser juzgadas.
Se pueden implementar programas que estén enfocados en adolescentes y jóvenes que puedan ayudarles a regular sus emociones y autoestima y manejar de mejor manera factores como la presión social y el estrés.
Fortalecimiento de redes de apoyo: La realización de programas que fomenten la orientación y comunicación en las relaciones familiares y de pareja es eficaz para prevenir conflictos que pueden resultar en impactos emocionales muy grandes que pueden terminar en tragedias como un intento de suicidio.
También serían de utilidad programas que traten de ayudar a aliviar las presiones económicas en personas en las poblaciones más vulnerables, abordando cuestiones como la deuda y el desempleo. Lo que ayudaría a reducir el estrés y por ende el impacto emocional que el factor económico puede generar.
Detección temprana y tratamiento oportuno: Los resultados dan a entender la importancia de una detección temprana de factores desencadenantes y de riesgo, como trastornos psiquiátricos y depresivos, estrés por presión académica, maltrato en entornos familiares, escolares o de pareja, entre otros.
Es importante capacitar a profesores en las escuelas y a trabajadores del sistema de salud para que sean capaces de detectar estos factores de riesgo, para que las personas, y en especial los adolescentes, puedan recibir una atención temprana para prevenir posibles casos futuros.
Regulación y control de medios: Dado al elevado uso de métodos como la intoxicación y el salto al vacío. Sería de gran ayuda regular la venta de medicamentos y plaguicidas para prevenir su uso como medio de autolesión. Así como también el promover medidas de seguridad en edificios altos, restringiendo el acceso a zonas peligrosas.
Abordaje del consumo de sustancias psicoactivas: Es necesario desarrollar iniciativas, especialmente enfocadas en adolescentes y jóvenes, que ayuden a desalentar el uso de sustancias psicoactivas, enfatizando en sus consecuencias para la salud mental.
También es necesario ofrecer programas que ayuden a tratar el consumo de estas sustancias.