Introducción

La movilidad de una ciudad es un problema….

Datos de Waze

Los datos de waze son obtenidos desde la plataforma de waze for cities……

library(readr)
bd_waze <- read_csv("~/Downloads/bd_waze.csv")
filas=which(bd_waze$Municipality=="Fusagasuga")
bd_waze2=bd_waze[filas,]

head(bd_waze2)

La base de datos contiene la información de los casos reportados en waze.

Contiene 96000 registros y 14 variables:

Eventos por Tipo

La base de datos contiene un campo que corresponde al tipo de eventos reportados por

ejemplo si es un accidente o un trancon.

table(bd_waze2$Type)
## 
##    ACCIDENT      HAZARD         JAM ROAD_CLOSED 
##         314        1469        2603          54
require(table1)
## Loading required package: table1
## 
## Attaching package: 'table1'
## The following objects are masked from 'package:base':
## 
##     units, units<-
table1(~Type,data=bd_waze2)
Overall
(N=4440)
Type
ACCIDENT 314 (7.1%)
HAZARD 1469 (33.1%)
JAM 2603 (58.6%)
ROAD_CLOSED 54 (1.2%)

Se observa que la mayoria de los eventos reportados en la ciudad

corresponde a trancones con un 58,6%, seguido de las alertas que corresponden al 33.1%.

las de menos reporte son la vias cerradas comun 1,2%.

Lugares con mayor reporte de eventos

Dado que la base contiene información sobre la localización del reporte (coordenadas geograficas). Entoces se elaboran mapas con los sitios de mayor concentración de los eventos (criticos)….

require(leaflet)



leaflet() %>% addTiles() %>% 
  addCircleMarkers(lng =bd_waze2$Location_X ,lat = bd_waze2$Location_Y,clusterOptions=markerClusterOptions())

En el mapa se observan las zonas con mayor aglomeración de eventos reportados…..

Horas de mayor reporte

La movilidad de una ciudad es problema que varia en tiempo y espacio.

Por lo tanto identificar zonas y horas pico

hora=substr(bd_waze2$StartTime,start = 1, stop = 2)
barplot(table(hora))

De acuerdo con los resultados observamos que las horas de mayor congestíon y reporte de eventos son desde las 00:00 hasta las 2:00 de la mañna y tenemos otra hora pico que comienza a las 15:00 de la tarde hasta las 23:00 de la noche por lo tanto las gestion en estas horas es clave…..

Conclución y Recomendaciones

Estrategias y recomendaciones.