Commit: c8fe60415f6bc4983d0e30c3799a82ba202c0913 - myprojects-hg-reborn (hg)

Commit MetaInfo

• Révision: c8fe60415f6bc4983d0e30c3799a82ba202c0913 (tree)
• l'heure: 2024-12-18 05:24:24
• Auteur: Lorenzo Isella <lorenzo.isella@gmai...>
• Commiter: Lorenzo Isella

Message de Log

I added some extra sectorial analysis.

Change Summary

• modified: R-codes/sectorial_analysis_scoreboard.R

Modification

diff -r c146acc4435f -r c8fe60415f6b R-codes/sectorial_analysis_scoreboard.R
--- a/R-codes/sectorial_analysis_scoreboard.R	Tue Dec 17 18:26:58 2024 +0100
+++ b/R-codes/sectorial_analysis_scoreboard.R	Tue Dec 17 21:24:24 2024 +0100
@@ -432,9 +432,18 @@
 df_recent_clean_nace_no_covid_ukr <- df_recent_clean_nace |>
     filter(covid==F, ukraine==F)
 
+sector_count_raw <- df_recent_clean_nace_no_covid_ukr$all_sec|>tabyl_new()|>arrange(desc(n))
 
 df_sec_temp_no_covid_ukr <- extract_nace_codes(df_recent_clean_nace_no_covid_ukr$all_sec)
 
+aid_by_many_sectors <- df_recent_clean_nace_no_covid_ukr |>
+    mutate(sector=df_sec_temp_no_covid_ukr$sector) |>
+    group_by(sector) |>
+    summarise(aid_by_sector=sum(aid_element_eur, na.rm=T)) |>
+    ungroup() |>
+    arrange(desc(aid_by_sector)) |>
+    mutate(share=aid_by_sector/sum(aid_by_sector))
+
 
 df_sec_no_covid_ukr <- expenditure_combined_sectors(df_sec_temp_no_covid_ukr,
                all_nace_sectors, df_recent_clean_nace_no_covid_ukr$expenditure_year, df_recent_clean_nace_no_covid_ukr$aid_element_eur )