Calculate total primary energy by flow
calculate_p_ex_flow.Rd
Calculate the total energy supply (TES) in primary energy terms by flow. This metric
was formerly called the total primary energy supply (TPES).
This function first uses the uses Recca::find_p_industry_names()
function,
with a user-supplied set of primary industry prefixes p_industry_prefixes
to identify the primary industries desired for analysis.
The Recca::primary_aggregates()
function is then applied to .sutdata
data frame by flow, to calculate the total energy supply across all products
for each flow.
Usage
calculate_p_ex_flow(
.sutdata,
p_industry_prefixes,
country_colname = IEATools::iea_cols$country,
method_colname = IEATools::iea_cols$method,
energy_type_colname = IEATools::iea_cols$energy_type,
year_colname = IEATools::iea_cols$year,
flow_colname = PFUWorkflow::sea_cols$flow_colname,
e_product_colname = PFUWorkflow::sea_cols$e_product_colname,
stage_colname = PFUWorkflow::sea_cols$stage_colname,
gross_net_colname = PFUWorkflow::sea_cols$gross_net_colname,
agg_by_colname = PFUWorkflow::sea_cols$agg_by_colname,
p_ind_comp_colname = PFUWorkflow::sea_cols$p_ind_comp_colname,
p_ind_prefix_colname = PFUWorkflow::sea_cols$p_ind_prefix_colname,
ex_colname = PFUWorkflow::sea_cols$ex_colname,
ex_p_colname = PFUWorkflow::sea_cols$ex_p_colname,
primary_value = IEATools::all_stages$primary,
all_value = PFUWorkflow::agg_metadata$all_value,
flow_value = PFUWorkflow::agg_metadata$flow_value
)
Arguments
- .sutdata
A data frame containing Physical Supply-Use Table (PSUT) matrices.
- p_industry_prefixes
A character vector of primary energy industry prefixes. Usually "Resources", "Imports", and "Stock changes".
- country_colname, method_colname, energy_type_colname, year_colname
See
IEATools::iea_cols
.- flow_colname, e_product_colname, stage_colname, gross_net_colname, agg_by_colname, p_ind_comp_colname, p_ind_prefix_colname, ex_colname, ex_p_colname
- primary_value
The string "Primary", representing the Primary stage of the energy conversion chain, see
IEATools::all_stages
.- all_value, flow_value
Examples
library(Recca)
total_energy_supply <- Recca::UKEnergy2000mats %>%
tidyr::pivot_wider(names_from = matrix.name,
values_from = matrix) %>%
dplyr::mutate(Method = "PCM") %>%
calculate_p_ex_flow(p_industry_prefixes = list(c("Resources", "Imports")))