Tendencias Globales

library(tidyverse)

## Warning: package 'tidyverse' was built under R version 4.1.3

## -- Attaching packages --------------------------------------- tidyverse 1.3.1 --

## v ggplot2 3.3.5     v purrr   0.3.4
## v tibble  3.1.6     v dplyr   1.0.8
## v tidyr   1.2.0     v stringr 1.4.0
## v readr   2.1.2     v forcats 0.5.1

## Warning: package 'ggplot2' was built under R version 4.1.3

## Warning: package 'tibble' was built under R version 4.1.3

## Warning: package 'tidyr' was built under R version 4.1.3

## Warning: package 'readr' was built under R version 4.1.3

## Warning: package 'purrr' was built under R version 4.1.3

## Warning: package 'dplyr' was built under R version 4.1.3

## Warning: package 'forcats' was built under R version 4.1.3

## -- Conflicts ------------------------------------------ tidyverse_conflicts() --
## x dplyr::filter() masks stats::filter()
## x dplyr::lag()    masks stats::lag()

library(gtrendsR)

## Warning: package 'gtrendsR' was built under R version 4.1.3

##Definir el termino a buscar

termino <- c("Heineken")

##Definir la locacion

ubicacion <- c("MX")

##DEfinir el canalr: web, news, imagens, 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)