Abstract
Mapping urban accessibilityLoad 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