Resumen

Actualmente, los delitos y la violencia son problemas que radican demasiado en la sociedad. Se sabe que, dichos actos han incrementado con el paso del tiempo, algunos factores que intervienen en el incremento de esto es el desempleo y la actual situación de inseguridad. La violencia delictiva no es ninguna novedad en la historia de la sociedad humana, pero en esta década parecer diferenciada de otras anteriores.

Es de suma importancia que la sociedad tenga conocimiento acerca de cuáles son los delitos o violencia que ocurren en el mundo. En esta ocasión se enfoca en los países de América Latina. Se pretende presentar a la sociedad cuales son los indicadores o delitos que se presentan más en los distintos países de Latinoamérica, para que en futuras ocasiones puedan establecer estrategias que no pongan en riesgo su integridad y se pueda capturar, castigar y establecer los lineamientos a seguir de los individuos que son culpables de realizar este incumplimiento jurídico.

Se puede notar que el delito que más ocurrió en los países de Latinoamérica es el Robo, presentándose con más frecuencia en el país de Argentina, seguido de México, Chile y Colombia.

Se cuenta que los secuestros es el delito con casos bajos en todos los países, a excepción de México, que es el único país que presento en el 2015 un valor de casos de poco más de 1000. Realmente es una cifra alarmante, debido a que en los demás países son casos contados los que se dan de este tipo de delito.

Introducción

Para comenzar con una breve idea de lo que pasa en el mundo entero, es importante definir los dos conceptos primordiales de este presente trabajo, Violencia y delito. La violencia se define como cualquier conducta intencional que causa o puede causar un daño (Esplugues, 2007, p. 9). El daño que puede provocar la violencia va desde el físico hasta el emocional.

Por otro lado, el delito, tal como lo define Machicado (2010) “es todo acto humano voluntario que se adecua al presupuesto jurídico de una ley penal”. Es decir, es una conducta o acción inadecuada, la cual va en contra del orden jurídico establecido por la sociedad, por lo tanto, es castigada mediante una sanción, esto de acuerdo con el grado en que se realizó dicho acto.

Actualmente, los delitos y la violencia son problemas que radican demasiado en la sociedad. Se sabe que, dichos actos han incrementado con el paso del tiempo, algunos factores que intervienen en el incremento de esto es el desempleo y la actual situación de inseguridad. La violencia delictiva no es ninguna novedad en la historia de la sociedad humana, pero en esta década parecer diferenciada de otras anteriores.

Es importante mencionar que existen distintos tipos de violencia y distintas victimas que participan en ella. Para el actual trabajo lo que se enfoca es mayormente en la violencia física y los delitos que comenten las pandillas o individuos con fines económicos y sociales, dentro de un contexto urbano.

La violencia y los delitos que se están llevando a cabo durante este siglo, se considera de carácter social, pero, Pegoraro (2000) menciona que también se puede nombrar de carácter “económico-social y que se revela en indicadores estadísticos que muestran los efectos de la exclusión, la marginación, el desempleo, el desamparo social, o sea la inseguridad que se ha producido como resultado de la aplicación del modelo económico neoliberal” (p.115).

Planteamiento del problema

Es de suma importancia que la sociedad tenga conocimiento acerca de cuáles son los delitos o violencia que ocurren en el mundo. En esta ocasión se enfoca en los países de América Latina.

Como se menciona anteriormente, cada día incrementan aún mas los casos de violencia delictiva en cualquier parte de este planeta. Es alarmante ver como los delitos de homicidio, robo y demás son más visto a la luz del día y en muchas ocasiones no se obtenga el castigo pertinente para los individuos que cometen la falta legal.

Los datos de la última década de 1990 que presenta Buvinic, Morrison y Orlando (2005) Es que se observaron reducciones de la tasa de los homicidios en algunos países de Centroamérica, pero también, existieron incrementos en los países de Ecuador, Brasil, Venezuela y Paraguay.

Por esto mismo, se pretende presentar a la sociedad cuales son los indicadores o delitos que se presentan más en los distintos países de Latinoamérica, para que en futuras ocasiones puedan establecer estrategias que no pongan en riesgo su integridad y se pueda capturar, castigar y establecer los lineamientos a seguir de los individuos que son culpables de realizar este incumplimiento jurídico.

Objetivos

General

• Clasificar los delitos para visualizar los países de mayor riesgo a través de los casos registrados por indicador y país.

específicos

• Identificar el indicador de delito que más ocurre en Latinoamérica durante el año 2015.

• Identificar los países de Latinoamérica donde suceden más actos delictivos en el año 2015.

Metodología

