• R/O
  • SSH

Commit

Tags
No Tags

Frequently used words (click to add to your profile)

javac++androidlinuxc#windowsobjective-ccocoa誰得qtpythonphprubygameguibathyscaphec計画中(planning stage)翻訳omegatframeworktwitterdomtestvb.netdirectxゲームエンジンbtronarduinopreviewer

Commit MetaInfo

Revisãoc57a57167e7885829874fc2e4dc2fbac0935d3a1 (tree)
Hora2024-12-18 21:02:11
AutorLorenzo Isella <lorenzo.isella@gmai...>
CommiterLorenzo Isella

Mensagem de Log

I added extra stats.

Mudança Sumário

Diff

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 @@
434434
435435 sector_count_raw <- df_recent_clean_nace_no_covid_ukr$all_sec|>tabyl_new()|>arrange(desc(n))
436436
437+count_nace_codes <- df_recent_clean_nace_no_covid_ukr |>
438+ group_by(expenditure_year) |>
439+ count(all_sec) |>
440+ mutate(share=n/sum(n)) |>
441+ ungroup() |>
442+ arrange(desc(expenditure_year), desc(n))
443+
444+
445+count_nace_codes_wide <- count_nace_codes |>
446+ rename("number_occurrences"="n") |>
447+ pivot_wider(values_from=c(number_occurrences, share), names_from=expenditure_year)
448+
449+
450+save_excel(count_nace_codes_wide, "../output/sectors_no_covid_no_ukraine.xlsx")
451+
437452 df_sec_temp_no_covid_ukr <- extract_nace_codes(df_recent_clean_nace_no_covid_ukr$all_sec)
438453
439454 aid_by_many_sectors <- df_recent_clean_nace_no_covid_ukr |>