Skip to content

  • Home
  • Life Coach
  • Travel Lifestyle
  • Luxury Lifestyle
  • Travel Tips
  • Urban Life
  • More
    • Contact Us
    • Disclaimer
    • Terms and Conditions
    • About Us
    • Privacy Policy
  • Tech
  • Toggle search form
Creating a map of cycling, walking and driving routes in R

Creating a map of cycling, walking and driving routes in R

Posted on May 1, 2025 By rehan.rafique No Comments on Creating a map of cycling, walking and driving routes in R

img { border: 5px solid #FFFFFF; }

Here’s a quick contribution to the
#30DayMapChallenge, day 2 ‘Lines’: a quick reproducible example showing how to use the
r5r package to estimate cycling, walking and driving routes in R. In this example, we generate the cycling, walking and driving routes from 2 thousand random locations to the city center in the city of Curitiba, Brazil.

Prepare R environment

options(java.parameters = "-Xmx4G")

library(r5r)
library(geobr)
library(sf)
library(ggplot2)
library(here)
library(osmextract)
library(magrittr)


# create subdirectories "data" and "img"
dir.create(here::here("data"))
dir.create(here::here("img"))

Download the data

# get OSM data
osmextract::oe_download(
  file_url = osmextract::oe_match("Curitiba, Brazil")[[1]],
  download_directory = here::here("data"), force_download = T)

# get city boundaries and city center
city <- 'Curitiba'
city_code <- lookup_muni(name_muni = city)
city_boundary <- read_municipality(code_muni = city_code$code_muni)
city_center <- read_municipal_seat() %>% subset(code_muni == city_code$code_muni)
city_center$id <- 'center'

# get sample of origins in city
set.seed(42)
origins <- st_sample(city_boundary, size = 2000) %>% st_sf()
origins$id <- 1:nrow(origins)

origins <- st_transform(origins, 4326)
city_center <- st_transform(city_center, 4326)

Routing analysis

# build network
r5r_core <- setup_r5(data_path = here::here("data"), verbose = FALSE)

# routing
df <- detailed_itineraries(r5r_core,
                           origins = origins,
                           destinations = city_center,
                           mode="bicycle",
                           departure_datetime = as.POSIXct("13-03-2019 14:00:00", format = "%d-%m-%Y %H:%M:%S"),
                           max_trip_duration = 1440,
                           shortest_path = T)

Plot

fig <- ggplot() +
        geom_sf(data = city_boundary, color="gray70", fill=NA) +
        geom_sf(data = df, color="red", alpha=.1, size=.3) +
        labs(title="Cycling in Curitiba",
             subtitle="2000 routes to the city center",
             caption = 'Image by @UrbanDemog using r5r') +
        theme_void() +
        theme(plot.title = element_text(color = "gray20"),
              plot.subtitle = element_text(color = "gray40"),
              plot.caption = element_text(color = "gray")
              )

# save figure
ggsave(fig, file=here::here("img", "cycling.png"), 
       dpi=300, width = 14, height = 14, units="cm")

Creating a map of cycling, walking and driving routes in R

Urban Life

Post navigation

Previous Post: Breguet Marks 250 Years with a One-Handed Marvel
Next Post: 10 Best Places to Visit in Europe in Spring: Sun, Beach & Cites

More Related Articles

Protecting our fruit trees as the weather warms up and dries out Protecting our fruit trees as the weather warms up and dries out Urban Life
Growth Through Writing, Reflections on Semester 2 Growth Through Writing, Reflections on Semester 2 Urban Life
Back to the Roots | The Urban Orchardist Back to the Roots | The Urban Orchardist Urban Life
Lily Xie and Jenny Henderson on Washing (洗作) — memorializing vibrant art and community despite displacement caused by freeways through Boston’s Chinatown Lily Xie and Jenny Henderson on Washing (洗作) — memorializing vibrant art and community despite displacement caused by freeways through Boston’s Chinatown Urban Life
NRCS Resources for Urban Growers – Urban Agriculture NRCS Resources for Urban Growers – Urban Agriculture Urban Life
CSA 2024! | Over the Fence Urban Farm CSA 2024! | Over the Fence Urban Farm Urban Life

Leave a Reply Cancel reply

Your email address will not be published. Required fields are marked *

Recent Posts

  • Shifting from Fast Fashion to Saving the World
  • “Unleashing Potential: Ingrid’s Journey to Coachability.”💡
  • 12 Beautiful Travel Coffee Table Books For FOMO-Free Inspo
  • How To Study For Professional Certifications While Living A Digital Nomad Lifestyle
  • The Traveller’s Guide to British Road Etiquette

Categories

  • Life Coach
  • Luxury Lifestyle
  • Travel Lifestyle
  • Travel Tips
  • Urban Life

Copyright © 2025 .

Powered by PressBook Blog WordPress theme