Ecosyste.ms: Awesome
An open API service indexing awesome lists of open source software.
https://github.com/ipeagit/accessibility
Calculate accessibility measures in R
https://github.com/ipeagit/accessibility
accessibility r transport transport-accessibility
Last synced: 11 days ago
JSON representation
Calculate accessibility measures in R
- Host: GitHub
- URL: https://github.com/ipeagit/accessibility
- Owner: ipeaGIT
- License: other
- Created: 2022-05-31T17:54:29.000Z (over 2 years ago)
- Default Branch: main
- Last Pushed: 2024-07-17T12:16:37.000Z (4 months ago)
- Last Synced: 2024-09-30T19:01:02.998Z (about 1 month ago)
- Topics: accessibility, r, transport, transport-accessibility
- Language: R
- Homepage: https://ipeagit.github.io/accessibility/
- Size: 12.6 MB
- Stars: 54
- Watchers: 3
- Forks: 9
- Open Issues: 4
-
Metadata Files:
- Readme: README.Rmd
- Changelog: NEWS.md
- License: LICENSE
- Codemeta: codemeta.json
Awesome Lists containing this project
README
---
output: github_document
---
```{r, include = FALSE}
knitr::opts_chunk$set(
collapse = TRUE,
comment = "#>",
fig.path = "man/figures/README-",
out.width = "100%"
)
```
# accessibility
[](https://CRAN.R-project.org/package=accessibility)
[](https://github.com/ipeaGIT/accessibility/actions)
[](https://CRAN.R-project.org/package=accessibility)
[](https://app.codecov.io/gh/ipeaGIT/accessibility?branch=main)
[](https://lifecycle.r-lib.org/articles/stages.html)
**accessibility** offers a set of fast and convenient functions to help
conducting accessibility analyses. Given a pre-computed travel cost matrix and a
land use dataset (containing the location of jobs, healthcare and population,
for example), the package allows one to calculate accessibility levels and
accessibility poverty and inequality. The package covers the majority of the
most commonly used accessibility measures (such as cumulative opportunities,
gravity-based and floating catchment areas methods), as well as the most
frequently used inequality and poverty metrics (such as the Palma ratio, the
concentration and Theil indices and the FGT family of measures).
## Installation
Stable version:
```{r, eval = FALSE}
install.packages("accessibility")
```
Development version:
```{r, eval = FALSE}
# install.packages("remotes")
remotes::install_github("ipeaGIT/accessibility")
```
## Usage
This section aims to present a very brief overview of some of the packages'
features. Fore more details please read the vignettes:
- [Introduction to **accessibility**: calculating accessibility
measures](https://ipeagit.github.io/accessibility/articles/accessibility.html)
- [Decay
functions](https://ipeagit.github.io/accessibility/articles/decay_functions.html)
- [Calculating accessibility inequality and
poverty](https://ipeagit.github.io/accessibility/articles/inequality_and_poverty.html)
To calculate accessibility levels, one simply needs a pre-calculated travel
matrix and some land use data. Below we showcase some of the available
functions:
```{r}
library(accessibility)
data_dir <- system.file("extdata", package = "accessibility")
travel_matrix <- readRDS(file.path(data_dir, "travel_matrix.rds"))
land_use_data <- readRDS(file.path(data_dir, "land_use_data.rds"))
cum_cutoff <- cumulative_cutoff(
travel_matrix,
land_use_data,
opportunity = "jobs",
travel_cost = "travel_time",
cutoff = 30
)
head(cum_cutoff)
grav <- gravity(
travel_matrix,
land_use_data,
opportunity = "schools",
travel_cost = "travel_time",
decay_function = decay_exponential(decay_value = 0.2)
)
head(grav)
fca <- floating_catchment_area(
travel_matrix,
land_use_data,
opportunity = "jobs",
travel_cost = "travel_time",
demand = "population",
method = "2sfca",
decay_function = decay_binary(cutoff = 50)
)
head(fca)
```
Calculating inequality and poverty levels is equally easy. Below we use the
previously calculated cumulative accessibility dataset to show some of the
available inequality and poverty functions:
```{r}
palma <- palma_ratio(
cum_cutoff,
sociodemographic_data = land_use_data,
opportunity = "jobs",
population = "population",
income = "income_per_capita"
)
palma
poverty <- fgt_poverty(
cum_cutoff,
sociodemographic_data = land_use_data,
opportunity = "jobs",
population = "population",
poverty_line = 95368
)
poverty
```
## Related work:
- [r5r](https://github.com/ipeaGIT/r5r): Rapid Realistic Routing with R5 in R
- [tracc](https://github.com/jamaps/tracc): Transport accessibility measures in
Python
- [access](https://access.readthedocs.io/en/latest/): Spatial Access for PySAL
- [aceso](https://github.com/tetraptych/aceso): a lightweight Python package for
measuring spatial accessibility
## Acknowledgement 
**accessibility** is developed by a team at the Institute for Applied Economic Research (Ipea), Brazil.