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=