Commit: 4dc967d20ad3a260b8a1eadf3b796ea535690b80 - myprojects-hg-reborn (hg)

Commit MetaInfo

• Revision: 4dc967d20ad3a260b8a1eadf3b796ea535690b80 (tree)
• Time: 2022-06-16 23:31:40
• Author: Lorenzo Isella <lorenzo.isella@gmai...>
• Commiter: Lorenzo Isella

Log Message

I added another data cube.

Change Summary

• modified: R-codes/create_csv_sdmx.R

Incremental Difference

diff -r 2e7c50ba10d9 -r 4dc967d20ad3 R-codes/create_csv_sdmx.R
--- a/R-codes/create_csv_sdmx.R	Tue Jun 14 16:17:50 2022 +0200
+++ b/R-codes/create_csv_sdmx.R	Thu Jun 16 16:31:40 2022 +0200
@@ -1180,9 +1180,6 @@
 write_tsv(df_approved_finance_fin_save, "aid_fi_approved+COMP+2.1.sdmx.tsv")
 
 
-print("Done up to here!")
-
-
 #####################################################################
 #####################################################################
 #####################################################################
@@ -1226,6 +1223,81 @@
     summarise(total_obs=sum(OBS_VALUE),
               total_gdp=sum(GDP_mio_eur))
 
+#########################################################################à
+#########################################################################à
+#########################################################################à
+#########################################################################à
+
+df_notified <- df_ini %>%
+    filter(case_type=="Notified Aid") %>%
+    group_by(member_state_2_letter_codes, expenditure_year, scoreboard_objective) %>%
+    summarise(aid_gdp=sum(aid_element_as_percent_national_gdp, na.rm=T),
+              aid_mio_eur=sum(aid_element_eur_bn, na.rm=T)*1e3) %>%
+    ungroup %>%
+    group_by(member_state_2_letter_codes, expenditure_year) %>% 
+    group_modify(~ .x %>%
+                     adorn_totals("row", fill="Total"))  %>%
+    ungroup
+
+
+
+
+objectives_revised_notified <- df_notified %>%
+    select(scoreboard_objective) %>%
+    distinct %>%
+    add_row(scoreboard_objective="Total")  %>%
+    move_row(which(.$scoreboard_objective=="Other"), nrow(.)) 
+
+
+nn <- nrow(objectives_revised_notified)-2
+
+nn_seq <- seq(nn)
+
+
+
+ll <- add_name_format_number("OBJ", nn_seq, 2, "") 
+
+objectives_revised_notified <-objectives_revised_notified %>%
+    mutate(CODE=c(ll, "TOTAL", "OTH")) %>%
+    rename("NAME_en"="scoreboard_objective") %>%
+    select(CODE, NAME_en)
+
+
+
+df_notified_fin_save <- df_notified %>%
+    mutate(scoreboard_objective=recode_many(scoreboard_objective,
+                                       objectives_revised_notified$NAME_en,
+                                         objectives_revised_notified$CODE
+                                         )) %>%
+    pivot_longer(cols=c(aid_gdp, aid_mio_eur)) %>%
+    mutate(DATAFLOW="COMP:AID_NOTI(1.0)",
+           FREQ="A") %>%
+    rename("GEO"="member_state_2_letter_codes",
+           "TIME_PERIOD"="expenditure_year",
+           "UNIT"="name",
+           "OBS_VALUE"="value",
+           "OBJECTIV_SCB"="scoreboard_objective") %>%
+    mutate(UNIT=recode(UNIT,"aid_mio_eur"="MIO_EUR",
+                       "aid_gdp"="PC_GDP")) %>%
+    select("DATAFLOW",
+           "FREQ",
+           "GEO",
+           "UNIT",
+           "OBJECTIV_SCB",
+           "TIME_PERIOD",
+           "OBS_VALUE")
+
+
+write_csv(df_notified_fin_save, "aid_scb_obj_notified+COMP+2.1.sdmx.csv")
+write_tsv(df_notified_fin_save, "aid_scb_obj_notified+COMP+2.1.sdmx.tsv")
+
+
+
+write_csv(objectives_revised_notified,"CL_OBJ_SCB_NOTIFIED+COMP+2.1.csv")
+write_tsv(objectives_revised_notified,"CL_OBJ_SCB_NOTIFIED+COMP+2.1.tsv")
+
+
+