| Revision | 9e9cc0803fb34932accb8cca2e87de15dd136129 (tree) |
|---|---|
| Time | 2023-04-20 20:30:50 |
| Author | Lorenzo Isella <lorenzo.isella@gmai...> |
| Commiter | Lorenzo Isella |
I get rid of the lines without MS name.
R-codes/process_survey.R (diff)| @@ -16,6 +16,7 @@ | ||
| 16 | 16 | |
| 17 | 17 | |
| 18 | 18 | df_exp_red <- df_exp_ini |> |
| 19 | + filter(!is.na(member_state)) |> | |
| 19 | 20 | select(member_state, type_of_legal_basis:total_amount_granted_nominal_amount_in_eur_thousand ) |> |
| 20 | 21 | rename("nominal_amount"="total_amount_granted_nominal_amount_in_eur_thousand") |> |
| 21 | 22 | ## mutate(reference_period=excel_numeric_to_date(reference_period)) |> |
| @@ -48,6 +49,7 @@ | ||
| 48 | 49 | |
| 49 | 50 | |
| 50 | 51 | df_ben_red <- df_ben_ini |> |
| 52 | + filter(!is.na(member_state)) |> | |
| 51 | 53 | select( member_state:sm_es) |> |
| 52 | 54 | mutate(large_enterprises=as.numeric(large_enterprises), |
| 53 | 55 | sm_es=as.numeric(sm_es)) |> |
| @@ -65,6 +67,7 @@ | ||
| 65 | 67 | |
| 66 | 68 | |
| 67 | 69 | df_sec_red <- df_sec_ini |> |
| 70 | + filter(!is.na(member_state)) |> | |
| 68 | 71 | select(member_state:u_activities_of_extraterritorial_organisations_and_bodies) |> |
| 69 | 72 | mutate(across(a_agriculture_forestry_and_fishing:u_activities_of_extraterritorial_organisations_and_bodies, ~as.numeric(.x))) |> |
| 70 | 73 | pivot_longer(cols=a_agriculture_forestry_and_fishing:u_activities_of_extraterritorial_organisations_and_bodies, names_to="sector", values_to="expenditure") |> |
| @@ -79,7 +82,8 @@ | ||
| 79 | 82 | mutate(sme_and_large_above_80_percent_expenditure= |
| 80 | 83 | if_else(total>0.8*nominal_amount, "yes", "no")) |> |
| 81 | 84 | mutate(sme_and_large_below_110_percent_expenditure= |
| 82 | - if_else(total<1.1*nominal_amount, "yes", "no")) | |
| 85 | + if_else(total<1.1*nominal_amount, "yes", "no")) |> | |
| 86 | + arrange(member_state, aggregate_basis) | |
| 83 | 87 | |
| 84 | 88 | |
| 85 | 89 | df_ben_comb_agg <- df_ben_comb |> |
| @@ -89,7 +93,8 @@ | ||
| 89 | 93 | mutate(sme_and_large_above_80_percent_expenditure= |
| 90 | 94 | if_else(total>0.8*nominal_amount, "yes", "no"))|> |
| 91 | 95 | mutate(sme_and_large_below_110_percent_expenditure= |
| 92 | - if_else(total<1.1*nominal_amount, "yes", "no")) | |
| 96 | + if_else(total<1.1*nominal_amount, "yes", "no")) |> | |
| 97 | + arrange(member_state, aggregate_basis) | |
| 93 | 98 | |
| 94 | 99 | |
| 95 | 100 |
Fork