INTRODUCCIÓN

Este análisis de casos de balaceras en Ciudad Obregón, Sonora es para obtener información sobre qué tipos de incidentes (balaceras, asesinatos y levantones) y que cantidad de cada uno de ellos se presentaron en cada fecha y/o dia de la semana.

Estos análisis nos ayudarán a crear hipótesis sobre los casos que han sucedido a lo largo del periodo del mes de Enero del 2020 en Cajeme.

ggplot(data = balazeras , aes(x = fecha)) + 
  geom_bar(fill="blue4") + 
  xlab("fecha")+
  ylab("veces ocurridas")

En esta grafica se puede observar que el crimen que mas se repite son las balaceras, puede ser por que una balacera es mas facil de detectar gracias a el ruido de las armas y por eso se denuncian más.

barra_02<-ggplot(data = balazeras , aes(x = ï..name)) + 
  geom_bar(fill="blue")+
  xlab("tipo de incidentes")+
  ylab("numero de incidentes")

ggplotly(barra_02)

En esta grafica se puede ver que la mayoría de los incidentes ocurren entre semana, lo que puede ser causado por el estres que pasa la gente cuando está trabajando, o tambien podría ser que es más facil predecir donde estará una persona entre semana que en los fines de semana, por que generalmente tienen horarios de trabajo o de escuela.

aux <- read.csv("excel_BALACERAS_ENERO.csv", stringsAsFactor = F)
aux$fecha <- strptime(aux$fecha, format = "%d/%m/%y")
aux$Weekday <- weekdays(aux$fecha)

WeekdayCounts <- as.data.frame(table(aux$Weekday))

ggplot_0<-ggplot(data = WeekdayCounts , aes(x = Var1,y=Freq)) + 
  geom_point(size=2,colour="black")+geom_line((aes(group = 3)),size=2,colour="orange")
ggplotly(ggplot_0)
table(aux$Weekday)
## 
##   domingo    jueves     lunes    martes miércoles    sábado   viernes 
##         5         8         7         3         8         4         5

Los puntos estan relacionados con la ubicacion(latitude,longitude) donde se realizo el crimen en Cd. Obregon Sonora.

grafica_map<-ggplot(data = balazeras , aes(x = longitude, y=latitude)) + 
  geom_point(aes(colour=(ï..name)),size=4) 


ggplotly(grafica_map)

De esta grafica de pastel se puede deducir que una gran parte de las personas que presencian una balacera terminan heridas y no necesariamente es por que ellos eran el objetivo, si no por que estuvieron situados en un mal momento.

ggplot(donut, aes(x="", y="", fill=Estado)) +
  geom_bar(stat="identity", width=1) +
  coord_polar("y", start=0) +
  theme_void()

CONCLUSIÓN

los datos analisados y obtenidos de los crimenes en cajeme en este periodo de Enero de 2020 demuestran que la seguridad a ido en decaida y que la vida de muchos inocentes corre peligro ya que son demasiadas las balaceras que ocurren en vias publicas ya que los datos dicen que los lugares donde mas ocurren son en vias que son altamente transitadas.