The hardware and bandwidth for this mirror is donated by METANET, the Webhosting and Full Service-Cloud Provider.
If you wish to report a bug, or if you are interested in having us mirror your free-software or open-source project, please feel free to contact us at mirror[@]metanet.ch.

Mapping urban accessibility

Rafael H. M. Pereira ..

2024-08-27

Abstract

Mapping urban accessibility

Load libraries

library(aopdata)
library(sf)
library(ggplot2)
library(data.table)
library(scales)
#> Warning: package 'scales' was built under R version 4.3.2

Download accessibility data

# download aop data
df <- aopdata::read_access(city='Curitiba',
                       mode='public_transport',
                      year=2019,
                      peak = FALSE,
                      geometry = TRUE,
                      showProgress = FALSE)

Plot map with spatial distribution of access to job opportunities

ggplot() +
  geom_sf(data=df, aes(fill=CMATT60), color=NA, alpha=.9) +
  scale_fill_viridis_c(option = "inferno", labels = scales::comma) +
  labs(title='Number of jobs accessible', fill="Accessibility",
       subtitle='by public transport in less than 60 min.') +
  theme_void()

Map access to Schools

ggplot() +
  geom_sf(data=df, aes(fill=CMAET30), color=NA, alpha=.9) +
  scale_fill_viridis_c(option = "cividis", labels=scales::comma) +
    labs(title='Number of schools accessible', fill="Accessibility",
       subtitle='by public transport in less than 30 min.', fill="N. of schools") +
  theme_void()

These binaries (installable software) and packages are in development.
They may not be fully stable and should be used with caution. We make no claims about them.