提交: 439429466c2c3e20b225add08fabf83079083e55 - myprojects-hg-reborn (hg)

Commit MetaInfo

• 修订版: 439429466c2c3e20b225add08fabf83079083e55 (tree)
• 时间: 2024-12-02 19:00:38
• 作者: Lorenzo Isella <lorenzo.isella@gmai...>
• Commiter: Lorenzo Isella

Log Message

I merged some heads

更改概述

• add: R-codes/filter_case_at_ec.R

差异

diff -r c2b9c3acada6 -r 439429466c2c R-codes/filter_case_at_ec.R
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/R-codes/filter_case_at_ec.R	Mon Dec 02 11:00:38 2024 +0100
@@ -0,0 +1,71 @@
+rm(list=ls())
+
+library(tidyverse)
+library(janitor)
+library(openxlsx)
+## library(stringr)
+
+source("/home/lorenzo/myprojects-hg/R-codes/stat_lib.R")
+
+
+df_ec <- read_csv("../input/SA-Case_Full_Extract_Case_EC_2024-11-1511-06-55.csv.gz") |>
+    clean_names()
+
+## keep only the cases for which a decision has been taken
+
+df_filtered <- df_ec |>
+    filter(decision_type_article %in% c("Article 4(3) - decision not to raise objections", "Article 7(3) - positive decision"  ),
+           member_state_long_name!="United Kingdom") |>
+    mutate(new_objective=paste(primary_objective, secondary_objective, sep=" "))
+
+
+## first chunk: remedy for a serious disturbance in the economy as
+## objective, but do not consider the cases related to the TCF, TCTF and Covid
+
+sa <- "SA.100264"
+
+
+df_filtered_condition1 <- df_filtered |>
+    filter(str_detect(new_objective, "Remedy for a serious disturbance in the economy")) |>
+    filter(internal_qualifier_s %!in% c("Temporary Crisis and Transition Framework (TCTF)","Temporary Crisis Framework (TCF)" , "Covid19-TF" ))
+
+t1 <- df_filtered_condition1 |>
+    filter(case_reference == sa)
+
+
+##second chunk: keep cases where the internal qualifier is the financial
+## crisis case.
+
+df_filtered_condition2 <- df_filtered |>
+    filter(internal_qualifier_s  %in% "Financial crisis case"      )
+
+t2 <- df_filtered_condition2 |>
+    filter(case_reference == sa)
+
+
+## third chunk: keep the bit about the temporart framework
+
+df_filtered_condition3 <- df_filtered |>
+    filter(str_detect(internal_qualifier_s,"Temporary Framework" ))
+
+t3 <- df_filtered_condition3 |>
+    filter(case_reference == sa)
+
+
+
+df_out <- bind_rows(df_filtered_condition1,
+                    df_filtered_condition2,
+                    df_filtered_condition3) |>
+    filter(!is.na(internal_qualifier_s))
+
+
+df_out_simple <- df_out |>
+    select(case_reference, internal_qualifier_s,case_title,member_state_long_name, new_objective, case_title ) |>
+    distinct() |>
+    arrange(case_reference)
+
+
+save_excel(df_out_simple, "../output/cases_to_filter.xlsx")
+
+
+print("So far so good")