This article shows how to calculate the descriptive analysis of equal
weight, best case, and worst case for emission profile.
Example company-level output of emission profile for best case and
worst case
| comp_1 |
france |
all |
0.25 |
0.25 |
0.25 |
| comp_1 |
france |
tilt_subsector |
0.85 |
0.85 |
0.85 |
| comp_2 |
france |
all |
0.10 |
0.10 |
0.10 |
| comp_2 |
france |
tilt_subsector |
0.30 |
0.30 |
0.30 |
| comp_3 |
austria |
all |
0.35 |
0.35 |
0.35 |
| comp_3 |
austria |
tilt_subsector |
0.55 |
0.55 |
0.55 |
| comp_4 |
austria |
all |
0.70 |
0.70 |
0.70 |
| comp_4 |
austria |
tilt_subsector |
0.20 |
0.20 |
0.20 |
| comp_5 |
germany |
all |
0.70 |
0.70 |
0.70 |
| comp_5 |
germany |
tilt_subsector |
0.20 |
0.20 |
0.20 |
| comp_6 |
netherlands |
all |
0.70 |
0.70 |
0.70 |
| comp_6 |
netherlands |
tilt_subsector |
0.20 |
0.20 |
0.20 |
| comp_7 |
spain |
all |
0.70 |
0.70 |
0.70 |
| comp_7 |
spain |
tilt_subsector |
0.20 |
0.20 |
0.20 |
Average emission_rank_avg_equal_weight per
grouping_emission and emission_category
avg_per_benchmark_risk_category <- function(data, col) {
data |>
select(all_of(c("companies_id", "grouping_emission", col))) |>
distinct() |>
mutate(risk_category = categorize_risk(.data[[col]], 1/3, 2/3)) |>
summarise(total_mode = n(), .by = c("grouping_emission", "risk_category")) |>
mutate(proportion = total_mode / sum(total_mode), .by = c("grouping_emission")) |>
select(-all_of(c("total_mode"))) |>
distinct() |>
filter(grouping_emission %in% c("all", "tilt_subsector"))
}
avg_emission_profile_equal_weight_per_benchmark_risk_category <- avg_per_benchmark_risk_category(emission_company_example, "emission_rank_avg_equal_weight") |>
rename("Average `emission_rank_avg_equal_weight`" = "proportion")
Bar plot
Average emission_rank_avg_best_case per
grouping_emission and emission_category
Bar plot
Average emission_rank_avg_worst_case per
grouping_emission and emission_category
Bar plot
Average emission_rank_avg_equal_weight per
grouping_emission and emission_category for a country
Average emission_rank_avg_best_case per
grouping_emission and emission_category for a country
Average emission_rank_avg_worst_case per
grouping_emission and emission_category for a country
Example company-level output of transition risk profile for best
case and worst case
| comp_1 |
france |
all |
0.25 |
0.25 |
0.25 |
| comp_1 |
france |
tilt_subsector |
0.85 |
0.85 |
0.85 |
| comp_2 |
france |
all |
0.10 |
0.10 |
0.10 |
| comp_2 |
france |
tilt_subsector |
0.30 |
0.30 |
0.30 |
| comp_3 |
austria |
all |
0.35 |
0.35 |
0.35 |
| comp_3 |
austria |
tilt_subsector |
0.55 |
0.55 |
0.55 |
| comp_4 |
austria |
all |
0.70 |
0.70 |
0.70 |
| comp_4 |
austria |
tilt_subsector |
0.20 |
0.20 |
0.20 |
| comp_5 |
germany |
all |
0.70 |
0.70 |
0.70 |
| comp_5 |
germany |
tilt_subsector |
0.20 |
0.20 |
0.20 |
| comp_6 |
netherlands |
all |
0.70 |
0.70 |
0.70 |
| comp_6 |
netherlands |
tilt_subsector |
0.20 |
0.20 |
0.20 |
| comp_7 |
spain |
all |
0.70 |
0.70 |
0.70 |
| comp_7 |
spain |
tilt_subsector |
0.20 |
0.20 |
0.20 |
Descriptive analysis of emission_rank_avg_equal_weight
per grouping_emission
Descriptive analysis of emission_rank_avg_equal_weight per
grouping_emission
|
|
emission_rank_avg_equal_weight
|
|
grouping_emission
|
average
|
median
|
25th_quantile
|
75th_quantile
|
|
all
|
0.5000000
|
0.7
|
0.3
|
0.700
|
|
tilt_subsector
|
0.3571429
|
0.2
|
0.2
|
0.425
|
Descriptive analysis of emission_rank_avg_best_case per
grouping_emission
Descriptive analysis of emission_rank_avg_best_case per
grouping_emission
|
|
emission_rank_avg_best_case
|
|
grouping_emission
|
average
|
median
|
25th_quantile
|
75th_quantile
|
|
all
|
0.5000000
|
0.7
|
0.3
|
0.700
|
|
tilt_subsector
|
0.3571429
|
0.2
|
0.2
|
0.425
|
Descriptive analysis of emission_rank_avg_worst_case
per grouping_emission
Descriptive analysis of emission_rank_avg_worst_case per
grouping_emission
|
|
emission_rank_avg_worst_case
|
|
grouping_emission
|
average
|
median
|
25th_quantile
|
75th_quantile
|
|
all
|
0.5000000
|
0.7
|
0.3
|
0.700
|
|
tilt_subsector
|
0.3571429
|
0.2
|
0.2
|
0.425
|
Descriptive analysis of emission_rank_avg_equal_weight
per grouping_emission for a country
Descriptive analysis of emission_rank_avg_equal_weight per
grouping_emission for country france
|
|
|
emission_rank_avg_equal_weight
|
|
country
|
grouping_emission
|
average
|
median
|
25th_quantile
|
75th_quantile
|
|
france
|
all
|
0.175
|
0.175
|
0.1375
|
0.2125
|
|
france
|
tilt_subsector
|
0.575
|
0.575
|
0.4375
|
0.7125
|
Descriptive analysis of emission_rank_avg_equal_weight per
grouping_emission for country austria
|
|
|
emission_rank_avg_equal_weight
|
|
country
|
grouping_emission
|
average
|
median
|
25th_quantile
|
75th_quantile
|
|
austria
|
all
|
0.525
|
0.525
|
0.4375
|
0.6125
|
|
austria
|
tilt_subsector
|
0.375
|
0.375
|
0.2875
|
0.4625
|
Descriptive analysis of emission_rank_avg_equal_weight per
grouping_emission for country germany
|
|
|
emission_rank_avg_equal_weight
|
|
country
|
grouping_emission
|
average
|
median
|
25th_quantile
|
75th_quantile
|
|
germany
|
all
|
0.7
|
0.7
|
0.7
|
0.7
|
|
germany
|
tilt_subsector
|
0.2
|
0.2
|
0.2
|
0.2
|
Descriptive analysis of emission_rank_avg_equal_weight per
grouping_emission for country netherlands
|
|
|
emission_rank_avg_equal_weight
|
|
country
|
grouping_emission
|
average
|
median
|
25th_quantile
|
75th_quantile
|
|
netherlands
|
all
|
0.7
|
0.7
|
0.7
|
0.7
|
|
netherlands
|
tilt_subsector
|
0.2
|
0.2
|
0.2
|
0.2
|
Descriptive analysis of emission_rank_avg_equal_weight per
grouping_emission for country spain
|
|
|
emission_rank_avg_equal_weight
|
|
country
|
grouping_emission
|
average
|
median
|
25th_quantile
|
75th_quantile
|
|
spain
|
all
|
0.7
|
0.7
|
0.7
|
0.7
|
|
spain
|
tilt_subsector
|
0.2
|
0.2
|
0.2
|
0.2
|
Descriptive analysis of emission_rank_avg_best_case per
grouping_emission for a country
Descriptive analysis of emission_rank_avg_best_case per
grouping_emission for country france
|
|
|
emission_rank_avg_best_case
|
|
country
|
grouping_emission
|
average
|
median
|
25th_quantile
|
75th_quantile
|
|
france
|
all
|
0.175
|
0.175
|
0.1375
|
0.2125
|
|
france
|
tilt_subsector
|
0.575
|
0.575
|
0.4375
|
0.7125
|
Descriptive analysis of emission_rank_avg_best_case per
grouping_emission for country austria
|
|
|
emission_rank_avg_best_case
|
|
country
|
grouping_emission
|
average
|
median
|
25th_quantile
|
75th_quantile
|
|
austria
|
all
|
0.525
|
0.525
|
0.4375
|
0.6125
|
|
austria
|
tilt_subsector
|
0.375
|
0.375
|
0.2875
|
0.4625
|
Descriptive analysis of emission_rank_avg_best_case per
grouping_emission for country germany
|
|
|
emission_rank_avg_best_case
|
|
country
|
grouping_emission
|
average
|
median
|
25th_quantile
|
75th_quantile
|
|
germany
|
all
|
0.7
|
0.7
|
0.7
|
0.7
|
|
germany
|
tilt_subsector
|
0.2
|
0.2
|
0.2
|
0.2
|
Descriptive analysis of emission_rank_avg_best_case per
grouping_emission for country netherlands
|
|
|
emission_rank_avg_best_case
|
|
country
|
grouping_emission
|
average
|
median
|
25th_quantile
|
75th_quantile
|
|
netherlands
|
all
|
0.7
|
0.7
|
0.7
|
0.7
|
|
netherlands
|
tilt_subsector
|
0.2
|
0.2
|
0.2
|
0.2
|
Descriptive analysis of emission_rank_avg_best_case per
grouping_emission for country spain
|
|
|
emission_rank_avg_best_case
|
|
country
|
grouping_emission
|
average
|
median
|
25th_quantile
|
75th_quantile
|
|
spain
|
all
|
0.7
|
0.7
|
0.7
|
0.7
|
|
spain
|
tilt_subsector
|
0.2
|
0.2
|
0.2
|
0.2
|
Descriptive analysis of emission_rank_avg_best_case per
grouping_emission for a country
Descriptive analysis of emission_rank_avg_worst_case per
grouping_emission for country france
|
|
|
emission_rank_avg_worst_case
|
|
country
|
grouping_emission
|
average
|
median
|
25th_quantile
|
75th_quantile
|
|
france
|
all
|
0.175
|
0.175
|
0.1375
|
0.2125
|
|
france
|
tilt_subsector
|
0.575
|
0.575
|
0.4375
|
0.7125
|
Descriptive analysis of emission_rank_avg_worst_case per
grouping_emission for country austria
|
|
|
emission_rank_avg_worst_case
|
|
country
|
grouping_emission
|
average
|
median
|
25th_quantile
|
75th_quantile
|
|
austria
|
all
|
0.525
|
0.525
|
0.4375
|
0.6125
|
|
austria
|
tilt_subsector
|
0.375
|
0.375
|
0.2875
|
0.4625
|
Descriptive analysis of emission_rank_avg_worst_case per
grouping_emission for country germany
|
|
|
emission_rank_avg_worst_case
|
|
country
|
grouping_emission
|
average
|
median
|
25th_quantile
|
75th_quantile
|
|
germany
|
all
|
0.7
|
0.7
|
0.7
|
0.7
|
|
germany
|
tilt_subsector
|
0.2
|
0.2
|
0.2
|
0.2
|
Descriptive analysis of emission_rank_avg_worst_case per
grouping_emission for country netherlands
|
|
|
emission_rank_avg_worst_case
|
|
country
|
grouping_emission
|
average
|
median
|
25th_quantile
|
75th_quantile
|
|
netherlands
|
all
|
0.7
|
0.7
|
0.7
|
0.7
|
|
netherlands
|
tilt_subsector
|
0.2
|
0.2
|
0.2
|
0.2
|
Descriptive analysis of emission_rank_avg_worst_case per
grouping_emission for country spain
|
|
|
emission_rank_avg_worst_case
|
|
country
|
grouping_emission
|
average
|
median
|
25th_quantile
|
75th_quantile
|
|
spain
|
all
|
0.7
|
0.7
|
0.7
|
0.7
|
|
spain
|
tilt_subsector
|
0.2
|
0.2
|
0.2
|
0.2
|
