Ecosyste.ms: Awesome

An open API service indexing awesome lists of open source software.

Awesome Lists | Featured Topics | Projects

https://github.com/RMI-PACTA/r2dii.analysis

Tools to Calculate Climate Targets for Financial Portfolios
https://github.com/RMI-PACTA/r2dii.analysis

climate-change

Last synced: 3 months ago
JSON representation

Tools to Calculate Climate Targets for Financial Portfolios

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%"
)
```

# r2dii.analysis

[![Lifecycle: stable](https://img.shields.io/badge/lifecycle-stable-brightgreen.svg)](https://lifecycle.r-lib.org/articles/stages.html#stable)
[![CRAN status](https://www.r-pkg.org/badges/version/r2dii.analysis)](https://CRAN.R-project.org/package=r2dii.analysis)
[![Codecov test coverage](https://codecov.io/gh/RMI-PACTA/r2dii.analysis/branch/main/graph/badge.svg)](https://app.codecov.io/gh/RMI-PACTA/r2dii.analysis?branch=main)
[![R-CMD-check](https://github.com/RMI-PACTA/r2dii.analysis/actions/workflows/R-CMD-check.yaml/badge.svg)](https://github.com/RMI-PACTA/r2dii.analysis/actions/workflows/R-CMD-check.yaml)

These tools help you to assess if a financial portfolio aligns with climate
goals. They summarize key metrics attributed to the portfolio (e.g.
production, emission factors), and calculate targets based on climate
scenarios. They implement in R the last step of the free software 'PACTA'
(Paris Agreement Capital Transition Assessment;
). Financial institutions use 'PACTA' to
study how their capital allocation impacts the climate.

## Installation

Install the released version of r2dii.analysis from CRAN with:

```r
install.packages("r2dii.analysis")
```

Or install the development version of r2dii.analysis from GitHub with:

```r
# install.packages("pak")
pak::pak("RMI-PACTA/r2dii.analysis")
```

## Example

* Use `library()` to attach the packages you need. r2dii.analysis does not depend on the packages r2dii.data and r2dii.match; but we suggest you install them -- with `install.packages(c("r2dii.data", "r2dii.match"))` -- so you can reproduce our examples.

```{r}
library(r2dii.data)
library(r2dii.match)
library(r2dii.analysis)
```

* Use `r2dii.match::match_name()` to identify matches between your loanbook and the asset level data.

```{r}
matched <- match_name(loanbook_demo, abcd_demo) %>%
prioritize()
```

### Add Scenario Targets

* Use `target_sda()` to calculate SDA targets of CO2 emissions.

```{r}
matched %>%
target_sda(
abcd = abcd_demo,
co2_intensity_scenario = co2_intensity_scenario_demo,
region_isos = region_isos_demo
)
```

* Use `target_market_share` to calculate market-share scenario targets at the portfolio level:

```{r}
matched %>%
target_market_share(
abcd = abcd_demo,
scenario = scenario_demo_2020,
region_isos = region_isos_demo
)
```

* Or at the company level:

```{r}
matched %>%
target_market_share(
abcd = abcd_demo,
scenario = scenario_demo_2020,
region_isos = region_isos_demo,
by_company = TRUE
)
```

### Utility Functions

The `target_*()` functions provide shortcuts for common operations. They wrap some utility functions that you may also use directly:

* Use `join_abcd_scenario()` to join a matched dataset to the relevant
scenario data, and to pick assets in the relevant regions.

```{r}
loanbook_joined_to_abcd_scenario <- matched %>%
join_abcd_scenario(
abcd = abcd_demo,
scenario = scenario_demo_2020,
region_isos = region_isos_demo
)
```

* Use `summarize_weighted_production()` with different grouping arguments to
calculate scenario-targets:

```{r}
# portfolio level
loanbook_joined_to_abcd_scenario %>%
summarize_weighted_production(scenario, tmsr, smsp, region)

# company level
loanbook_joined_to_abcd_scenario %>%
summarize_weighted_production(scenario, tmsr, smsp, region, name_abcd)
```

[Get started](https://rmi-pacta.github.io/r2dii.analysis/articles/r2dii-analysis.html).

```{r echo=FALSE}
download.file("http://bit.ly/banks-thanks", thanks <- tempfile())
```

## Funding

This project has received funding from the [European Union LIFE
program](https://wayback.archive-it.org/12090/20210412123959/https://ec.europa.eu/easme/en/) and the International Climate Initiative (IKI).
The Federal Ministry for the Environment, Nature Conservation and Nuclear Safety
(BMU) supports this initiative on the basis of a decision adopted by the German
Bundestag. The views expressed are the sole responsibility of the authors and do
not necessarily reflect the views of the funders. The funders are not
responsible for any use that may be made of the information it contains.