
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.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()
# install.packages("gtrendsR")
library(gtrendsR)
Para resolver errores al graficar
# devtools ::install_github("PMassicotte/gtrendsR")
Paso1. Definir el término a buscar
termino <- c("Bacardi")
Paso 2. Definir la locación
ubicacion <- c("MX")
Paso 3. Definir el canal: web, news,
images, youtube
canal <- "web"
Paso 4. Definir la ventana de tiempo
periodo <- ("2019-01-01 2022-09-09")
Paso 5. Función
tendencia <- gtrends(termino, ubicacion, canal, time= periodo)
plot(tendencia)

Gráficos de John Deere
term2 <- c("John Deere")
ubicacion <- c("MX")
canal <- "web"
periodo <- ("2019-01-01 2022-09-09")
tendencia <- gtrends(term2, ubicacion, canal, time= periodo)
plot(tendencia)

Gráficos de OXXO
term3 <- c("Oxxo")
ubicacion <- c("MX")
canal <- "web"
periodo <- ("2019-01-01 2022-09-09")
tendencia <- gtrends(term3, ubicacion, canal, time= periodo)
plot(tendencia)

term4 <- c("7Eleven")
ubicacion <- c("MX")
canal <- "web"
periodo <- ("2019-01-01 2022-09-09")
tendencia <- gtrends(term4, ubicacion, canal, time= periodo)
plot(tendencia)

term5 <- c("Oxxo")
ubicacion <- c("MX")
canal <- "youtube"
periodo <- ("2019-01-01 2022-09-09")
tendencia <- gtrends(term5, ubicacion, canal, time= periodo)
plot(tendencia)

