PV18021_REPETIDO

{r setup, include=FALSE} knitr::opts_chunk$set(echo = TRUE)

{r setup, include=FALSE} knitr::opts_chunk$set(echo = TRUE)

{r setup, include=FALSE} knitr::opts_chunk$set(echo = TRUE)

#Ejercicio 1: Elabore una función que se llame totales_pais_anios, que use como argumento el código de país iso de tres caracteres, para elegir el socio comercial de El Salvador, y permita obtener las Exportaciones y las Importaciones para un periodo específico.

load("C:/Users/50379/Downloads/Debee Berenice Pérez Vides - data_parcial_1_2021.RData")
source(file="Econometria/MAE/funciones_comercio_exterior.R")

options(scipen=999)
library(dplyr)
library(readxl)
load("C:/Users/50379/Downloads/Debee Berenice Pérez Vides - data_parcial_1_2021.RData")
nombre_archivo<-nombres_iso_paises
nombres_iso_paises<- nombre_archivo
data_comercio_exterior %>%
  left_join(nombres_iso_paises, 
            by= c("pais"="nom_pais_esp"))->data_comercio_exterior
totales_pais_anios<- function(iso_3,anio) { 
data_comercio_exterior %>%
  filter(iso_3=="iso_3",anio==!!anio) %>%
  group_by(anio) %>%
  summarise(Exportaciones=sum(valor_fob)/1e6,
            Importaciones=sum(valor_cif)/1e6)->Resultado
  Resultado
}

#Ejercicio 2: Usando la función creada en el ejercicio 1 y los comandos que sean necesarios, genere la siguiente tabla: (nota ratio es el cociente entre Importaciones y Exportaciones) PAN= Panama, BLZ= Belice

library(kableExtra)

options(scipen=999)
library(dplyr)
library(readxl)
load("C:/Users/50379/Downloads/Debee Berenice Pérez Vides - data_parcial_1_2021.RData")
nombre_archivo<-nombres_iso_paises
nombres_iso_paises<- nombre_archivo
data_comercio_exterior %>%
  left_join(nombres_iso_paises, 
            by= c("pais"="nom_pais_esp"))->data_comercio_exterior
data_comercio_exterior %>%
  filter(iso_3=="PAN",anio==2017:2020) %>%
  group_by(anio) %>% summarise(`Exportaciones_PAN`= sum(valor_fob)/1e6,
            `Importaciones_PAN`= sum(valor_cif)/1e6) %>%
  mutate(`Balanza Comercial_PAN`= Exportaciones_PAN - Importaciones_PAN) %>%
  select("anio", "Importaciones_PAN", "Exportaciones_PAN","Balanza Comercial_PAN") %>% head() %>%
  kable(
    caption = "Exportaciones e Importaciones y Saldo de la Balanza Comercial de El Salvador con Panama del periodo de 2017 a 2020")%>%
  footnote(general_title = "**Fuente**:",
           general = "Elaboración propia con base en datos del BCR.")

library(kableExtra)
options(scipen=999)
library(dplyr)
library(readxl)
load("C:/Users/50379/Downloads/Debee Berenice Pérez Vides - data_parcial_1_2021.RData")
nombre_archivo<-nombres_iso_paises
nombres_iso_paises<- nombre_archivo
data_comercio_exterior %>%
  left_join(nombres_iso_paises, 
            by= c("pais"="nom_pais_esp"))->data_comercio_exterior
data_comercio_exterior %>%
  filter(iso_3=="BLZ",anio==2017:2020) %>%
  group_by(anio) %>% summarise(`Exportaciones_BLZ`= sum(valor_fob)/1e6,
            `Importaciones_BLZ`= sum(valor_cif)/1e6) %>%
  mutate(`Balanza Comercial_BLZ`= Exportaciones_BLZ - Importaciones_BLZ) %>%
  select("anio", "Importaciones_BLZ", "Exportaciones_BLZ","Balanza Comercial_BLZ") %>% head() %>%
  kable(
    caption = "Exportaciones e Importaciones y Saldo de la Balanza Comercial de El Salvador con Honduras del periodo de 2017 a 2020")%>%
  footnote(general_title = "**Fuente**:",
           general = "Elaboración propia con base en datos del BCR.")