Dicha Base de datos es obtenida del portal de Banco Interamericano de Desarrollo (BID) (UNODOC, s. f.) https://www.iadb.org/es/dataseg/base-de-datos. Se selecciono 5 delitos, los cuales son Homicidios, Lesiones personales, Robo, Secuestros y Violencia Sexual. Así mismo, se contemplo 13 países de Latinoamérica participantes en esta base de datos y se excluyeron los Países del caribe. La base está conformada por 1,566,522 observaciones. Finalmente, el análisis de esta base se realizó por medio del software estadístico R.

Resultados

Para comenzar con el analisis de correspondencia simple se necesitan instalar y llamar ciertas paqueterias.

library (tidyverse)
## ── Attaching packages ─────────────────────────────────────── tidyverse 1.3.1 ──
## ✔ ggplot2 3.3.6     ✔ purrr   0.3.4
## ✔ tibble  3.1.7     ✔ dplyr   1.0.9
## ✔ tidyr   1.2.0     ✔ stringr 1.4.0
## ✔ readr   2.1.2     ✔ forcats 0.5.1
## ── Conflicts ────────────────────────────────────────── tidyverse_conflicts() ──
## ✖ dplyr::filter() masks stats::filter()
## ✖ dplyr::lag()    masks stats::lag()
library(FactoMineR)
library(ade4)
## 
## Attaching package: 'ade4'
## The following object is masked from 'package:FactoMineR':
## 
##     reconst
library(FactoClass)
## Loading required package: ggrepel
## Loading required package: xtable
## Loading required package: scatterplot3d
library(factoextra)
## Welcome! Want to learn more? See two factoextra-related books at https://goo.gl/ve3WBa
library(ca)
library(readxl)
library(gplots)
## 
## Attaching package: 'gplots'
## The following object is masked from 'package:stats':
## 
##     lowess
library (ggplot2)

Una vez llamadas las paqueterias, es necesario llamar la base de datos y realizar un resumen de ella para saber que tipo de datos se manejan

BaseDelitos=read.csv("C:/Users/leyva/OneDrive/Escritorio/BaseDelitos.csv")
head (BaseDelitos)
##   X      Pais   Delito.Violencia
## 1 1 Argentina Homicidios totales
## 2 2 Argentina Homicidios totales
## 3 3 Argentina Homicidios totales
## 4 4 Argentina Homicidios totales
## 5 5 Argentina Homicidios totales
## 6 6 Argentina Homicidios totales
## Generamos un resumen de los datos
summary(BaseDelitos)
##        X               Pais           Delito.Violencia  
##  Min.   :      1   Length:1566522     Length:1566522    
##  1st Qu.: 391631   Class :character   Class :character  
##  Median : 783262   Mode  :character   Mode  :character  
##  Mean   : 783262                                        
##  3rd Qu.:1174892                                        
##  Max.   :1566522
##Para esta base de datos, fue necesario realizar cambios en los nombres de los paises
base=BaseDelitos%>% mutate(Pais = str_replace(Pais, 'Mexico', 'M\xe9xico'))
base1=BaseDelitos%>% mutate(Pais = str_replace(Pais, 'Peru', 'Per\xfa'))
base2=BaseDelitos%>% mutate(Pais = str_replace(Pais, 'Panama', 'Panam\xe1'))

Tabla de contingencia

Posteriormente, se realiza una tabla de contingencia para observar la repartición de delitos por País

#Construimos las tablas de frecuencia
Frec=table( base2$Delito.Violencia, base2$Pais)
Frec
##                         
##                          Argentina Brasil  Chile Colombia Costa Rica
##   Homicidios totales          2837  55574      0    12782        566
##   Lesiones personales       181321      0  15966    86897          0
##   Robo                      443033      0 106476   101349          0
##   Secuestros                     0      0    271      213          0
##   Violencia sexual total     16114      0  11769    21737          0
##                         
##                          El Salvador Honduras M�xico Panam� Paraguay   Per�
##   Homicidios totales            6656     5148  20762    447      617   2247
##   Lesiones personales           5887     1327  45452   2843      685  24778
##   Robo                          5161    10275 164063   8168    21060  82950
##   Secuestros                      19       42   1160     14        2    205
##   Violencia sexual total        4440     1484  40360   3152     4964   5702
##                         
##                          Uruguay Venezuela
##   Homicidios totales         289     17778
##   Lesiones personales        466         0
##   Robo                     19423         0
##   Secuestros                   9         0
##   Violencia sexual total    1582         0

Se observar que el delito que se presenta con menos frecuencia en los países es secuestros, presentándose valores bajos de 1160, 271, 213 y por debajo de estos valores, así se puede apreciar en la tabla anterior.

Gráfico de tablas de contingencia

Para tener una mejor visualizaciòn de la tabla de contingecia, se realiza un grafico de tablas de contigencias

balloonplot(Frec, main ="Delitos en Latinoamerica", xlab ="Delitos", ylab="Pais",
            dotcolor="Purple", label = FALSE, show.margins = FALSE)

