target_market_share: Add targets for production, using the market share approach

Description Usage Arguments Value Handling grouped data See Also Examples

View source: R/target_market_share.R

Description

This function calculates the portfolio-level production targets, as calculated using the market share approach applied to each relevant climate production forecast.

Usage

1
2
3
4
5
6
7
8
9
target_market_share(
  data,
  ald,
  scenario,
  region_isos = r2dii.data::region_isos,
  use_credit_limit = FALSE,
  by_company = FALSE,
  weight_production = TRUE
)

Arguments

data

A "data.frame" like the output of r2dii.match::prioritize.

ald

An asset level data frame like r2dii.data::ald_demo.

scenario

A scenario data frame like r2dii.data::scenario_demo_2020.

region_isos

A data frame like r2dii.data::region_isos (default).

use_credit_limit

Logical vector of length 1. FALSE defaults to using the column loan_size_outstanding. Set to TRUE to use the column loan_size_credit_limit instead.

by_company

Logical vector of length 1. FALSE defaults to outputting production_value at the portfolio-level. Set to TRUE to output production_value at the company-level.

weight_production

Logical vector of length 1. TRUE defaults to outputting production, weighted by relative loan-size. Set to FALSE to output the unweighted production values.

Value

A tibble including the summarized columns metric, production and technology_share. If by_company = TRUE, the output will also have the column name_ald.

Handling grouped data

This function ignores existing groups and outputs ungrouped data.

See Also

Other functions to calculate scenario targets: target_sda()

Examples

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
installed <- requireNamespace("r2dii.data", quietly = TRUE) &&
  requireNamespace("r2dii.match", quietly = TRUE)

if (installed) {
  library(r2dii.data)
  library(r2dii.match)

  loanbook <- head(loanbook_demo, 100)
  ald <- head(ald_demo, 100)

  matched <- loanbook %>%
    match_name(ald) %>%
    prioritize()

  # Calculate targets at portfolio level
  matched %>%
    target_market_share(
      ald = ald,
      scenario = scenario_demo_2020,
      region_isos = region_isos_demo
    )

  # Calculate targets at company level
  matched %>%
    target_market_share(
      ald = ald,
      scenario = scenario_demo_2020,
      region_isos = region_isos_demo,
      by_company = TRUE
    )

  matched %>%
    target_market_share(
      ald = ald,
      scenario = scenario_demo_2020,
      region_isos = region_isos_demo,
      # Calculate unweighted targets
      weight_production = FALSE
    )
}

r2dii.analysis documentation built on Aug. 18, 2021, 9:06 a.m.