| 修订版 | 1535d26a7cf11578a8d4594a638a6acca449d685 (tree) |
|---|---|
| 时间 | 2022-04-06 19:47:51 |
| 作者 | Lorenzo Isella <lorenzo.isella@gmai...> |
| Commiter | Lorenzo Isella |
I modified the script to handle the new version of the scoreboard.
R-codes/table_scoreboard.R (diff)| @@ -1,6 +1,6 @@ | ||
| 1 | 1 | rm(list=ls()) |
| 2 | 2 | |
| 3 | -## last saved on Time-stamp: "2021-04-15 10:21:45 lorenzo" | |
| 3 | +## last saved on Time-stamp: "2022-04-06 12:34:57 lorenzo" | |
| 4 | 4 | |
| 5 | 5 | |
| 6 | 6 | library(tidyverse) |
| @@ -46,6 +46,12 @@ | ||
| 46 | 46 | df_ini <- readRDS("scoreboard.RDS") |
| 47 | 47 | |
| 48 | 48 | df <- df_ini %>% |
| 49 | + rename("year"="expenditure_year", | |
| 50 | + "amount_spent_aid_element_in_eur_million" ="aid_element_eur", | |
| 51 | + "case_no"="case_number", | |
| 52 | + "procedure_name"="case_type", | |
| 53 | + "all_objective_names_gber_only"= "all_gber_obj", | |
| 54 | + "aid_instrument_name"="aid_instrument") %>% | |
| 49 | 55 | filter(year==max(year)) %>% |
| 50 | 56 | select(scoreboard_objective,case_no, |
| 51 | 57 | amount_spent_aid_element_in_eur_million, |
Fork