Parte Teorica

1) Explique las formas de acceder al elemento “j” de una lista A que está en la posición “i” de una lista B. nota: el el elemento “j” de la lista A tiene la etiqueta “hijo” y dentro de la lista B, la lista A tiene la etiqueta “padre”

1- LLAMAMOS AL OBJETO “b”
2- LLAMAR AL ELEMENTO “A” DENTRO DE “B”
3- LLAMAR ALARGUMENTO “j” DENTRO DE “A”
ListDato<-list(PADRE=c("hijo","libro","cuaderno"), MADRE=c(4,1,7), escritorio=c(3,7,5))
ListDato$PADRE[1]
## [1] "hijo"

2) Explique ¿como se clasifican las estructuras de datos en R?

Son conjunto de variables que se clasifican segun su dimencion de su estructura, pueden ser homogeneas o heterogeneas.

las homogeneas son estructuras que tienen variables de un solo tipo, como ejemplo seria las de caracteres o solo numericos.

las heterogeneas son estructuras que tienen variables de diferentes tipos, por ejemplo numerico y tambien caracteres.

otras estructuras vector atomico, matrices, array, lista y dataframe.

el vector atomico es de una sola direccion vertical u horizontal que contiene un solo tipo de datos

la lista tiene un conjunto unidimencional de variables de diferentes tipos.

la matriz tiene conjunto de de 2 dimenciones tiene vectores atomicos verticales y horizontales de un solo tipo

el dataframe tambien tiene conjunto bidimencional tiene listas, matrices de diferentes tipos de variables

array tiene conjunto de datos de dimencio “n”

3) Representa graficamente la instruccion right_join(A,B) a través de un diagrama de Venn y explique su significado practico

library(eulerr)
LJoin <- c(A=100,
          B=100 ,
          "A&B"=25)
right_join<- euler(LJoin)
plot(right_join)

El right_join une 2 dataframe A y B, donde B mantiene todos sus datos y solo unira los datos que esten relacionados con A

Parte Practica

load("C:/Users/eckor/OneDrive/Escritorio/Base de datos metodos/Erick Alberto Hernandez Palacios - data_parcial_1_2021.RData")

1) Elabore una función que se llame totales_pais_anios que use como argumentos el codigo de pais iso de tres caracteres, para elegir el socio comercio de El Salvador, y permita obtener las exportaciones y las importaciones para un periodo especifico

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
totales_pais_anios<-function(codigo,periodo){
  Exp_Imp_Total<-data_comercio_exterior %>% 
                  group_by(iso_3,anio) %>% 
                  summarise(Exp= sum(valor_fob), 
                            Imp= sum(valor_cif))
  
  Exp_Imp_Total %>% filter(iso_3==codigo, anio %in% periodo)
}

2) Usando la funcion creada en el ejercicio 1 y los comandos que sean necesarios, genere la tabla siguiente: (nota ratio es el cociente entre importaciones y exportaciones) PAN=Panamá, BLZ=Belice.

library(dplyr)
data_comercio_exterior %>%
  left_join(nombres_iso_paises,
            by=c("pais"="nom_pais_esp"))-> Data_T
library(dplyr)
library(kableExtra)
## 
## Attaching package: 'kableExtra'
## The following object is masked from 'package:dplyr':
## 
##     group_rows
Data_T %>%
  filter(anio %in% 2017:2020, iso_3 == "PAN", valor_fob>0, valor_cif>0) %>%
  group_by(anio)%>%
  summarise(`Exportaciones_PAN`=sum(valor_fob)/1e6, `Importaciones_PAN`=sum(valor_cif)/1e6) %>%
  mutate(Ratio_PAN =`Importaciones_PAN` /`Exportaciones_PAN`) %>%
  select("anio","Exportaciones_PAN","Importaciones_PAN","Ratio_PAN")%>%head() %>%
  kable(caption = "Importaciones e importaciones Panama 2017-2020", aling="l")%>% kable_minimal()  %>% 
  add_footnote(label="Fuente BCR",
               notation="symbol") %>%  kable_minimal()
Importaciones e importaciones Panama 2017-2020
anio Exportaciones_PAN Importaciones_PAN Ratio_PAN
2017 34.86382 14.132167 0.4053534
2018 37.92002 8.736956 0.2304048
2019 27.08680 11.503068 0.4246743
2020 15.26541 4.029724 0.2639774
* Fuente BCR 
Data_T %>%
  filter(anio %in% 2017:2020, iso_3 == "BLZ", valor_fob>0, valor_cif>0) %>%
  group_by(anio)%>%
  summarise(`Exportaciones_BLZ`=sum(valor_fob)/1e6, `Importaciones_BLZ`=sum(valor_cif)/1e6) %>%
  mutate(Ratio_BLZ =`Importaciones_BLZ` /`Exportaciones_BLZ`) %>%
  select("anio","Exportaciones_BLZ","Importaciones_BLZ","Ratio_BLZ")%>%head() %>%
  kable(caption = "Importaciones e importaciones Belice 2017-2020", aling="l")%>% kable_minimal()  %>% 
  add_footnote(label="Fuente BCR",
               notation="symbol") %>%  kable_minimal()
Importaciones e importaciones Belice 2017-2020
anio Exportaciones_BLZ Importaciones_BLZ Ratio_BLZ
2017 0.0430501 0.0051633 0.1199368
2018 0.1000818 0.0006019 0.0060140
2019 0.0800053 0.0061512 0.0768849
2020 0.0002000 0.0000558 0.2791500
* Fuente BCR

4) Genera una funcion que obtenga un ranking, anual, de los “K” principales socios de El Salvador, para el periosdo año inicio-año final. Presenete sus resultados en el siguiente formato:

Tipo K socios comerciales, periodo año inicio - año final, datos en porcentaje de las exportaciones totales

library(tidyr)
funcion_ranking<-function(anio_inicio,anio_final,ranking_k){ 
Data_T %>% 
 filter(anio>=anio_inicio,anio<=anio_final) ->data_ranking
      data_ranking %>%
      group_by(anio, iso_3) %>%
      summarise(total = sum(valor_fob)) %>%
      mutate(percent = round(prop.table(total) * 100, 2)) %>%
      slice_max(n =ranking_k , order_by = total) %>%
      as.data.frame() %>%
      group_by(anio) %>%
      mutate(ranking = row_number(), 
      data = paste(iso_3, "|", percent, sep = ""))%>%
      select(anio, data, ranking) %>%
      as.data.frame() -> reporte_ranking

return(reporte_ranking)
}

funcion_ranking(2018,2020,ranking_k = 5)%>%
     pivot_wider(names_from = ranking,values_from = data)->aplicar_formato_tabla
## `summarise()` has grouped output by 'anio'. You can override using the
## `.groups` argument.
      pie_pag<-"Elaborado para el Parcial 1 MAE118 2022"
      aplicar_formato_tabla %>%
      kable(caption = paste("Top","5","Socios Comerciales     periodo",2018,2020))%>%
      add_footnote(label = pie_pag) %>% 
      kable_styling(bootstrap_options ="striped", full_width =TRUE)
Top 5 Socios Comerciales periodo 2018 2020
anio 1 2 3 4 5
2018 USA|44.07 HND|15.34 GTM|14.36 NIC|6.87 CRI|4.39
2019 USA|41.88 GTM|15.95 HND|15.91 NIC|6.68 CRI|4.5
2020 USA|36.8 GTM|16.92 HND|15.34 NIC|7.52 CRI|5.08
a Elaborado para el Parcial 1 MAE118 2022