MA15003 Comercio

library(readr)
library(dplyr)
library(kableExtra) ##Tablas de comercio
#Base de datos
setwd("C:/Users/ileom/OneDrive/Escritorio/Comercio MA15003/M")
##Nombres de los archivos en el directorio de trabajo (archivos a leer)

archivos.importar<-list.files()
#Archivos del escritorio de trabajo
lista.M<-lapply(archivos.importar,
                FUN = read_delim,delim= "|",
                col_names=c("Pais", "Sac","Anio", "Mes", "Valor_Cif", "Kilogramos"),
                col_type=cols(Pais="c",
                              Sac="c",
                              Anio="d",
                            Valor_Cif="d",
                            Kilogramos="d"),
                skip=1)
##Archivos en un solo dataframe
datos.importacion<-bind_rows(lista.M)
#Mostrar datos en formate HTML (para publicar)
datos.importacion %>% head() %>% kable(caption= "El Salvador: Base de importaciones 2017-2020 (hasta Julio)",
                                       align = "c") %>%
  add_footnote(label = "Elaboracion propia con base en datos del BCR",
               notation = "symbol") %>% kable_styling()

El Salvador: Base de importaciones 2017-2020 (hasta Julio)
Pais	Sac	Anio	Mes	Valor_Cif	Kilogramos
<html>	NA	NA	NA	NA	NA
<head>	NA	NA	NA	NA	NA
<meta charset=“utf-8” />	NA	NA	NA	NA	NA
<meta name=“generator” content=“pandoc” />	NA	NA	NA	NA	NA
<meta http-equiv=“X-UA-Compatible” content=“IE=EDGE” />	NA	NA	NA	NA	NA
<meta name=“author” content=“Iris Marquez” />	NA	NA	NA	NA	NA
^* Elaboracion propia con base en datos del BCR

##EXPORTACIONES 2017-2020 hasta Julio

library(readr)
library(dplyr)
library(kableExtra) ##Tablas de comercio
#Base de datos
setwd("C:/Users/ileom/OneDrive/Escritorio/Comercio MA15003/X")
archivos.importar<-list.files()
#Archivos del escritorio de trabajo
lista.X<-lapply(archivos.importar,
                FUN = read_delim,delim= "|",
                col_names=c("Pais", "Sac","Anio", "Mes", "Valor_Cif", "Kilogramos"),
                col_type=cols(Pais="c",
                              Sac="c",
                              Anio="d",
                            Valor_Cif="d",
                            Kilogramos="d"),
                skip=1)
##Archivos en un solo dataframe
datos.exportacion<-bind_rows(lista.X)
#Mostrar datos en formate HTML (para publicar)
datos.exportacion %>% head() %>% kable(caption= "El Salvador: Base de Exportaciones 2017-2020 (hasta Julio)",
                                       align = "c") %>%
  add_footnote(label = "Elaboracion propia con base en datos del BCR",
               notation = "symbol") %>% kable_styling()

El Salvador: Base de Exportaciones 2017-2020 (hasta Julio)
Pais	Sac	Anio	Mes	Valor_Cif	Kilogramos
Canada	0106190000	2017	02	100.00	26.0
Canada	0106190000	2017	06	580.00	10.0
Canada	0106900000	2017	01	3491.55	11.0
Canada	0106900000	2017	02	4791.20	14.0
Canada	0106900000	2017	03	5516.00	17.0
Canada	0106900000	2017	04	5019.50	14.5
^* Elaboracion propia con base en datos del BCR

##Convertir a R.

library(dplyr)
library(tidyr)

## Warning: package 'tidyr' was built under R version 3.6.3

library(kableExtra)
## Unir tablas Datos M & Datos X
datos.importacion %>% full_join(
  datos.exportacion,
  by=c("Pais", "Sac", "Anio", "Mes"),
  suffix=c("_IMPORTACIONES", "_EXPORTACIONES"))->DATOS_COMERCIO_EXTERIOR

#Sustituir los valores nulos NA y guardar el mismo  objeto
DATOS_COMERCIO_EXTERIOR %>% replace_na(list(Valor_Cif=0,
                                            Valor_FOB=0,
                                            Kilogramos_IMPORTACIONES=0,
                                  Kilogramos_EXPORTACIONES=0)) %>% 
  arrange(Pais,Anio,Mes,Sac) ->DATOS_COMERCIO_EXTERIOR #La asignacion final de la instruccion

##Ver tabla (primeros 6 elementos)
DATOS_COMERCIO_EXTERIOR %>% head() %>% 
  kable(caption = "Base comercio exterior 2017-2020 (julio)",                       align ="c") %>%
  add_footnote(label = "Elaboracion propia con base datos de BCR", notation = "symbol") %>% kable_styling()

