El transporte de pasajeros en la ciudad de Cali ha sido un reto frente a la sostenibilidad como en todas las ciudades de Colombia (Moller 2006). La falta de un transporte realmente masivo y eficiente sumado a la falta de actualización de las vías las cuáles se diseñaron y construyeron entre los años 70’s y 90’s ha llevado a la gente a adquirir cada vez más vehículo propio y a confiar menos en el transporete publico, este patrón hace insostenible a largo plazo la calidad del aire, la movilidad y el bienestar social de la ciudad (Moller 2006). En este trabajose analizará espacialmente la movilidad y el uso de de los diferentes medios de transporte en la ciudad de Cali, tomando en cuenta el número de frecuencias de los orígenes y los destinos de los pasajeros y cuáles son los vehículos más usados entre los ciudadanos de las diferetes comunas.
Se deben construir mapas donde se puedan observar el número de orígenes de cada comuna con el total de los datos de todos los tipos de transporte. También se debe construir mapas de todas las comunas donde se pueda observar el número de orígenes por cada tipo de transporte como: bicicletas, motos y automóviles. Este análisis del origen del transporte en la movilidad ciudadana se contrastará con el análisis de los destinos de los ciudadanos de Cali, discriminando por cada tipo de transporte analizado.
La principal fuente de datos de este trabajo son entrevistas que se hicieron a los ciudadanos de la ciudad de Cali en las diferentes comunas.
Los datos necesarios para responder se filtraron a partir de los datos originales con el siguiente script.
Tabla 1. Tabla de datos de origen, destino y tipo de vehículos de los ciudadanos de la ciudad de Cali.
library(readxl)
library(dplyr)
library(plotly)
library(reactable)
data<-readxl::read_xlsx("./Casos/EncuestaOrigenDestino.xlsx")
datacom<-data%>%
select("comuna origen", "comuna destino", "TIPO DE VEHÍCULO")%>%
filter(`comuna origen` != "Fuera de Cali" & `comuna destino` != "Fuera de Cali")
datacom$`comuna destino`= as.integer(datacom$`comuna destino`)
datacom$`comuna origen`= as.integer(datacom$`comuna origen`)
datacom_biblicletas<-datacom%>%
select("comuna origen", "comuna destino", "TIPO DE VEHÍCULO")%>%
filter(`comuna origen` != "Fuera de Cali" & `comuna destino` != "Fuera de Cali")%>%
filter(`TIPO DE VEHÍCULO` == 1)
datacom_motos<-datacom%>%
select("comuna origen", "comuna destino", "TIPO DE VEHÍCULO")%>%
filter(`comuna origen` != "Fuera de Cali" & `comuna destino` != "Fuera de Cali")%>%
filter(`TIPO DE VEHÍCULO` == 2)
datacom_automoviles<-datacom%>%
select("comuna origen", "comuna destino", "TIPO DE VEHÍCULO")%>%
filter(`comuna origen` != "Fuera de Cali" & `comuna destino` != "Fuera de Cali")%>%
filter(`TIPO DE VEHÍCULO` == 3)
reactable::reactable(datacom, defaultPageSize = 20)Figura 1. Comunas de la ciudad de Cali.
Se analizaron todos los medios de transporte de los ciudadanos de Cali tomando como origen las 22 comunas de la ciudad.
Las comunas con mayores orígenes de pasajeros de todos los tipos de transporte de Cali son las comunas 3 y la 20, seguidas de la comuna 18 y la comuna 4, 19 y 5. Casi todas las comunas que rodean los centros de mayores orígenes tiene valores que tienden a ser mas altos que los puntos más alejados.
Figura 2. Frecuencia de viajes originados en cada comuna de la ciudad de Cali.
require(sf)
require(leaflet)
require(leaflet.extras)
comuna <- sprintf(
"<strong></strong><strong>%s</strong><br/>%g orígenes",
origenTotal_geo$nombre, origenTotal_geo$origenTotal_freq
) %>% lapply(htmltools::HTML)
origenTotal_color <- colorNumeric(
palette = "YlOrRd",
domain = na.omit(origenTotal_geo$origenTotal_freq))
map <-leaflet::leaflet(height=700, width = 800)%>%
addProviderTiles(providers$CartoDB.DarkMatterNoLabels)%>%
setView(lng = -76.5225, lat = 3.42, zoom = 11.5)%>%
addPolygons(data = comunaswgs84,
fillColor = ~origenTotal_color(origenTotal_geo$origenTotal_freq),
fillOpacity = 1,
weight = 2,
opacity = 90,
color = "grey",
group = "Comuna",
stroke = 0.2,
label = comuna,
labelOptions = labelOptions(
style = list("font-weight" = "normal", padding = "3px 8px"),
textsize = "15px",
direction = "auto"))%>%
addFullscreenControl(position = "topleft", pseudoFullscreen = TRUE)%>%
addScaleBar(position = c("topright", "bottomright", "bottomleft", "topleft"),
options = scaleBarOptions(metric = TRUE,
imperial = FALSE,
updateWhenIdle = TRUE))%>%
addMapPane("ames_lines", zIndex = 430) %>%
addLegend("bottomleft",
pal = origenTotal_color,
values = origenTotal_geo$origenTotal_freq,
title = "Frecuencia de Origen Total",
opacity = 1)%>%
addMiniMap(tiles = "CartoDB.Voyager")
mapFigura 3. Distribución de las comunas de la ciudad de Cali, resaltando las comunas con mayores orígenes de todo tipo de medio de transporte.
Las comunas con mayores orígenes de pasajeros que utilizan la bicicleta como medio de transporte son las comunas 3, 20 y 18, con 124, 115 y 111 orígenes. Las comunas con menores orígenes son 265, para la comuna 13, 538 para la comuna 6 y la comuna 15 con 583 orígenes.
Figura 4. Frecuencia de viajes originados con la bicicleta como medio de transporte, en cada comuna de la ciudad de Cali.
require(sf)
require(leaflet)
require(leaflet.extras)
comuna <- sprintf(
"<strong></strong><strong>%s</strong><br/>%g orígenes",
origenTotal_geo$nombre, origenTotal_geo$origenBicicletas_freq
) %>% lapply(htmltools::HTML)
origenTotal_color <- colorNumeric(
palette = "YlOrRd",
domain = na.omit(origenTotal_geo$origenBicicletas_freq))
map <-leaflet::leaflet(height=700, width = 800)%>%
addProviderTiles(providers$CartoDB.DarkMatterNoLabels)%>%
setView(lng = -76.5225, lat = 3.42, zoom = 11.5)%>%
addPolygons(data = comunaswgs84,
fillColor = ~origenTotal_color(origenTotal_geo$origenBicicletas_freq),
fillOpacity = 1,
weight = 2,
opacity = 90,
color = "grey",
group = "Comuna",
stroke = 0.2,
label = comuna,
labelOptions = labelOptions(
style = list("font-weight" = "normal", padding = "3px 8px"),
textsize = "15px",
direction = "auto"))%>%
addFullscreenControl(position = "topleft", pseudoFullscreen = TRUE)%>%
addScaleBar(position = c("topright", "bottomright", "bottomleft", "topleft"),
options = scaleBarOptions(metric = TRUE,
imperial = FALSE,
updateWhenIdle = TRUE))%>%
addMapPane("ames_lines", zIndex = 430) %>%
addLegend("bottomleft",
pal = origenTotal_color,
values = origenTotal_geo$origenBicicletas_freq,
title = "Frecuencia de Origen Bicicletas",
opacity = 1)%>%
addMiniMap(tiles = "CartoDB.Voyager")
mapFigura 5. Distribución de las comunas de la ciudad de Cali, resaltando las comunas con mayores orígenes con la bicicleta como medio de transporte.
Las comunas con mayores orígenes de pasajeros que utilizan las motos como medio de transporte, son las comunas 3, 20 y 18, con 1096, 1036 y 886 orígenes respectivamente.
Figura 6. Frecuencia de viajes originados con la moto como medio de transporte, en cada comuna de la ciudad de Cali.
require(sf)
require(leaflet)
require(leaflet.extras)
comuna <- sprintf(
"<strong></strong><strong>%s</strong><br/>%g orígenes",
origenTotal_geo$nombre, origenTotal_geo$origenmotos_freq
) %>% lapply(htmltools::HTML)
origenTotal_color <- colorNumeric(
palette = "YlOrRd",
domain = na.omit(origenTotal_geo$origenmotos_freq))
map <-leaflet::leaflet(height=700, width = 800)%>%
addProviderTiles(providers$CartoDB.DarkMatterNoLabels)%>%
setView(lng = -76.5225, lat = 3.42, zoom = 11.5)%>%
addPolygons(data = comunaswgs84,
fillColor = ~origenTotal_color(origenTotal_geo$origenmotos_freq),
fillOpacity = 1,
weight = 2,
opacity = 90,
color = "grey",
group = "Comuna",
stroke = 0.2,
label = comuna,
labelOptions = labelOptions(
style = list("font-weight" = "normal", padding = "3px 8px"),
textsize = "15px",
direction = "auto"))%>%
addFullscreenControl(position = "topleft", pseudoFullscreen = TRUE)%>%
addScaleBar(position = c("topright", "bottomright", "bottomleft", "topleft"),
options = scaleBarOptions(metric = TRUE,
imperial = FALSE,
updateWhenIdle = TRUE))%>%
addMapPane("ames_lines", zIndex = 430) %>%
addLegend("bottomleft",
pal = origenTotal_color,
values = origenTotal_geo$origenmotos_freq,
title = "Frecuencia de Origen Motos",
opacity = 1)%>%
addMiniMap(tiles = "CartoDB.Voyager")
mapFigura 7. Distribución de las comunas de la ciudad de Cali, resaltando las comunas con mayores orígenes con la moto como medio de transporte.
Los orígenes desde las comunas usando como medio de transporte los automóviles tienen su mayor frecuencia en la comuna 20 seguida de la comuna 3, 18 y 4 con 954, 886, 709 y 687 orígenes.
Figura 8. Frecuencia de viajes originados con los automoviles como medio de transporte, en cada comuna de la ciudad de Cali.
require(sf)
require(leaflet)
require(leaflet.extras)
comuna <- sprintf(
"<strong></strong><strong>%s</strong><br/>%g orígenes",
origenTotal_geo$nombre, origenTotal_geo$origenautomoviles_freq
) %>% lapply(htmltools::HTML)
origenTotal_color <- colorNumeric(
palette = "YlOrRd",
domain = na.omit(origenTotal_geo$origenautomoviles_freq))
map <-leaflet::leaflet(height=700, width = 800)%>%
addProviderTiles(providers$CartoDB.DarkMatterNoLabels)%>%
setView(lng = -76.5225, lat = 3.42, zoom = 11.5)%>%
addPolygons(data = comunaswgs84,
fillColor = ~origenTotal_color(origenTotal_geo$origenautomoviles_freq),
fillOpacity = 1,
weight = 2,
opacity = 90,
color = "grey",
group = "Comuna",
stroke = 0.2,
label = comuna,
labelOptions = labelOptions(
style = list("font-weight" = "normal", padding = "3px 8px"),
textsize = "15px",
direction = "auto"))%>%
addFullscreenControl(position = "topleft", pseudoFullscreen = TRUE)%>%
addScaleBar(position = c("topright", "bottomright", "bottomleft", "topleft"),
options = scaleBarOptions(metric = TRUE,
imperial = FALSE,
updateWhenIdle = TRUE))%>%
addMapPane("ames_lines", zIndex = 430) %>%
addLegend("bottomleft",
pal = origenTotal_color,
values = origenTotal_geo$origenautomoviles_freq,
title = "Frecuencia de Origen Automoviles",
opacity = 1)%>%
addMiniMap(tiles = "CartoDB.Voyager")
mapFigura 9. Distribución de las comunas de la ciudad de Cali, resaltando las comunas con mayores orígenes con los automóviles como medio de transporte.
Se analizaron todos los medios de transporte de los ciudadanos de Cali tomando como destino las 22 comunas de la ciudad.
La mayoría de destinos utilizando cualquier medio de transporte en la ciudad de Cali, clasificados por comunas, se centran en la comuna 3 seguida de la comuna 4 y la comuna 20. Las dos comunas con menores destinos son las comunas 2 y la comuna 13.
Figura 10. Frecuencia de viajes destinados a cada comuna de la ciudad de Cali.
require(sf)
require(leaflet)
require(leaflet.extras)
comuna <- sprintf(
"<strong></strong><strong>%s</strong><br/>%g Destinos",
destinoTotal_geo$nombre, destinoTotal_geo$destinoTotal_freq
) %>% lapply(htmltools::HTML)
destinoTotal_color <- colorNumeric(
palette = "YlOrRd",
domain = na.omit(destinoTotal_geo$destinoTotal_freq))
map <-leaflet::leaflet(height=700, width = 800)%>%
addProviderTiles(providers$CartoDB.DarkMatterNoLabels)%>%
setView(lng = -76.5225, lat = 3.42, zoom = 11.5)%>%
addPolygons(data = comunaswgs84,
fillColor = ~destinoTotal_color(destinoTotal_geo$destinoTotal_freq),
fillOpacity = 1,
weight = 2,
opacity = 90,
color = "grey",
group = "Comuna",
stroke = 0.2,
label = comuna,
labelOptions = labelOptions(
style = list("font-weight" = "normal", padding = "3px 8px"),
textsize = "15px",
direction = "auto"))%>%
addFullscreenControl(position = "topleft", pseudoFullscreen = TRUE)%>%
addScaleBar(position = c("topright", "bottomright", "bottomleft", "topleft"),
options = scaleBarOptions(metric = TRUE,
imperial = FALSE,
updateWhenIdle = TRUE))%>%
addMapPane("ames_lines", zIndex = 430) %>%
addLegend("bottomleft",
pal = destinoTotal_color,
values = destinoTotal_geo$destinoTotal_freq,
title = "Frecuencia de Destino Total",
opacity = 1)%>%
addMiniMap(tiles = "CartoDB.Voyager")
mapFigura 11. Distribución de las comunas de la ciudad de Cali, resaltando las comunas con mayores destinos utilizando cualquier medio de transporte.
La mayoría de comunas con destinos que se realizan con bicicletas son las comunas 3 y 4 seguidas de la 20 y la 18 con 201 y 172 destinos registrados para las dos primeras y 133 y 101 para estas dos últimas. LAs comunas con menores destinos que se hacen en bicicleta son las comunas 2 y 13 con solo 10 y 13 respectivamente.
Figura 12. Frecuencia de viajes destinados a cada comuna de la ciudad de Cali utilizando la bicicleta como medio de transporte.
require(sf)
require(leaflet)
require(leaflet.extras)
comuna <- sprintf(
"<strong></strong><strong>%s</strong><br/>%g Destinos",
destinoTotal_geo$nombre, destinoTotal_geo$destinoBicicletas_freq
) %>% lapply(htmltools::HTML)
destinoTotal_color <- colorNumeric(
palette = "YlOrRd",
domain = na.omit(destinoTotal_geo$destinoBicicletas_freq))
map <-leaflet::leaflet(height=700, width = 800)%>%
addProviderTiles(providers$CartoDB.DarkMatterNoLabels)%>%
setView(lng = -76.5225, lat = 3.42, zoom = 11.5)%>%
addPolygons(data = comunaswgs84,
fillColor = ~destinoTotal_color(destinoTotal_geo$destinoBicicletas_freq),
fillOpacity = 1,
weight = 2,
opacity = 90,
color = "grey",
group = "Comuna",
stroke = 0.2,
label = comuna,
labelOptions = labelOptions(
style = list("font-weight" = "normal", padding = "3px 8px"),
textsize = "15px",
direction = "auto"))%>%
addFullscreenControl(position = "topleft", pseudoFullscreen = TRUE)%>%
addScaleBar(position = c("topright", "bottomright", "bottomleft", "topleft"),
options = scaleBarOptions(metric = TRUE,
imperial = FALSE,
updateWhenIdle = TRUE))%>%
addMapPane("ames_lines", zIndex = 430) %>%
addLegend("bottomleft",
pal = destinoTotal_color,
values = destinoTotal_geo$destinoBicicletas_freq,
title = "Frecuencia de Destino Bicicletas",
opacity = 1)%>%
addMiniMap(tiles = "CartoDB.Voyager")
mapFigura 13. Distribución de las comunas de la ciudad de Cali, resaltando las comunas con mayores destinos con las bicicletas como medio de transporte.
Para el transporte con motos las comunas de destino se mantienen con frecuencias que los matienen en las mismas posiciones. LA comuna 3 y 4 en este caso siguen siendo las comunas con mayor frecuencias de destinos seguidas de las comunas 20 y 18.
Figura 14. Frecuencia de viajes destinados a cada comuna de la ciudad de Cali utilizando la moto como medio de transporte.
require(sf)
require(leaflet)
require(leaflet.extras)
comuna <- sprintf(
"<strong></strong><strong>%s</strong><br/>%g Destinos",
destinoTotal_geo$nombre, destinoTotal_geo$destinomotos_freq
) %>% lapply(htmltools::HTML)
destinoTotal_color <- colorNumeric(
palette = "YlOrRd",
domain = na.omit(destinoTotal_geo$destinomotos_freq))
map <-leaflet::leaflet(height=700, width = 800)%>%
addProviderTiles(providers$CartoDB.DarkMatterNoLabels)%>%
setView(lng = -76.5225, lat = 3.42, zoom = 11.5)%>%
addPolygons(data = comunaswgs84,
fillColor = ~destinoTotal_color(destinoTotal_geo$destinomotos_freq),
fillOpacity = 1,
weight = 2,
opacity = 90,
color = "grey",
group = "Comuna",
stroke = 0.2,
label = comuna,
labelOptions = labelOptions(
style = list("font-weight" = "normal", padding = "3px 8px"),
textsize = "15px",
direction = "auto"))%>%
addFullscreenControl(position = "topleft", pseudoFullscreen = TRUE)%>%
addScaleBar(position = c("topright", "bottomright", "bottomleft", "topleft"),
options = scaleBarOptions(metric = TRUE,
imperial = FALSE,
updateWhenIdle = TRUE))%>%
addMapPane("ames_lines", zIndex = 430) %>%
addLegend("bottomleft",
pal = destinoTotal_color,
values = destinoTotal_geo$destinomotos_freq,
title = "Frecuencia de Destino Motos",
opacity = 1)%>%
addMiniMap(tiles = "CartoDB.Voyager")
mapFigura 15. Distribución de las comunas de la ciudad de Cali, resaltando las comunas con mayores destinos con las motos como medio de transporte.
Con el transporte de automóviles el patrón presentado con el transporte de motos y bicicletas se mantiene siendo las comunas 3 y 4 las comunas con mayores frecuencias seguidas de las comunas 20 y 18 con 1565, 1140, 966 y 695 destinos respectivamente.
Figura 16. Frecuencia de viajes destinados a cada comuna de la ciudad de Cali utilizando los automóviles como medio de transporte.
require(sf)
require(leaflet)
require(leaflet.extras)
comuna <- sprintf(
"<strong></strong><strong>%s</strong><br/>%g Destinos",
destinoTotal_geo$nombre, destinoTotal_geo$destinoautomoviles_freq
) %>% lapply(htmltools::HTML)
destinoTotal_color <- colorNumeric(
palette = "YlOrRd",
domain = na.omit(destinoTotal_geo$destinoautomoviles_freq))
map <-leaflet::leaflet(height=700, width = 800)%>%
addProviderTiles(providers$CartoDB.DarkMatterNoLabels)%>%
setView(lng = -76.5225, lat = 3.42, zoom = 11.5)%>%
addPolygons(data = comunaswgs84,
fillColor = ~destinoTotal_color(destinoTotal_geo$destinoautomoviles_freq),
fillOpacity = 1,
weight = 2,
opacity = 90,
color = "grey",
group = "Comuna",
stroke = 0.2,
label = comuna,
labelOptions = labelOptions(
style = list("font-weight" = "normal", padding = "3px 8px"),
textsize = "15px",
direction = "auto"))%>%
addFullscreenControl(position = "topleft", pseudoFullscreen = TRUE)%>%
addScaleBar(position = c("topright", "bottomright", "bottomleft", "topleft"),
options = scaleBarOptions(metric = TRUE,
imperial = FALSE,
updateWhenIdle = TRUE))%>%
addMapPane("ames_lines", zIndex = 430) %>%
addLegend("bottomleft",
pal = destinoTotal_color,
values = destinoTotal_geo$destinoautomoviles_freq,
title = "Frecuencia de Destino Automoviles",
opacity = 1)%>%
addMiniMap(tiles = "CartoDB.Voyager")
mapFigura 17. Distribución de las comunas de la ciudad de Cali, resaltando las comunas con mayores destinos con los automóviles como medio de transporte.
El análisis de la distribución espacial de los orígenes y destinos de los distintos medios de transporte utilizados por las personas en la ciudad de Cali reveló patrones notoriamente similares en cuanto a los puntos de partida, con diferencias destacadas en los destinos. Al desagregar los datos por tipo de transporte, las comunas 3 y 20 sobresalen con las mayores frecuencias de origen, evidenciando que desde estas zonas se origina la mayoría de los desplazamientos registrados en el estudio. Esto sugiere una alta densidad de actividad de transporte en estas áreas, probablemente vinculada a factores socioeconómicos y de infraestructura. Entre las comunas aledañas, también se observan altos niveles de frecuencia en orígenes: la comuna 18 ocupa el tercer lugar en origen de viajes, seguida por la comuna 4 en el cuarto puesto, y finalmente las comunas 4 y 19 en las posiciones quinta y sexta, respectivamente.
En cuanto a los destinos, el patrón de distribución muestra una tendencia diferente a los orígenes. La comuna 3 continúa siendo el principal punto de llegada, lo que podría indicar su relevancia como un centro de actividad o de atracción económica. Le siguen en frecuencia la comuna 4 y, en tercer lugar, la comuna 20, lo cual se mantuvo consistente a través de los distintos tipos de transporte analizados. Para las comunas con menores frecuencias de destino, la comuna 13 registra la frecuencia más baja en ambas direcciones (orígenes y destinos). Sin embargo, para los orígenes, la comuna 6 y la comuna 1 destacan en los puestos de menor frecuencia, revelando que en estas zonas se origina una cantidad significativamente menor de desplazamientos en comparación con otras áreas de la ciudad.
Este análisis proporciona una perspectiva valiosa sobre los patrones de movilidad en Cali, identificando áreas clave de alta y baja actividad de transporte que pueden servir como base para futuros estudios de infraestructura, planificación urbana y políticas de movilidad.