aggregate_primary_stage_erois: Aggregates primary stage EROIs by fossil fuel group

In earamendia/EROITools: EROITools

Aggregates primary stage EROIs by fossil fuel group

Description

The function calculates the aggregated primary stage EROIs for each fossil fuel group. It determines the shares of supply of each energy product within each fossil fuel group (by default using the V matrix), selects only the list of energy products defined as primary energy products (see arguments), and from these shares determines the average primary stage EROI by fossil fuel group.

Usage

aggregate_primary_stage_erois(
  .tidy_erois_df,
  .tidy_iea_df,
  primary_production_mats = c(IEATools::psut_cols$V),
  list_primary_oil_products = IEATools::primary_oil_products,
  list_primary_coal_products = IEATools::primary_coal_products,
  list_primary_gas_products = IEATools::primary_gas_products,
  product.group = "Product.Group",
  country = IEATools::iea_cols$country,
  method = IEATools::iea_cols$method,
  energy_type = IEATools::iea_cols$energy_type,
  last_stage = IEATools::iea_cols$last_stage,
  year = IEATools::iea_cols$year,
  product = IEATools::iea_cols$product,
  eroi.method = "Eroi.method",
  type = "Type",
  boundary = "Boundary",
  share = "Share",
  eroi = "EROI",
  group.eroi = "Group.eroi",
  energy.stage = "Energy.stage",
  product_without_origin = "product_without_origin",
  Group.eroi.inversed = "Group.eroi.inversed",
  eroi_calc_method = c("dta", "gma")
)

Arguments

.tidy_erois_df	The tidy erois data frame (calculated for each product via input-output) for which the aggregation needs to be done.
.tidy_iea_df	The tidy_iea_df from which the input-output erois have been calculated.
primary_production_mats	The list of matrices to use as primary production matrices to determine the share of supply of each primary energy product. Default is c(IEATools::psut_cols$V).
list_primary_oil_products	The list of primary oil products. Default is IEATools::primary_oil_products.
list_primary_coal_products	The list of primary coal products. Default is IEATools::primary_coal_products.
list_primary_gas_products	The list of primary gas products. Default is IEATools::primary_gas_products.
product.group	The name of the column containing the product group name. Default is "Product.Group".
country, method, energy_type, last_stage, year, product	See IEATools::iea_cols.
eroi.method	The name of the column containing the method used for calculating the erois. Default is "Eroi.method".
type	The name of the column containing the type of eroi calculated. Default is "Type".
boundary	The name of the column containing the boundary for the eroi calculation. Default is "Boundary".
share	The name of the column containing the share of each energy product supply within each fossil fuel group. Default is "Share".
eroi	The name of the column containing the energy-product level eroi value. Default is "EROI".
group.eroi	The name of the column containing the fossil fuel group level eroi value. Default is "Group.eroi".
energy.stage	The name of the column containing the energy stage for the calculation of the EROI. Default is "Energy.stage".
product_without_origin	The name of the column containing the product name excluding the origin of the product. Default is "product_without_origin".
Group.eroi.inversed	Name of the temporary column that computes the inverse of the EROI.
eroi_calc_method	The method being used for calculating the erois. Default is "dta".

Details

The function can work both on a single country Energy Conversion Chain of Domestic Technology Assumption type, or with a multi-regional Energy Conversion Chain for instance using the Global Market Assumption. The input data frame will have to be slightly adapted in this case (for an example see the tests related to the function)

Value

A data frame returning the aggregated primary stage EROIs for each fossil fuel group.

Examples

tidy_AB_dta <- ECCTools::tidy_AB_data %>%
IEATools::add_psut_matnames() %>% 
ECCTools::transform_to_dta()
tidy_io_AB_dta <- tidy_AB_dta %>% 
 IEATools::prep_psut() %>% 
 Recca::calc_io_mats(method_q_calculation = "sum_R_V_cols")
tidy_AB_erois_dta <- tidy_io_AB_dta %>% 
 Recca::calc_E_EIOU() %>% 
 Recca::calc_erois() %>% 
 EROITools::extract_tidy_product_erois() %>% 
 dplyr::mutate(
   Eroi.method = "DTA"
 ) %>% 
 dplyr::relocate(tidyselect::all_of("Eroi.method"), .after = tidyselect::all_of("Year"))
res_dta <- aggregate_primary_stage_erois(
 .tidy_erois_df = tidy_AB_erois_dta,
 .tidy_iea_df = tidy_AB_dta,
 eroi_calc_method = "dta"
)

earamendia/EROITools documentation built on May 19, 2023, 10:30 a.m.