Balanza de pagos

Mapa mundial con cada caso

# Cargamos los datos
paises <- read_excel("/Users/jorge/Desktop/paises.xlsx")
data("World")

# Concatenamos los datos con una base con polígonos

datos <- World %>% 
  st_as_sf() %>% 
  filter(name %in% paises$Pais) %>% 
  left_join(paises, by = c("name" = "Pais"))

# Creamos el mapa
tm_shape(datos) +
  tm_polygons("Tipo", legend.title = "Ingreso per cap",
              
              legend.hist = FALSE)+
  tmap_style("classic") +
  tm_credits("Jorge H.") +
  tm_layout(title = " Tipo de \n cambio") +
  tm_add_legend(border.col = "white")

Tabla con los datos

# Creamos una tabla interactiva para los datos

datatable( paises, 
           extensions = 
             'Buttons', 
           options = list(dom = 'Bfrtip', 
                          buttons = 
                            c('copy', 'csv', 'excel', 
                              'pdf', 'print') 
                          ))
Balanza de pagos
Tarea ejercicio