Skip to contents

Calculate the number of working animals in agriculture and transport

calc_sector_split.Rd

Calculate the split of working animals performing muscle work in agriculture and transport using user-supplied data for the proportion of animals working in agriculture by region and year.

Usage

calc_sector_split(
  .df,
  amw_analysis_data_path = MWTools::amw_analysis_data_path(),
  year = MWTools::mw_cols$year,
  species = MWTools::mw_constants$species,
  method_source = MWTools::mw_constants$method_source,
  metric = MWTools::amw_analysis_constants$metric,
  amw_region_col = MWTools::amw_analysis_constants$amw_region_col,
  amw_region_code_col = MWTools::conc_cols$amw_region_code_col,
  wa_enduse_sheet = MWTools::amw_analysis_constants$wa_enduse_sheet,
  working_animals_total_col = MWTools::amw_analysis_constants$working_animals_total_col,
  working_animals_ag_col = MWTools::amw_analysis_constants$working_animals_ag_col,
  working_animals_tr_col = MWTools::amw_analysis_constants$working_animals_tr_col,
  prop_wkg_anmls_ag_col = MWTools::amw_analysis_constants$prop_wkg_anmls_ag_col,
  prop_wkg_anmls_tr_col = MWTools::amw_analysis_constants$prop_wkg_anmls_tr_col
)

Arguments

.df

A data frame containing the number of working animals. Usually produced by calling the tidy_fao_live_animals, add_concordance_codes, trim_fao_data, get_working_species, and calc_working_animals functions in sequence on the raw FAO data.

amw_analysis_data_path

The path to the animal muscle work analysis data, containing data for the proportion of working animals in agriculture and transport, by species, country, and over time. Set to the function MWTools::amw_analysis_data_path(), by default, which returns the path the analysis data bundled with the MWTools package.

year, species, method_source

See MWTools::mw_constants.

metric, amw_region_col, wa_enduse_sheet, working_animals_total_col, working_animals_ag_col, working_animals_tr_col, prop_wkg_anmls_ag_col, prop_wkg_anmls_tr_col

See MWTools::amw_analysis_constants.

amw_region_code_col

See MWTools::conc_cols.

Examples

working_animals_data <- read.csv(file = MWTools::amw_test_data_path()) %>%
  tidy_fao_live_animals() %>%
  add_concordance_codes() %>%
  trim_fao_data() %>%
  get_working_species() %>%
  calc_working_animals() %>%
  calc_sector_split()