Commit: b275397f4b8e2767da49c7cd80ee0acb295f7515 - myprojects-hg-reborn (hg)

Commit MetaInfo

• Revision: b275397f4b8e2767da49c7cd80ee0acb295f7515 (tree)
• Time: 2020-08-03 20:18:14
• Author: Lorenzo Isella <lorenzo.isella@gmai...>
• Commiter: Lorenzo Isella

Log Message

I now work with the data with outlier correction.

Change Summary

• modified: R-codes/generate_taxud_report.R

Incremental Difference

diff -r 2c034294930c -r b275397f4b8e R-codes/generate_taxud_report.R
--- a/R-codes/generate_taxud_report.R	Thu Jul 30 16:27:39 2020 +0200
+++ b/R-codes/generate_taxud_report.R	Mon Aug 03 13:18:14 2020 +0200
@@ -120,7 +120,7 @@
 
 df_out1 <- df %>%
     filter(reporterid %in% df_eu27$iso2, partnerid=="Extra-EU28",
-           productid=="all_products" , tag %in% c("common", "raw") ) %>%
+           productid=="all_products" , tag %in% c("common", "clean") ) %>%
     group_by(reporterid, year) %>%
     summarise(total_imports=sum(iv)) %>%
     ungroup %>%
@@ -243,7 +243,7 @@
 
 
 df_out2 <- df %>%
-    filter(reporterid=="EU27", productid=="27", tag %in% c("common", "raw")) %>%
+    filter(reporterid=="EU27", productid=="27", tag %in% c("common", "clean")) %>%
     group_by(year, partnerid) %>%
     summarise(imports_27=sum(iv)) %>%
     ungroup %>%
@@ -386,7 +386,7 @@
 
 
 df_out3 <- df %>%
-    filter(reporterid=="EU27", partnerid=="CN", tag %in% c("common", "raw")) %>%
+    filter(reporterid=="EU27", partnerid=="CN", tag %in% c("common", "clean")) %>%
     group_by(year, productid) %>%
     summarise(imports_eu27=sum(iv, na.rm=T)) %>%
     ungroup  %>% 
@@ -524,7 +524,7 @@
 
 
 df_out4 <- df %>%
-    filter(reporterid=="EU27", productid=="all_products", tag %in% c("common", "raw")) %>%
+    filter(reporterid=="EU27", productid=="all_products", tag %in% c("common",  "clean")) %>%
     group_by(year, partnerid) %>%
     summarise(imports_27=sum(iv)) %>%
     ungroup %>%
@@ -740,7 +740,8 @@
 
 
 p1 <- df %>%
-    filter(reporterid=="EU27", partnerid=="Extra-EU28", tag %in% c("common", "raw"), productid=="all_products")  %>%
+    filter(reporterid=="EU27", partnerid=="Extra-EU28", tag %in% c("common",
+                                              "clean"), productid=="all_products")  %>%
     mutate(year=as.factor(year))
 
   
@@ -817,7 +818,7 @@
 
 
 p2 <- df %>%
-    filter(reporterid=="EU27", partnerid=="CN", tag %in% c("common", "raw"), productid=="all_products")  %>%
+    filter(reporterid=="EU27", partnerid=="CN", tag %in% c("common", "clean"), productid=="all_products")  %>%
     mutate(year=as.factor(year))
 
   
@@ -884,7 +885,7 @@
 
 
 p3 <- df %>%
-    filter(reporterid=="EU27", partnerid=="US", tag %in% c("common", "raw"), productid=="all_products")  %>%
+    filter(reporterid=="EU27", partnerid=="US", tag %in% c("common", "clean"), productid=="all_products")  %>%
     mutate(year=as.factor(year))
 
   
@@ -952,7 +953,7 @@
 
 
 p4 <- df %>%
-    filter(reporterid=="EU27", partnerid=="CH", tag %in% c("common", "raw"), productid=="all_products")  %>%
+    filter(reporterid=="EU27", partnerid=="CH", tag %in% c("common", "clean"), productid=="all_products")  %>%
     mutate(year=as.factor(year))
 
   
@@ -1017,7 +1018,7 @@
 
 
 p5 <- df %>%
-    filter(reporterid=="EU27", partnerid=="RU", tag %in% c("common", "raw"), productid=="all_products")  %>%
+    filter(reporterid=="EU27", partnerid=="RU", tag %in% c("common", "clean"), productid=="all_products")  %>%
     mutate(year=as.factor(year))