Base comercio exterior 2017-2020 (julio)
Pais	Sac	Anio	Mes	Valor_Cif_IMPORTACIONES	Kilogramos_IMPORTACIONES	Valor_Cif_EXPORTACIONES	Kilogramos_EXPORTACIONES
—	NA	NA	NA	NA	0	NA	0
—	NA	NA	NA	NA	0	NA	0
FUN = read_delim,delim= "	, col_names=c(“Pais”, “Sac”,“Anio”, “Mes”, “Valor_Cif”, “Kilogramos”), col_type=cols(Pais=“c”, Sac=“c”, Anio=“d”, Valor_Cif=“d”, Kilogramos=“d”), skip=1) ##Archivos en un solo dataframe datos.importacion<-bind_rows(lista.M) #Mostrar datos en formate HTML (para publicar) datos.importacion %>% head() %>% kable(caption= “El Salvador: Base de importaciones 2017-2020 (hasta Julio)”, align = “c”) %>% add_footnote(label = “Elaboracion propia con base en datos del BCR”, notation = “symbol”) %>% kable_styling() ##EXPORTACIONES 2017-2020 hasta Julio ```{r,echo=TRUE, eval=TRUE, message=FALSE, warning=FALSE} library(readr) library(dplyr) library(kableExtra) ##Tablas de comercio #Base de datos setwd("C:/Users/ileom/OneDrive/Escritorio/Comercio MA15003/X") archivos.importar<-list.files() #Archivos del escritorio de trabajo lista.X<-lapply(archivos.importar, FUN = read_delim,delim= </td> <td style="text-align:center;"> NA </td> <td style="text-align:center;"> NA </td> <td style="text-align:center;"> NA </td> <td style="text-align:center;"> 0 </td> <td style="text-align:center;"> NA </td> <td style="text-align:center;"> 0 </td> </tr> <tr> <td style="text-align:center;"> FUN = read_delim,delim= " </td> <td style="text-align:center;"> , col_names=c("Pais", "Sac","Anio", "Mes", "Valor_Cif", "Kilogramos"), col_type=cols(Pais="c", Sac="c", Anio="d", Valor_Cif="d", Kilogramos="d"), skip=1) ##Archivos en un solo dataframe datos.importacion<-bind_rows(lista.M) #Mostrar datos en formate HTML (para publicar) datos.importacion %>% head() %>% kable(caption= "El Salvador: Base de importaciones 2017-2020 (hasta Julio)", align = "c") %>% add_footnote(label = "Elaboracion propia con base en datos del BCR", notation = "symbol") %>% kable_styling() ##EXPORTACIONES 2017-2020 hasta Julio ```{r,echo=TRUE, eval=TRUE, message=FALSE, warning=FALSE} library(readr) library(dplyr) library(kableExtra) ##Tablas de comercio #Base de datos setwd(“C:/Users/ileom/OneDrive/Escritorio/Comercio MA15003/X”) archivos.importar<-list.files() #Archivos del escritorio de trabajo lista.X<-lapply(archivos.importar, FUN = read_delim,delim=	NA	NA	NA	0	NA	0
!function(a,b){“object”==typeof module&&“object”==typeof module.exports?module.exports=a.document?b(a,!0):function(a){if(!a.document)throw new Error(“jQuery requires a window with a document”);return b(a)}:b(a)}(“undefined”!=typeof window?window:this,function(a,b){var c=[],d=c.slice,e=c.concat,f=c.push,g=c.indexOf,h={},i=h.toString,j=h.hasOwnProperty,k={},l=“1.11.3”,m=function(a,b){return new m.fn.init(a,b)},n=/¹+	[0]+$/g,o=/^-ms-/,p=/-([-z])/gi,q=function(a,b){return b.toUpperCase()};m.fn=m.prototype={jquery:l,constructor:m,selector:"",length:0,toArray:function(){return d.call(this)},get:function(a){return null!=a?0>a?this[a+this.length]:this[a]:d.call(this)},pushStack:function(a){var b=m.merge(this.constructor(),a);return b.prevObject=this,b.context=this.context,b},each:function(a,b){return m.each(this,a,b)},map:function(a){return this.pushStack(m.map(this,function(b,c){return a.call(b,c,b)}))},slice:function(){return this.pushStack(d.apply(this,arguments))},first:function(){return this.eq(0)},last:function(){return this.eq(-1)},eq:function(a){var b=this.length,c=+a+(0>a?b:0);return this.pushStack(c>=0&&b>c?[this[c]]:[])},end:function(){return this.prevObject	NA	this.constructor(null)},push:f,sort:c.sort,splice:c.splice},m.extend=m.fn.extend=function(){var a,b,c,d,e,f,g=arguments[0]	NA	0	NA	0
##Nombres de los archivos en el directorio de trabajo (archivos a leer)	NA	NA	NA	NA	0	NA	0
^* Elaboracion propia con base datos de BCR

0↩︎

MA15003 Comercio

Iris Marquez

9/20/2020