Global Trends

Instalar paquetes y llamar librerías

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.0      ✔ 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()

# install.packages("gtrendsR")
library(gtrendsR)

Para resolver errores al graficar

# devtools ::install_github("PMassicotte/gtrendsR")

Paso 1. Definir el término a buscar

termino <- c("Jonas Brothers")

Paso 2. Definir la locación (ISO3166-2 country codes)

ubicacion <- c("US")

Paso 3. Definir el canal : web, news, images, youtube

canal <- "web"

Paso 4. Definir la ventana de tiempo

periodo <- ("2005-01-01 2022-09-01")

Paso 5. Función

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

Gráficos John Deere

termino2 <- c("John Deere")
ubicacion <- c("MX")
canal <- "web"
periodo <- ("2005-01-01 2022-09-01")
tendencia <- gtrends(termino2, ubicacion, canal, time = periodo)
plot(tendencia)

termino3 <- c("Tractor")
ubicacion <- c("MX")
canal <- "web"
periodo <- ("2005-01-01 2022-09-01")
tendencia <- gtrends(termino3, ubicacion, canal, time = periodo)
plot(tendencia)

termino4 <- c("Agricultura")
ubicacion <- c("MX")
canal <- "web"
periodo <- ("2005-01-01 2022-09-01")
tendencia <- gtrends(termino4, ubicacion, canal, time = periodo)
plot(tendencia)

Gráficos Oxxo

termino5 <- c("Oxxo")
ubicacion <- c("MX")
canal <- "web"
periodo <- ("2005-01-01 2022-09-01")
tendencia <- gtrends(termino5, ubicacion, canal, time = periodo)
plot(tendencia)

termino6 <- c("Tienda Conveniencia")
ubicacion <- c("MX")
canal <- "web"
periodo <- ("2005-01-01 2022-09-01")
tendencia <- gtrends(termino6, ubicacion, canal, time = periodo)
plot(tendencia)

termino7 <- c("Tarjeta Spin")
ubicacion <- c("MX")
canal <- "web"
periodo <- ("2020-01-01 2022-09-01")
tendencia <- gtrends(termino7, ubicacion, canal, time = periodo)
plot(tendencia)

Conclusiones

R nos permite conocer tendencias de distintos medios, en este caso analizamos de la web y colocamos un periodo de tiempo con términos en USA y MX.

Podemos ver como los Jonas Brothers que son un grupo musical tuvieron su estapa “top” del 2007-2009, pero después se separaron y es la explicación de porque los demás años no eran tan buscados o tendencia, y en el 2019 deciden regresar y es por eso que volvemos a ver el aumento de búsquedas.