Global trends

##Instalar paquetes y llamar librerias

library(tidyverse)

## ── Attaching packages ─────────────────────────────────────── tidyverse 1.3.2 ──
## ✔ ggplot2 3.3.6      ✔ purrr   0.3.4 
## ✔ tibble  3.1.8      ✔ dplyr   1.0.10
## ✔ tidyr   1.2.1      ✔ stringr 1.4.1 
## ✔ readr   2.1.2      ✔ forcats 0.5.2 
## ── Conflicts ────────────────────────────────────────── tidyverse_conflicts() ──
## ✖ dplyr::filter() masks stats::filter()
## ✖ dplyr::lag()    masks stats::lag()

library(gtrendsR)

##Definir el termino a buscar

termino <- c("Heineken")

##Definir la locacion (ISO 3166-2 country codes)

ubicacion <- c("MX")

##Definir el canal: web, news, imagenes, youtube

canal <- "web"

##Definir la ventana de tiempo

periodo <- ("2009-01-01 2022-09-13")

##Funcion

tendencia <- gtrends(termino, ubicacion, canal, time = periodo)
plot(tendencia)