maoa20

library(tidiverse)
library(extrafont)
loadfonts(device = "win")

comercio_hispanoamerica_mundo <- readr::read_csv("https://raw.githubusercontent.com/cienciadedatos/datos-de-miercoles/master/datos/2019/2019-05-01/comercio_hispanoamerica_mundo_agregado.csv")
#Exploramos un poco los datos 
str(comercio_hispanoamerica_mundo)

##Anteriormente habia hecho una grafico de barras donde me mostrara los productos