From 8a885886fc5fb2a19388a505d77a80c6ace046d7 Mon Sep 17 00:00:00 2001 From: WesIngwersen Date: Wed, 8 Jan 2025 08:24:36 -0500 Subject: [PATCH] Add share of CBE by region as percentages into text of StateCBE --- examples/StateCBE.Rmd | 8 ++++++++ 1 file changed, 8 insertions(+) diff --git a/examples/StateCBE.Rmd b/examples/StateCBE.Rmd index 572bf8a..6e82ea4 100644 --- a/examples/StateCBE.Rmd +++ b/examples/StateCBE.Rmd @@ -273,6 +273,14 @@ p <- p + p ``` +```{r sharesbyregion, include=FALSE} +soi_share <- round(sum(cbe_agg_soi)/sum(cbe_agg),2) +rous_share <- round(sum(cbe_agg_rous)/sum(cbe_agg),2) +row_share <- round(sum(cbe_agg_row)/sum(cbe_agg),2) +``` + +The shares of CBE by region of origin of the goods and services consumed is: `r state_name`:`r soi_share * 100`%; RoUS:`r rous_share * 100`%; RoW:`r row_share * 100`%. Note that estimate includes household emissions which are by definition associated with the state. + Within the manufacturing sector, the contributions of categories of goods and their sources can be examined in greater depth. Figure \@ref(fig:cbebysectorman) shows the CBE of `r state_name` for manufactured goods consumed and by region of origin of the goods for year `r focal_year`.