- One of the most downloaded dataset is relative to the bike sharing system.
- It can be downloaded from http://datosabiertos.malaga.eu and it's updated every minute.
- And get some interesting info like computing the number of free bikes in the city in real time:
malagabici <- read.csv(url("http://datosabiertos.malaga.eu/recursos/transporte/EMT/estacionamientos/Estacionamientos.csv"))
sum(malagabici$NUM_OCUPADOS)
## [1] 259
colnames(malagabici)
## [1] "ID" "NOMBRE" "NOMBRE_CIUDAD" "DIRECCION"
## [5] "ID_ESTADO" "NOMBRE_ESTADO" "NUM_DERBIS" "NUM_LIBRES"
## [9] "NUM_OCUPADOS" "LAT" "LON" "ID_EXTERNO"
- But we can do better getting the number of free bikes by docking station and locating the in a map ...