| Revisión | fce4dfa687f4fb7386b25ab5ee8dd065964e63e7 (tree) |
|---|---|
| Tiempo | 2023-04-22 06:18:22 |
| Autor | Lorenzo Isella <lorenzo.isella@gmai...> |
| Commiter | Lorenzo Isella |
I created new tables.
R-codes/process_uk_pan_european.R (diff)| @@ -17,10 +17,28 @@ | ||
| 17 | 17 | |
| 18 | 18 | save_excel(uk_series, "UK-time-series.xlsx") |
| 19 | 19 | |
| 20 | -## uk_series1 <- uk_series |> | |
| 21 | -## select(-aid_element_deflated_mio_eur) |> | |
| 22 | -## pivot_wider(names_from=EXPENDITURE_YEAR, | |
| 23 | -## values_from=aid_element_mio_eur) | |
| 20 | +uk_series1 <- uk_series |> | |
| 21 | + select(-aid_element_deflated_mio_eur) |> | |
| 22 | + pivot_wider(names_from=EXPENDITURE_YEAR, | |
| 23 | + values_from=aid_element_mio_eur, | |
| 24 | + names_sort=T) | |
| 25 | + | |
| 26 | + | |
| 27 | +uk_series2 <- uk_series |> | |
| 28 | + select(-aid_element_mio_eur) |> | |
| 29 | + pivot_wider(names_from=EXPENDITURE_YEAR, | |
| 30 | + values_from=aid_element_deflated_mio_eur, | |
| 31 | + names_sort=T) | |
| 32 | + | |
| 33 | + | |
| 34 | +uk_series3 <- bind_rows(uk_series1, uk_series2) | |
| 35 | + | |
| 36 | +extra <- tibble(year=c("aid element (MIO EUR) current prices", | |
| 37 | + "aid element (MIO EUR) constant prices")) | |
| 38 | + | |
| 39 | +uk_series4 <- bind_cols(extra, uk_series3) | |
| 40 | + | |
| 41 | +save_excel(uk_series4, "UK-series-wide.xlsx") | |
| 24 | 42 | |
| 25 | 43 | pan_ini <- read_excel("Copy_of_pan_european_guarantee_fund_measures.xlsx") |
| 26 | 44 |
| @@ -29,8 +47,27 @@ | ||
| 29 | 47 | summarise(aid_element_mio_eur=sum(AID_ELEMENT_EUR, na.rm=T), |
| 30 | 48 | aid_element_deflated_mio_eur=sum(AID_ELEMENT_EUR_ADJ, na.rm=T), |
| 31 | 49 | .by=c(EXPENDITURE_YEAR, MEMBER_STATE)) |> |
| 32 | - arrange(MEMBER_STATE,desc(EXPENDITURE_YEAR)) | |
| 50 | + arrange(MEMBER_STATE,desc(EXPENDITURE_YEAR)) |> | |
| 51 | + filter(aid_element_mio_eur!=0 & aid_element_deflated_mio_eur!=0) | |
| 33 | 52 | |
| 34 | 53 | save_excel(pan_agg, "pan-european_fund.xlsx") |
| 35 | 54 | |
| 55 | +pan_agg_wide_current <- pan_agg |> | |
| 56 | + clean_names() |> | |
| 57 | + select(-aid_element_deflated_mio_eur) |> | |
| 58 | + pivot_wider(names_from=expenditure_year, | |
| 59 | + values_from=aid_element_mio_eur, values_fill=0, | |
| 60 | + names_sort=T) | |
| 61 | + | |
| 62 | + | |
| 63 | +save_excel(pan_agg_wide_current, "pan_european_wide.xlsx", "pan_European_fund_MIO_EUR") | |
| 64 | + | |
| 65 | +pan_agg_wide_constant <- pan_agg |> | |
| 66 | + clean_names() |> | |
| 67 | + select(-aid_element_mio_eur) |> | |
| 68 | + pivot_wider(names_from=expenditure_year, | |
| 69 | + values_from=aid_element_deflated_mio_eur, values_fill=0, | |
| 70 | + names_sort=T) | |
| 71 | + | |
| 72 | + | |
| 36 | 73 | print("So far so good") |
Fork