Conclusiones
El analizar las tendencias nos puede apoyar para analizar a la
competencia y su presencia en el mercado para ver y comparar los
términos que deseemos por los diferentes medios y ubicaciones
disponibles dentro de las bases de datos de R.
Podemos ver el panorama y ver comportamientos globales o locales
según sea la situación. En el ejemplo de la última gráfica se ve un pico
significativo en 2021 por lo que podría analizarse si va relacionado con
alguna estrategia de la empresa de penetración de mercado en dicho lapso
de tiempo o si es una oportunidad con la sociedad respecto al rango de
tiempo en específico ya que el filtro que se utilizó en dicha tendencia
fue específicamente el de Youtube.
LS0tCnRpdGxlOiA8c3BhbiBzdHlsZT0gIkNvbG9yOiNEREEwREQiID4gR2xvYmFsIFRyZW5kcyA8L3NwYW4+CmF1dGhvcjogIklzYWFjIETDrWF6IEEwMTU0MDU0MyIKZGF0ZTogIjIwMjItMDktMjIiCm91dHB1dDoKICBodG1sX2RvY3VtZW50OgogICAgdG9jOiB5ZXMKICAgIHRvY19mbG9hdDogeWVzCiAgICBjb2RlX2Rvd25sb2FkOiB5ZXMKLS0tCjxpbWcgc3JjPSAiL1VzZXJzL2lzYWFjZGlhenJ1aXpkZWNoYXZlei9Eb3dubG9hZHMvaXBzb3NfMC5qcGciID4KCiMjIyA8c3BhbiBzdHlsZT0gIkNvbG9yOiNEREEwREQiID4gSW5zdGFsYXIgcGFxdWV0ZXMgeSBsbGFtYXIgbGlicmVyw61hcyA8L3NwYW4+CgpgYGB7cn0KbGlicmFyeSh0aWR5dmVyc2UpCiMgaW5zdGFsbC5wYWNrYWdlcygiZ3RyZW5kc1IiKQpsaWJyYXJ5KGd0cmVuZHNSKQoKYGBgCgojIyMgPHNwYW4gc3R5bGU9ICJDb2xvcjojRERBMEREIiA+IFBhcmEgcmVzb2x2ZXIgZXJyb3JlcyBhbCBncmFmaWNhciA8L3NwYW4+CgpgYGB7cn0KIyBkZXZ0b29scyA6Omluc3RhbGxfZ2l0aHViKCJQTWFzc2ljb3R0ZS9ndHJlbmRzUiIpCmBgYAoKIyMjIDxzcGFuIHN0eWxlPSAiQ29sb3I6I0REQTBERCIgPiBQYXNvMS4gRGVmaW5pciBlbCB0w6lybWlubyBhIGJ1c2NhciA8L3NwYW4+CgpgYGB7cn0KdGVybWlubyA8LSBjKCJCYWNhcmRpIikKYGBgCgojIyMgPHNwYW4gc3R5bGU9ICJDb2xvcjojRERBMEREIiA+IFBhc28gMi4gRGVmaW5pciBsYSBsb2NhY2nDs24gPC9zcGFuPgoKYGBge3J9CnViaWNhY2lvbiA8LSBjKCJNWCIpCmBgYAoKIyMjIDxzcGFuIHN0eWxlPSAiQ29sb3I6I0REQTBERCIgPiBQYXNvIDMuIERlZmluaXIgZWwgY2FuYWw6IHdlYiwgbmV3cywgaW1hZ2VzLCB5b3V0dWJlIDwvc3Bhbj4KCmBgYHtyfQpjYW5hbCA8LSAid2ViIgpgYGAKCiMjIyA8c3BhbiBzdHlsZT0gIkNvbG9yOiNEREEwREQiID4gUGFzbyA0LiBEZWZpbmlyIGxhIHZlbnRhbmEgZGUgdGllbXBvIDwvc3Bhbj4KCmBgYHtyfQpwZXJpb2RvIDwtICgiMjAxOS0wMS0wMSAyMDIyLTA5LTA5IikKYGBgCgojIyMgPHNwYW4gc3R5bGU9ICJDb2xvcjojRERBMEREIiA+IFBhc28gNS4gRnVuY2nDs24gPC9zcGFuPiAKCmBgYHtyfQp0ZW5kZW5jaWEgPC0gZ3RyZW5kcyh0ZXJtaW5vLCB1YmljYWNpb24sIGNhbmFsLCB0aW1lPSBwZXJpb2RvKQpwbG90KHRlbmRlbmNpYSkKYGBgCgojIyMgPHNwYW4gc3R5bGU9ICJDb2xvcjojRERBMEREIiA+IEdyw6FmaWNvcyBkZSBKb2huIERlZXJlIDwvc3Bhbj4KCmBgYHtyfQp0ZXJtMiA8LSBjKCJKb2huIERlZXJlIikKdWJpY2FjaW9uIDwtIGMoIk1YIikKY2FuYWwgPC0gIndlYiIKcGVyaW9kbyA8LSAoIjIwMTktMDEtMDEgMjAyMi0wOS0wOSIpCnRlbmRlbmNpYSA8LSBndHJlbmRzKHRlcm0yLCB1YmljYWNpb24sIGNhbmFsLCB0aW1lPSBwZXJpb2RvKQpwbG90KHRlbmRlbmNpYSkKYGBgCgojIyMgPHNwYW4gc3R5bGU9ICJDb2xvcjojRERBMEREIiA+IEdyw6FmaWNvcyBkZSBPWFhPIDwvc3Bhbj4KCmBgYHtyfQp0ZXJtMyA8LSBjKCJPeHhvIikKdWJpY2FjaW9uIDwtIGMoIk1YIikKY2FuYWwgPC0gIndlYiIKcGVyaW9kbyA8LSAoIjIwMTktMDEtMDEgMjAyMi0wOS0wOSIpCnRlbmRlbmNpYSA8LSBndHJlbmRzKHRlcm0zLCB1YmljYWNpb24sIGNhbmFsLCB0aW1lPSBwZXJpb2RvKQpwbG90KHRlbmRlbmNpYSkKCnRlcm00IDwtIGMoIjdFbGV2ZW4iKQp1YmljYWNpb24gPC0gYygiTVgiKQpjYW5hbCA8LSAid2ViIgpwZXJpb2RvIDwtICgiMjAxOS0wMS0wMSAyMDIyLTA5LTA5IikKdGVuZGVuY2lhIDwtIGd0cmVuZHModGVybTQsIHViaWNhY2lvbiwgY2FuYWwsIHRpbWU9IHBlcmlvZG8pCnBsb3QodGVuZGVuY2lhKQoKdGVybTUgPC0gYygiT3h4byIpCnViaWNhY2lvbiA8LSBjKCJNWCIpCmNhbmFsIDwtICJ5b3V0dWJlIgpwZXJpb2RvIDwtICgiMjAxOS0wMS0wMSAyMDIyLTA5LTA5IikKdGVuZGVuY2lhIDwtIGd0cmVuZHModGVybTUsIHViaWNhY2lvbiwgY2FuYWwsIHRpbWU9IHBlcmlvZG8pCnBsb3QodGVuZGVuY2lhKQpgYGAKCiMjIyA8c3BhbiBzdHlsZT0gIkNvbG9yOiNEREEwREQiID4gQ29uY2x1c2lvbmVzIDwvc3Bhbj4KCkVsIGFuYWxpemFyIGxhcyB0ZW5kZW5jaWFzIG5vcyBwdWVkZSBhcG95YXIgcGFyYSBhbmFsaXphciBhIGxhIGNvbXBldGVuY2lhIHkgc3UgcHJlc2VuY2lhIGVuIGVsIG1lcmNhZG8gcGFyYSB2ZXIgeSBjb21wYXJhciBsb3MgdMOpcm1pbm9zIHF1ZSBkZXNlZW1vcyBwb3IgbG9zIGRpZmVyZW50ZXMgbWVkaW9zIHkgdWJpY2FjaW9uZXMgZGlzcG9uaWJsZXMgZGVudHJvIGRlIGxhcyBiYXNlcyBkZSBkYXRvcyBkZSBSLgoKUG9kZW1vcyB2ZXIgZWwgcGFub3JhbWEgeSB2ZXIgY29tcG9ydGFtaWVudG9zIGdsb2JhbGVzIG8gbG9jYWxlcyBzZWfDum4gc2VhIGxhIHNpdHVhY2nDs24uIEVuIGVsIGVqZW1wbG8gZGUgbGEgw7psdGltYSBncsOhZmljYSBzZSB2ZSB1biBwaWNvIHNpZ25pZmljYXRpdm8gZW4gMjAyMSBwb3IgbG8gcXVlIHBvZHLDrWEgYW5hbGl6YXJzZSBzaSB2YSByZWxhY2lvbmFkbyBjb24gYWxndW5hIGVzdHJhdGVnaWEgZGUgbGEgZW1wcmVzYSBkZSBwZW5ldHJhY2nDs24gZGUgbWVyY2FkbyBlbiBkaWNobyBsYXBzbyBkZSB0aWVtcG8gbyBzaSBlcyB1bmEgb3BvcnR1bmlkYWQgY29uIGxhIHNvY2llZGFkIHJlc3BlY3RvIGFsIHJhbmdvIGRlIHRpZW1wbyBlbiBlc3BlY8OtZmljbyB5YSBxdWUgZWwgZmlsdHJvIHF1ZSBzZSB1dGlsaXrDsyBlbiBkaWNoYSB0ZW5kZW5jaWEgZnVlIGVzcGVjw61maWNhbWVudGUgZWwgZGUgWW91dHViZS4KCgo=