Asi mismo, es notable que el delito que más ocurrió en los países de Latinoamérica es el Robo, presentándose con más frecuencia en el país de Argentina, seguido de México, Chile y Colombia. Como segundo delito, se aprecia que son las lesiones personales, resaltando en este los países de argentina, Colombia y México.

Por otro lado, es importante mencionar que el país que presenta mayor cantidad de casos delictivos en cualquier tipo de delito es Argentina, a su vez seguido por México, con una diferencia de 371,508 casos de delitos.

Prueba de Chi-Cuadrada

Para la prueba de Chi-cuadrada y probar si existe una dependencia significativa entre las filas y las columnas, se establecieron las hipótesis pertinentes:

             H0:La asociación de las variables NO es significativa 

             H1:La asociación de las variables SI es significativa
             
# Evaluamos que variables son significativas
chisq.test(Frec)
## Warning in chisq.test(Frec): Chi-squared approximation may be incorrect
## 
##  Pearson's Chi-squared test
## 
## data:  Frec
## X-squared = 1086636, df = 48, p-value < 2.2e-16

Obteniendo un valor de Chi-cuadrado de 1086636 (un valor alto) y un valor de p= 0.00000000000000022 el cual es menor a 0.05, esto significa que se rechaza la hipótesis nula. Por lo tanto, es posible mencionar que con un nivel de significancia de 0.05 se determina que la asociación de las variables si es significativa y por lo tanto los delitos si estan asociados al pais.

Analisis de correspondencia simple

# Construimos el analisis de correspondencia simple
ACS<-CA(Frec, graph =FALSE)
ACS
## **Results of the Correspondence Analysis (CA)**
## The row variable has  5  categories; the column variable has 13 categories
## The chi square of independence between the two variables is equal to 1086636 (p-value =  0 ).
## *The results are available in the following objects:
## 
##    name              description                   
## 1  "$eig"            "eigenvalues"                 
## 2  "$col"            "results for the columns"     
## 3  "$col$coord"      "coord. for the columns"      
## 4  "$col$cos2"       "cos2 for the columns"        
## 5  "$col$contrib"    "contributions of the columns"
## 6  "$row"            "results for the rows"        
## 7  "$row$coord"      "coord. for the rows"         
## 8  "$row$cos2"       "cos2 for the rows"           
## 9  "$row$contrib"    "contributions of the rows"   
## 10 "$call"           "summary called parameters"   
## 11 "$call$marge.col" "weights of the columns"      
## 12 "$call$marge.row" "weights of the rows"
eig.val <- get_eigenvalue(ACS)
eig.val
##         eigenvalue variance.percent cumulative.variance.percent
## Dim.1 0.6041542262       87.0963698                    87.09637
## Dim.2 0.0502194360        7.2397583                    94.33613
## Dim.3 0.0385826202        5.5621661                    99.89829
## Dim.4 0.0007054947        0.1017059                   100.00000

Observando el comportamiento de las dimensiones con el análisis anterior, tambien se puede mostrar a continuación como se ven graficamente. Se nota que desde la dimensión 1 su porcentaje de variación es del 87.1%, por esto mismo, se concluye que este valor es significativamente grande. Mientras que, las demás dimensiones en conjunto solo acumulan un 12.9% de porcentaje de variación.

fviz_eig(ACS, addlabels = TRUE, ylim = c(0,90))

Para este último gráfico que se muestra en la parte de abajo, se aprecia que existen más casos de robo en los países de Perú, Chile, México, Argentina y Colombia. Aunque los dos últimos, también tienen casos altos en las lesiones personales. Para el caso de los Homicidios totales, se observa que los únicos tres países que cuentan con altos valores en este delito son Brasil, Venezuela y Costa Rica, para este último siendo el único delito que se presenta. Al apreciar alejados a Honduras y El Salvador, también se aclara que el Salvador comparte valores altos en el delito de Homicidios totales, mientras que Honduras comparte los valores altos con Robo.

fviz_ca_biplot(ACS, repel = TRUE)

Bibliografía

• Buvinic, M., Morrison, A., & Orlando, M. B. (2005). Violencia, crimen y desarrollo social en América Latina y el Caribe. Papeles de población, 11(43), 167-214.

• Esplugues, J. S. (2007). ¿Qué es violencia? Una aproximación al concepto ya la clasificación de la violencia. Daimon Revista Internacional de Filosofía, (42), 9-21.

• Machicado, J. (2010). Concepto de delito. Apuntes jurídicos, 6.

• Pegoraro, J. (2000). Violencia delictiva, inseguridad urbana. Nueva sociedad, 167, 114-131.

• UNODC. (s. f.) Oficina de las Naciones Unidas contra la Droga y el Delito y Sistema Regional de Indicadores Estandarizados de Convivencia y Seguridad Ciudadana (SES). Datos sociodemográficos provienen del Banco Mundial. https://www.iadb.org/es/dataseg/base-de-datos.