OXXO

OXXO

Librerias Intaladas

#install.packages("readr")
library(readr)
#install.packages("colorspace")
library(colorspace)
#install.packages("vctrs")
library(vctrs)
#install.packages("gtrendsR")
library(gtrendsR)
library(tidyverse)

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

OXXO

#library(gtrendsR)
termino5 <- c("oxxo")
ubicacion5 <- c("MX")
canal5 <- "web"
periodo5 <- ("2018-09-01 2022-09-01")

tendencia5 <- gtrends(termino5, ubicacion5, canal5, time = periodo5)
plot(tendencia5)

OXXO Premia

termino6 <- c("oxxo premia")
ubicacion6 <- c("MX")
canal6 <- "web"
periodo6 <- ("2021-10-08 2022-09-01")

tendencia6 <- gtrends(termino6, ubicacion6, canal6, time = periodo6)
plot(tendencia6)

FEMSA

termino7 <- c("femsa")
ubicacion7 <- c("MX")
canal7 <- "web"
periodo7 <- ("2018-09-01 2022-09-01")

tendencia7 <- gtrends(termino7, ubicacion7, canal7, time = periodo7)
plot(tendencia7)