select ejemplo seleccionar columnas

load("C:/Users/Patrick/Desktop/ues2020/metodos/data_comercio_exterior_agosto_2020.RData")

library(dplyr)
library(kableExtra) 
data_comercio_exterior_agosto_2020 %>%
  select("pais", "sac","anio","mes","valor_cif") %>% 
  head() %>% kable(caption = "Ejemplo 1") %>% kable_minimal()
Ejemplo 1
pais sac anio mes valor_cif
Afganistan 4010390000 2017 4 58.06
Afganistan 6812999000 2017 4 88.38
Afganistan 8487900000 2017 4 20.93
Afganistan 8511800000 2017 4 98.93
Afganistan 8708930000 2017 4 62.18
Afganistan 9028200000 2017 4 130.06

filter ejemplo 1 selecciona todas las transacciones de X 2019 con Honduras y Guatemala >100,000

library(kableExtra)
library(dplyr)
data_comercio_exterior_agosto_2020 %>%
  select("pais","sac","anio","mes","valor_fob") %>%
  filter(anio=="2019", pais %in% c("Guatemala","Honduras"),valor_fob>100000)%>% 
  head() %>% kable(caption = "Ejemplo 1") %>% kable_minimal()
Ejemplo 1
pais sac anio mes valor_fob
Guatemala 0105110000 2019 1 402629.0
Guatemala 0403109000 2019 1 333543.0
Guatemala 0406202000 2019 1 727621.4
Guatemala 0406909000 2019 1 161110.7
Guatemala 1101000000 2019 1 561071.4
Guatemala 1102200000 2019 1 439247.5

ejemplo 2 selecciona todas las transacciones de XM para el ultimo trimestre de cada anio disponible en el dataframe con Mexico

library(kableExtra)
library(kableExtra)
data_comercio_exterior_agosto_2020 %>% 
  filter(pais=="Mexico",mes %in% 10:12)%>% 
  head() %>% kable(caption = "Ejemplo 2") %>% kable_minimal()
Ejemplo 2
pais sac anio mes valor_cif kilogramos_importaciones valor_fob kilogramos_exportaciones
Mexico 0402991000 2017 10 330.77 31.20 0 0
Mexico 0403109000 2017 10 51405.81 41599.26 0 0
Mexico 0406109000 2017 10 29547.08 8375.40 0 0
Mexico 0406909000 2017 10 38576.24 17346.65 0 0
Mexico 0703101200 2017 10 78626.28 536662.00 0 0
Mexico 0703101300 2017 10 4958.50 45500.00 0 0

ejemplo 3 selecciona todas las transacciones de XM para el ultimo trimestre de cada anio disponible en el dataframe excluyendo Mexico, Canada y Estados Unidos

library(kableExtra)
library(purrr)
`%not_in%` <- purrr::negate(`%in%`) 
data_comercio_exterior_agosto_2020 %>% 
  filter(mes %in% 10:12,
         pais %not_in% c("Canada","Mexico","Estados Unidos (U.S.A.)"))%>% 
  head() %>% kable(caption = "Ejemplo 2") %>% kable_minimal()
Ejemplo 2
pais sac anio mes valor_cif kilogramos_importaciones valor_fob kilogramos_exportaciones
Afganistan 6913100000 2017 12 650.43 5.49 0 0
Afganistan 7326209000 2017 12 2.00 0.01 0 0
Afganistan 6104220000 2018 10 3153.37 2407.61 0 0
Afganistan 6104620000 2018 10 946.01 722.28 0 0
Afganistan 6105100000 2018 10 9405.39 7181.03 0 0
Afganistan 6106100000 2018 10 1353.32 1725.55 0 0

mutate ejemplo 1 calcular saldo Balanza Comercial para todas las transacciones disponibles en DataFrame

