termino <- c("mercadona", "consum")
ubicacion <- "ES"
canal <- "web"
data("categories")
tendencia <- gtrends(termino, ubicacion,time="today 1-m", canal)
plot(tendencia)