Barrancas es un municipio ubicado en el sur de La Guajira, Colombia, reconocido por su riqueza natural, cultural e histórica. Su territorio es privilegiado, ya que alberga una de las minas de carbón a cielo abierto más grandes del mundo, El Cerrejón, que ha impulsado la economía local y nacional. Además, su paisaje combina zonas áridas típicas de la región con áreas verdes y fértiles, gracias a la presencia del río Ranchería, que es vital para la agricultura y la ganadería. La biodiversidad de la zona incluye flora y fauna adaptada al clima semiárido, lo que la convierte en un lugar de interés ecológico.
Culturalmente, Barrancas es un punto de encuentro entre las tradiciones indígenas Wayuu y la herencia mestiza. Los Wayuu, pueblo ancestral de la región, mantienen vivas sus costumbres, como el tejido de mochilas y chinchorros, y sus rituales tradicionales. El municipio también celebra festividades como el Festival del Carbón, que resalta la importancia de la minería en la región, y eventos folclóricos que incluyen música vallenata y danzas típicas. En cuanto a movilidad, Barrancas está conectado por vías terrestres con otros municipios de La Guajira y con el departamento del Cesar, lo que facilita el transporte de carga y pasajeros, aunque algunas zonas rurales pueden presentar dificultades de acceso durante la temporada de lluvias.
En el ámbito de figuras públicas, Barrancas ha sido cuna de personajes destacados en la política, la cultura y el deporte. Uno de los más reconocidos es Jorge Oñate, uno de los grandes exponentes del vallenato, quien aunque nació en La Paz (Cesar), tiene una fuerte conexión con la región guajira. Además, líderes comunitarios y representantes indígenas han jugado un papel importante en la defensa de los derechos de su pueblo y en la promoción del desarrollo sostenible en la zona. En resumen, Barrancas es un municipio que combina riqueza natural, tradiciones ancestrales y un dinamismo económico que lo convierte en un lugar único en Colombia.
En este estudio, nos enfocaremos en analizar la movilidad en el municipio de Barrancas, utilizando datos descargados de Waze. Estos datos nos permitirán examinar el comportamiento del tráfico, como trancones, accidentes, vias cerradas.
La base de datos contiene la información de los casos reportados dentro de la aplicación, que consta de de 96000 registros y 14 variables.
library(readr)
Waze_base <- read_csv("C:/Users/gabui/Downloads/Waze_base.csv")
head(Waze_base)
Para lograr adquirir de la base de datos los registros de el municipio de Barrancas, realizamos lo siguiente:
table(Waze_base$Municipality)
##
## Acacías Andalucia Arbeláez Astrea
## 975 192 29 3
## Baranoa Barrancas Bucarasica Cajicá
## 216 79 104 9548
## Calima el Darién Dibulla El Banco El Espinal
## 205 247 330 172
## El Rosal Fusagasuga Girardota Guadalupe
## 568 4440 239 7
## Guapotá Jamundí La Cumbre La Dorada
## 6 468 27 251
## La Mesa La Tebaida Lenguazaque Lorica
## 2036 310 29 702
## Los Cordobas Marinilla Miranda Mompox
## 1 1897 18 214
## Monteria Obando Pereira Puerto Gaitán
## 3429 112 35429 35
## Restrepo Roldanillo Sabanagrande Sabanalarga
## 19 1 311 210
## Sabaneta San Jose Del Fragua San Lorenzo Sibundoy
## 22929 2 1 34
## Soatá Sora Supía Tena
## 163 2 117 9949
## Tinjaca Turbaná Urumita Versalles
## 87 6 6 5
## Zarzal
## 100
filas=which(Waze_base$Municipality=="Barrancas")
Waze_base2=Waze_base[filas,]
Se realiza un análisis del tipo de registros que se han realizado en Waze en el municipo de Barrancas
table(Waze_base2$Type)
##
## ACCIDENT HAZARD JAM
## 5 53 21
require(table1)
table1(~Type,data=Waze_base2)
| Overall (N=79) |
|
|---|---|
| Type | |
| ACCIDENT | 5 (6.3%) |
| HAZARD | 53 (67.1%) |
| JAM | 21 (26.6%) |
Se observa que el 67,1% de los registros corresponde a una alerta, el 26,6% corresponden a trancones y solo un 6,3% corresponden a accidentes.
Exploramos en que zona horaria se han presentado mayor numeros de registros en el municipio
hora=substr(Waze_base2$StartTime, start = 1,stop = 2)
barplot(table(hora))
El periodo en donde se registran más incidentes en la plataforma de Waze comienza desde las 10:00 p.m. hasta las 12:00 a.m.
Se presenta el grafico con la información de los reportes
require(leaflet)
leaflet() %>% addTiles() %>%
addCircleMarkers(lng =Waze_base2$Location_X ,lat = Waze_base2$Location_Y,clusterOptions=markerClusterOptions())
En el mapa se observan las zonas con mayor aglomeración de eventos reportados.