###PARTE 2
##EJERCICIO N°1
totales_pais_anios<-function(ISO){3}
source(file = "Econometria/MAE/funciones_comercio_exterior.R",echo = TRUE,max.deparse.length = 100,encoding = "utf-8")
##
## > options(scipen = 999)
##
## > library(dplyr)
##
## Attaching package: 'dplyr'
## The following objects are masked from 'package:stats':
##
## filter, lag
## The following objects are masked from 'package:base':
##
## intersect, setdiff, setequal, union
##
## > library(readxl)
##
## > library(stringr)
##
## > load("Econometria/MAE/Debee Berenice Pérez Vides - data_parcial_1_2021.RData")
##
## > nombre_archivo <- "C:/Users/50379/Downloads/nombres_iso_paises (1).xlsx"
##
## > nombres_iso_paises <- read_excel(nombre_archivo)
##
## > data_comercio_exterior <- data_comercio_exterior %>%
## + left_join(nombres_iso_paises, by = c(p .... [TRUNCATED]
##
## > herramientas_mostrar_paises <- function() {
## + paises <- nombres_iso_paises %>% select(nom_pais .... [TRUNCATED]
##
## > herramientas_mostrar_regiones <- function() {
## + nombres_iso_paises %>% group_by(region, cod_re .... [TRUNCATED]
##
## > herramientas_mostrar_paises_en_tabla <- function() {
## + data_comercio_exterior %>% group_by(pai .... [TRUNCATED]
##
## > indicadores_IVCR_capitulo <- function(codigo_pais,
## + capitulo, anio) {
## + codigo_pais <- e .... [TRUNCATED]
##
## > indicadores_IVCR_partida <- function(codigo_pais,
## + partida, anio) {
## + codigo_pais <- enq .... [TRUNCATED]
##
## > indicadores_Balassa_capitulo <- function(codigo_pais,
## + capitulo, anio, normalizado = TRUE) { .... [TRUNCATED]
##
## > indicadores_Balassa_partida <- function(codigo_pais,
## + partida, anio, normalizado = TRUE) {
## + .... [TRUNCATED]
##
## > indicadores_IHH_Herfindahl_Hirschmann_anual_texto <- function(codigo_pais,
## + anio, normalizad .... [TRUNCATED]
##
## > indicadores_IHH_Herfindahl_Hirschmann_anual <- function(codigo_pais,
## + anio, normalizado = TR .... [TRUNCATED]
library(kableExtra)
##
## Attaching package: 'kableExtra'
## The following object is masked from 'package:dplyr':
##
## group_rows
herramientas_mostrar_paises() %>% head() %>% kable() %>% kable_material(html_font = "sans-serif")
|
nom_pais_esp
|
codigo_pais
|
region
|
cod_region
|
region_intermedia
|
cod_region_intermedia
|
|
Afganistan
|
4
|
Asia
|
142
|
NA
|
NA
|
|
Albania
|
8
|
Europa
|
150
|
NA
|
NA
|
|
Alemania
|
276
|
Europa
|
150
|
NA
|
NA
|
|
Andorra
|
20
|
Europa
|
150
|
NA
|
NA
|
|
Angola
|
24
|
África
|
2
|
África Central
|
17
|
|
Anguila (R.U.)
|
660
|
Américas
|
19
|
Caribe
|
29
|
library(kableExtra)
herramientas_mostrar_regiones() %>% head() %>% kable() %>% kable_material(html_font = "sans-serif")
## `summarise()` has grouped output by 'region', 'cod_region',
## 'region_intermedia'. You can override using the `.groups` argument.
|
region
|
cod_region
|
region_intermedia
|
cod_region_intermedia
|
# de Paises incluidos
|
|
África
|
2
|
África Central
|
17
|
8
|
|
África
|
2
|
Africa Del Sur
|
18
|
5
|
|
África
|
2
|
África Occidental
|
11
|
16
|
|
África
|
2
|
África Oriental
|
14
|
17
|
|
África
|
2
|
NA
|
NA
|
6
|
|
Américas
|
19
|
Caribe
|
29
|
26
|
library(kableExtra)
herramientas_mostrar_paises_en_tabla() %>% head() %>% kable() %>% kable_material(html_font = "sans-serif")
## `summarise()` has grouped output by 'pais'. You can override using the
## `.groups` argument.
|
pais
|
anio
|
# Transacciones
|
|
Afganistan
|
2017
|
8
|
|
Afganistan
|
2018
|
7
|
|
Afganistan
|
2019
|
10
|
|
Afganistan
|
2020
|
14
|
|
Albania
|
2017
|
26
|
|
Albania
|
2018
|
27
|