library(kableExtra)
data_comercio_exterior_agosto_2020 %>% 
  mutate(saldo_bc=valor_fob-valor_cif) %>% 
  select("pais","sac","anio","mes","saldo_bc")%>% 
  head() %>% kable(caption = "Ejemplo 1") %>% kable_minimal()
Ejemplo 1
pais sac anio mes saldo_bc
Afganistan 4010390000 2017 4 -58.06
Afganistan 6812999000 2017 4 -88.38
Afganistan 8487900000 2017 4 -20.93
Afganistan 8511800000 2017 4 -98.93
Afganistan 8708930000 2017 4 -62.18
Afganistan 9028200000 2017 4 -130.06

ejemplo 2 calcular XM como porcentaje del comercio Total, mostrar solo las que registran X

library(kableExtra)
options(scipen = 99999)
data_comercio_exterior_agosto_2020 %>% 
  mutate(Xpt=round(valor_fob/(valor_cif+valor_fob)*100,2),
         Mpt=round(valor_cif/(valor_cif+valor_fob)*100,2)) %>% 
  select("pais","sac","anio","mes","Xpt","Mpt") %>% filter(Xpt>0)%>% 
  head() %>% kable(caption = "Ejemplo 2") %>% kable_minimal()
Ejemplo 2
pais sac anio mes Xpt Mpt
Afganistan 3004909100 2019 9 100.00 0.00
Albania 1701140000 2019 2 100.00 0.00
Alemania 0602100000 2017 1 98.34 1.66
Alemania 0901113000 2017 1 100.00 0.00
Alemania 3203000000 2017 1 100.00 0.00
Alemania 3923409000 2017 1 100.00 0.00

arrange ejemplo ordenar resultados ejemplo 2 de mutate mostrando informacion mas reciente

library(kableExtra)
options(scipen = 99999)
data_comercio_exterior_agosto_2020 %>% 
  mutate(Xpt=round(valor_fob/(valor_cif+valor_fob)*100,2),
         Mpt=round(valor_cif/(valor_cif+valor_fob)*100,2)) %>% 
  select("pais","sac","anio","mes","Xpt","Mpt") %>% 
  filter(Xpt>0) %>%
  arrange(desc(anio),desc(mes))%>% 
  head() %>% kable(caption = "Ejemplo ") %>% kable_minimal()
Ejemplo
pais sac anio mes Xpt Mpt
Alemania 0106200000 2020 8 100.00 0.00
Alemania 0901113000 2020 8 100.00 0.00
Alemania 0901210000 2020 8 100.00 0.00
Alemania 1604149000 2020 8 100.00 0.00
Alemania 3808930000 2020 8 96.69 3.31
Alemania 4202910000 2020 8 100.00 0.00

summarise ejemplo 1 totales anuales de MX

library(kableExtra)
data_comercio_exterior_agosto_2020 %>% 
  group_by(anio) %>%
  summarise(`Total Exportaciones MM US$`=sum(valor_fob)/1e6,
            `Total Importaciones MM US$`=sum(valor_cif)/1e6)%>% 
  head() %>% kable(caption = "Ejemplo 1") %>% kable_minimal()
Ejemplo 1
anio Total Exportaciones MM US$ Total Importaciones MM US$
2017 5760.015 10571.509
2018 5904.627 11829.783
2019 5943.316 12017.559
2020 3093.269 6616.028

Ejemplo 2 totales anuales MX por pais

library(kableExtra)
data_comercio_exterior_agosto_2020 %>% 
  group_by(pais,anio) %>%
  summarise(`Total Exportaciones`=sum(valor_fob),
            `Total Importaciones`=sum(valor_cif))%>% 
  head() %>% kable(caption = "Ejemplo 2") %>% kable_minimal()
Ejemplo 2
pais anio Total Exportaciones Total Importaciones
Afganistan 2017 0.00 1110.97
Afganistan 2018 0.00 23573.11
Afganistan 2019 382.13 13113.77
Afganistan 2020 0.00 843.55
Albania 2017 0.00 12643.03
Albania 2018 0.00 18307.36