National_2009_EXPORT<-filter(National_2009,FLUX=="E")
### Importation des données brutes
National_2009 <- read.csv2("NATIONAL_DATADOUANE_200912.TXT"
,sep=";", dec=".", header = FALSE, na.strings = FALSE,
col.names=c("FLUX","MOIS","ANNEE","NC8","PYOD","VALEUR","MASSE","USUP",
"CPA6","A129","CTCI5"),
colClasses = c(FLUX="character",MOIS="character",ANNEE="character",NC8="character",
PYOD="character",VALEUR="character",MASSE="character",USUP="character",
CPA6="character",A129="character",CTCI5="character"))
National_2009<-relocate(National_2009,c("FLUX","MOIS","ANNEE","CPA6","A129","NC8",
"PYOD","VALEUR","MASSE","USUP"))
National_2009<-select(National_2009,-CTCI5)
National_2009_IMPORT<-filter(National_2009,FLUX=="I")
National_2009_EXPORT<-filter(National_2009,FLUX=="E")
View(National_2009_IMPORT)
test<-National_2009_IMPORT %>% group_by (PYOD, A129, FLUX, ANNEE, MOIS, CPA6)
test<-National_2009 %>% group_by (PYOD, A129, FLUX, ANNEE, MOIS, CPA6)
test<-National_2009 %>% group_by (PYOD, A129, FLUX, ANNEE, MOIS, CPA6) %>%
summarise(VART=sum(VART,na.rm=FALSE))
test<-National_2009 %>% group_by (PYOD, A129, FLUX, ANNEE, MOIS, CPA6) %>%
summarise(VART=sum(VALEUR,na.rm=FALSE))
National_2009 <- read.csv2("NATIONAL_DATADOUANE_200912.TXT"
,sep=";", dec=".", header = FALSE, na.strings = FALSE,
col.names=c("FLUX","MOIS","ANNEE","NC8","PYOD","VALEUR","MASSE","USUP",
"CPA6","A129","CTCI5"),
colClasses = c(FLUX="character",MOIS="character",ANNEE="character",NC8="character",
PYOD="character",VALEUR="numeric",MASSE="character",USUP="character",
CPA6="character",A129="character",CTCI5="character"))
National_2009<-relocate(National_2009,c("FLUX","MOIS","ANNEE","CPA6","A129","NC8",
"PYOD","VALEUR","MASSE","USUP"))
National_2009<-select(National_2009,-CTCI5)
National_2009_IMPORT<-filter(National_2009,FLUX=="I")
National_2009_EXPORT<-filter(National_2009,FLUX=="E")
test<-National_2009 %>% group_by (PYOD, A129, FLUX, ANNEE, MOIS, CPA6) %>%
summarise(VART=sum(VALEUR,na.rm=FALSE))
test<-National_2009 %>% group_by (PYOD, A129, FLUX, ANNEE, MOIS, CPA6, NC8) %>%
summarise(VART=sum(VALEUR,na.rm=FALSE))
### Importation des données brutes
National_2009 <- read.csv2("NATIONAL_DATADOUANE_200912.TXT"
,sep=";", dec=".", header = FALSE, na.strings = FALSE,
col.names=c("FLUX","MOIS","ANNEE","NC8","PYOD","VALEUR","MASSE","USUP",
"CPA6","A129","CTCI5"),
colClasses = c(FLUX="character",MOIS="character",ANNEE="character",NC8="character",
PYOD="character",VALEUR="character",MASSE="character",USUP="character",
CPA6="character",A129="character",CTCI5="character"))
National_2009<-relocate(National_2009,c("FLUX","MOIS","ANNEE","CPA6","A129","NC8",
"PYOD","VALEUR","MASSE","USUP"))
National_2009<-select(National_2009,-CTCI5)
National_2009_IMPORT<-filter(National_2009,FLUX=="I")
National_2009_EXPORT<-filter(National_2009,FLUX=="E")
write.table(National_2009_IMPORT, file = "National_2009_Import.txt",sep = ";", quote = FALSE,
row.names = FALSE, col.names = FALSE)
write.table(National_2009_EXPORT, file = "National_2009_Export.txt",sep = ";", quote = FALSE,
row.names = FALSE, col.names = FALSE)
#install.packages("pacman")
library(pacman)
pacman::p_load(tidyverse,rio,data.table,janitor,openxlsx)
##################
### Parametres ###
##################
### Package
library(tidyverse)
library(lubridate)
options(scipen = 999)
setwd(dir='Y:/DG_STAT_prive/2_DIFFUSION/SAADI/OPEN_DATA/')
### Importation des données brutes REGIONALES
Regional_2009 <- read.csv2("REGIONAL_DATADOUANE_200912.TXT"
,sep=";", dec=".", header = FALSE, na.strings = FALSE,
col.names=c("FLUX","TRIMESTRE","ANNEE","DEPARTEMENT","REGION","CPA4","PYOD","VALEUR",
"MASSE","A129"),
colClasses = c(FLUX="character",TRIMESTRE="character",ANNEE="character",DEPARTEMENT="character",
REGION="character",CPA4="character",PYOD="character",VALEUR="character",
MASSE="character",A129="character"))
Regional_2009_trav<-relocate(Regional_2009,c("FLUX","TRIMESTRE","ANNEE","DEPARTEMENT","REGION",
"A129","CPA4","PYOD","VALEUR","MASSE"))
View(Regional_2009)
View(Regional_2009_trav)
### Importation des données brutes REGIONALES
Regional_2009 <- read.csv2("REGIONAL_DATADOUANE_200912.TXT"
,sep=";", dec=".", header = FALSE, na.strings = FALSE,
col.names=c("FLUX","TRIMESTRE","ANNEE","DEPARTEMENT","REGION","CPA4","PYOD","VALEUR",
"MASSE","A129"),
colClasses = c(FLUX="character",TRIMESTRE="character",ANNEE="character",DEPARTEMENT="character",
REGION="character",CPA4="character",PYOD="character",VALEUR="character",
MASSE="character",A129="character"))
Regional_2009<-relocate(Regional_2009,c("FLUX","TRIMESTRE","ANNEE","DEPARTEMENT","REGION",
"A129","CPA4","PYOD","VALEUR","MASSE"))
Regional_2009_IMPORT<-filter(Regional_2009,FLUX=="I")
