INTRODUCCIÓN

Uno de los elementos esenciales para que las personas presenten una vida sana y logren desarrollarse de una manera óptima es la seguridad. La palabra seguridad, o falta de ésta, sin lugar a dudas la más relativa a los delitos y criminalidad siendo una de las formas de poder contrarrestar a este fenómeno social ofreciendo distintas metodologías para poder garantizar o bien ofrecer la mejor calidad de vida posible. Bien sabemos que la seguridad es la ausencia de peligro o riesgo. Actualmente en Ciudad Obregón las personas están siendo afectadas de manera irreversible, la violencia se presenta en grados que años atrás no se habían visto, teniendo más índices de muertes, secuestros, asaltos, etc. ya que no se cuenta con el apoyo de elementos judiciales para prevenir casos de atentado ante las personas. La despreocupación de las autoridades ante esta situación, los jóvenes del Colectivo Independiente Punto Tres tomaron la iniciativa de manifestarse y exigir que se haga justicia mediante representaciones artísticas tituladas “Donde hubo balas, habrá teatro”, para esto subieron una liga de Google Maps con los 52 hechos violentos que ocurrieron el pasado mes de Enero 2020, describiendo dónde, cuándo y qué ocurrió exactamente. Tal información logró hacer un impacto gigante en la sociedad, sin embargo, sigue sin hacerse nada al respecto. Es por esto, que durante la presente investigación tomaremos los datos proporcionados por Independiente Punto Tres con la intención de encontrar cuál es la causa raíz que detona este problema y poder ofrecer alternativas que disminuyan en número de afectados o métodos de protección para los oficiales.

Desarrollo

Ciudad Obregon una ciudad relativamente pequeña enfrenta una violencia diaria sin presedentes, la mayoria de los asesinatos en la ciudad son a causa de armas de fuego.

EstadisticaOb

Aqui podemos ver graficamente el tipo de asesinato:

ggplot(data = EstadisticaOb)+
  geom_point(mapping = aes(x= Tipo, y = Fecha, color= Tipo))

A continuacion podemos observar en esferas los asesinatos el tamaño representa la cantidad:

ggplot(data = EstadisticaOb)+
  geom_point(mapping = aes(x= Tipo, y = Fecha, color= Tipo, size = Muertos))

De igual manera podemos observar esta vez con codigo de colores los asesinatos:

ggplot(data = EstadisticaOb)+
  geom_point(mapping = aes(x= Tipo, y = Fecha, color= Muertos))

Para mostrar la distribucion mas claramente esta vez la informacion se encuentra en columnas:

ggplot(data = EstadisticaOb)+
  geom_col(mapping = aes(x = Fecha, y = Muertos))

Irapuato guanajuato cuenta con una poblacion de 463,103 personas muy cercana a obregon que tiene 433,050 personas. Irapuato fue la ciudad con mayor cantidad de homicidios dolosos durante enero del 2020, a continuacion podemos observar en promedio cuantos asesinatos al dia ocurrieron en irapuato y ciudad obregon.

x=c(3,1,2,2,1,3,2,2,3,1,1,1,2,4,1,1,1,1,1,5,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0)
y=c(2,1,1,1,1,1,1,1,1,1,1,5,1,7,1,1,1,2,2,3,2,2,2,2,2,2,8,2,2,2,2,2,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1)
boxplot(x,y,
        horizontal=TRUE,
        names=c("obregon","irapuato"),
        xlab="Asesinatos por dia",
        main="Asesinatos"
        )

Gracias al colectivo independiente .3 y su labor de recoleccion de acontecimientos a la mayoria de los homicidios se les puede dar una fecha:

ggplot(data=EstadisticaOb, aes(x= Tipo, y = Muertos)) +
  geom_col() + # las columnas
  stat_smooth() + # líneas y bandas de suavizado (smooth)
  facet_wrap(~ Fecha) # las Fechas van en gráficos distintos
## `geom_smooth()` using method = 'loess' and formula 'y ~ x'

A diferencia de Irapuato que los medios de comunicacion solo reportaron una pequeña cantidad de aconteciminetos:

ggplot(data=EstadisticaIr, aes(x= Tipo, y = Muertos)) +
  geom_col() + # las columnas
  stat_smooth() + # líneas y bandas de suavizado (smooth)
  facet_wrap(~ Fecha) # las Fechas van en gráficos distintos
## `geom_smooth()` using method = 'loess' and formula 'y ~ x'

Conclusión

A pesar de que Irapuato conto con 47 acontecimientos y 79 muertes, siendo la ciudad con mas muertes de México en lo que va del año. Ciudad obregon no cuenta con tantas muertes (30) pero la cantidad de acontecimientos (40) es muy cercana, se podria decir que se encuentra entre la ciudades de México con mayor cantidad de acontecimientos relacionados al crimen organizado y el uso de armas de fuego.

Fuentes -https://www.google.com/maps/d/u/0/viewer?mid=1DfUnKvS8BHiWJp6ENLelPKqQlqXbPu0M&ll=27.464838863347232%2C-109.98380260184166&z=13&fbclid=IwAR0wgfHL5ceo2pIOmQrxFQ9Uxb2dYyC9yGfC5F4jpyRd9ELHGwgJDTiDUgQ

-https://irapuatocomovamos.org/

-https://www.meganoticias.mx/torreon/noticia/la-violencia-golpea-a-irapuato-matan-a-7/121288

-https://www.noticiasvespertinas.com.mx/policiaca/matan-a-8-en-15-minutos-en-irapuato-4763190.html

-https://www.am.com.mx/guanajuato/Los-24-asesinatos-mas-impactantes-de-enero-2020-en-Guanajuato-t202001280001.html

-https://www.milenio.com/policia/guanajuato-homicidios-en-enero-del-2020