add GDP PPP / population

pik-piam · Dec 12, 2023 · 5cae064 · 5cae064
1 parent f60e10b
commit 5cae064
Showing 1 changed file with 6 additions and 4 deletions.
diff --git a/inst/markdown/compareScenarios2/cs2_02_macro.Rmd b/inst/markdown/compareScenarios2/cs2_02_macro.Rmd
@@ -248,16 +248,18 @@ kaya <-
     emiCO2_by_FE = `Emi|CO2|Energy` / FE,
     FE_by_GDP_MER = FE / `GDP|MER`,
     FE_by_GDP_PPP = FE / `GDP|PPP`,
-    GDP_by_Pop = `GDP|MER` / Population,
-    `Emi|CO2|Energy` = NULL, FE = NULL, `GDP|MER` = NULL) %>%
+    GDP_MER_by_Pop = `GDP|MER` / Population,
+    GDP_PPP_by_Pop = `GDP|PPP` / Population,
+    `Emi|CO2|Energy` = NULL, FE = NULL, `GDP|MER` = NULL, `GDP|PPP` = NULL) %>%
   pivot_longer(
-    c(emiCO2_by_FE, FE_by_GDP_MER, FE_by_GDP_PPP, GDP_by_Pop, Population),
+    c(emiCO2_by_FE, FE_by_GDP_MER, FE_by_GDP_PPP, GDP_MER_by_Pop, GDP_PPP_by_Pop, Population),
     names_to = "variable",
     values_to = "value")
 kayaUnits <- tribble(
   ~variable, ~unit,
   "Population", "million",
-  "GDP_by_Pop", "billion US$2005/yr/million",
+  "GDP_MER_by_Pop", "billion US$2005/yr/million",
+  "GDP_PPP_by_Pop", "billion US$2005/yr/million",
   "FE_by_GDP_MER", "EJ/billion US$2005",
   "FE_by_GDP_PPP", "EJ/billion US$2005",
   "emiCO2_by_FE", "EJ/Mt CO2")