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

Commit MetaInfo

• Revision: c57a57167e7885829874fc2e4dc2fbac0935d3a1 (tree)
• Time: 2024-12-18 21:02:11
• Author: Lorenzo Isella <lorenzo.isella@gmai...>
• Commiter: Lorenzo Isella

Log Message

I added extra stats.

Change Summary

• modified: R-codes/sectorial_analysis_scoreboard.R

Incremental Difference

diff -r c8fe60415f6b -r c57a57167e78 R-codes/sectorial_analysis_scoreboard.R
--- a/R-codes/sectorial_analysis_scoreboard.R	Tue Dec 17 21:24:24 2024 +0100
+++ b/R-codes/sectorial_analysis_scoreboard.R	Wed Dec 18 13:02:11 2024 +0100
@@ -434,6 +434,21 @@
 
 sector_count_raw <- df_recent_clean_nace_no_covid_ukr$all_sec|>tabyl_new()|>arrange(desc(n))
 
+count_nace_codes <- df_recent_clean_nace_no_covid_ukr |>
+    group_by(expenditure_year) |>
+    count(all_sec)  |>
+    mutate(share=n/sum(n)) |> 
+    ungroup() |>
+    arrange(desc(expenditure_year), desc(n))
+    
+
+count_nace_codes_wide <- count_nace_codes |>
+    rename("number_occurrences"="n") |> 
+    pivot_wider(values_from=c(number_occurrences, share), names_from=expenditure_year)
+
+
+save_excel(count_nace_codes_wide, "../output/sectors_no_covid_no_ukraine.xlsx")
+
 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 |>