calculate_fu_ex_sector: Calculate total final consumption of final and useful energy...

In MatthewHeun/SEAPSUTWorkflow: Functions and Workflows for Primary-Final-Useful Societal Exergy Analysis Within the PSUT Framework

Calculate total final consumption of final and useful energy by sector

Description

Calculate the total final consumption (TFC) at the final and useful stages (along with any additional stages) by sector. This function first uses the uses create_fd_sectors_list() function, with a user-supplied set of final demand sectors fd_sectors to identify the final demand sectors desired for analysis. The Recca::finaldemand_aggregates() function is then applied to .sutdata data frame by sector, to calculate the total final consumption of all products in each of the sectors supplied in fd_sectors.

Usage

calculate_fu_ex_sector(
  .sutdata,
  fd_sectors,
  country_colname = IEATools::iea_cols$country,
  method_colname = IEATools::iea_cols$method,
  energy_type_colname = IEATools::iea_cols$energy_type,
  last_stage_colname = IEATools::iea_cols$last_stage,
  year_colname = IEATools::iea_cols$year,
  sector_colname = PFUWorkflow::sea_cols$sector_colname,
  fd_sectors_colname = PFUWorkflow::sea_cols$fd_sectors_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,
  ex_colname = PFUWorkflow::sea_cols$ex_colname,
  ex_net_colname = PFUWorkflow::sea_cols$ex_net_colname,
  ex_gross_colname = PFUWorkflow::sea_cols$ex_gross_colname,
  net_value = PFUWorkflow::gross_net_metadata$net_value,
  gross_value = PFUWorkflow::gross_net_metadata$gross_value,
  all_value = PFUWorkflow::agg_metadata$all_value,
  sector_value = PFUWorkflow::agg_metadata$sector_value
)

Arguments

.sutdata	A data frame containing Physical Supply-Use Table (PSUT) matrices with associated final demand sector names
fd_sectors	A character vector of final demand sectors.
country_colname, method_colname, energy_type_colname, last_stage_colname, year_colname	See IEATools::iea_cols.
sector_colname, fd_sectors_colname, e_product_colname, stage_colname, gross_net_colname, agg_by_colname, ex_colname, ex_net_colname, ex_gross_colname	See PFUWorkflow::sea_cols.
net_value, gross_value	See PFUWorkflow::gross_net_metadata.
all_value, sector_value	See PFUWorkflow::agg_metadata.

Value

A data frame containing total final and useful consumption by sector

Examples

library(Recca)
tfc_sector <- Recca::UKEnergy2000mats %>%
               tidyr::pivot_wider(names_from = matrix.name,
                                  values_from = matrix) %>%
               dplyr::mutate(Method = "PCM") %>%
               calculate_fu_ex_sector(fd_sectors = c("Residential"))

MatthewHeun/SEAPSUTWorkflow documentation built on April 22, 2022, 2:21 p.m.