
Instalar paquetes y llamar librerias
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("PMassicote/gtrendsR")
Herramienta: “Generador de Valor de Datos”
Paso 1. Definir el área de negocios que deseamos
impactar o mejorar y su KPI.
Área de Marketing.
Paso 2. Seleccionar plantilla (-s) para crear valor
a partir de los datos de los clientes.
Visión / Segmentación / Personalización /
Contextualización
Paso 3. Generar ideas o conceptos específicos.
1.Analizar la tendencia que la empresa Oxxo tiene y analizarla con su
entorno.
Paso 4. Reunir los datos requeridos.
Información necesaria completa a través de la herramienta
instalada.
Paso 5: Plan de ejecución.
En este caso, Oxxo deberá seguir invirtiendo en la innovación
de sus productos y programas para seguir destacando y
dirigiendo el mercado de retail en México.
Graficar la tendencia de la empresa (OXXO):
termino <- c("Oxxo")
ubicacion <- c("MX")
canal <- "web"
periodo <- ("2010-01-01 2022-10-03")
tendencia <- gtrends(termino, ubicacion, canal, time = periodo)
plot(tendencia)

Gráficar la tendencia de su nuevo programa (Oxxo Premia):
termino1 <- c("Oxxo Premia")
ubicacion <- c("MX")
canal <- "web"
periodo <- ("2021-10-18 2022-10-03")
tendencia1 <- gtrends(termino1, ubicacion, canal, time = periodo)
plot(tendencia1)

Graficar la tendencia de su marca de productos (Bitz):
termino2 <- c("Bitz")
ubicacion <- c("MX")
canal <- "web"
periodo <- ("2010-01-01 2022-10-03")
tendencia2 <- gtrends(termino2, ubicacion, canal, time = periodo)
plot(tendencia2)

Conclusiones
En este caso podemos observar como Oxxo ha tenido un
incremento lineal positivo desde 2012 en el mercado mexicano,
sin embargo, entre 2015-2017 Oxxo tuvo un pico de crecimiento destacable
alcanzando +100 Search Hits, esto puede ir aunado al incremento de
sus ventas y reconocimiento internacional que la empresa
actualmente tiene pues esta en el Top of Mind de los
consumidores mexicanos.
Asimismo, su programa más reciente “Oxxo Premia” el
cual es un programa de recompensa para los clientes basado en la
acumulación de puntos para recibir productos gratis, fue lanzado en 2021
y ha tenido un incremento notorio en el ultimo año, esto debido a que
los consumidores apenas se estan familiarizando con el programa, mas sin
embargo, ha sido un éxito en cuanto a Search hits.
Por otro lado, la marca propia de Oxxo “Bitz”,
ha tenido una tendencia irregular desde 2010 hasta la
fecha, teniendo altas y bajas y no un crecimiento notorio de
búsquedas. Por lo que Oxxo, podría hacerle más publicidad a los
productos de esta marca o segui innovando en la línea Bitz.
LS0tDQp0aXRsZTogIDxzcGFuIHN0eWxlPSJDb2xvcjpSZWQiID4gT3h4bw0KYXV0aG9yOiAiTWFyaWFuYSBVbGxvYSAtIEEwMTI1MzA3NiINCmRhdGU6ICIyMDIyLTEwLTAzIg0Kb3V0cHV0OiANCiAgaHRtbF9kb2N1bWVudDoNCiAgICB0b2M6IHRydWUNCiAgICB0b2NfZmxvYXQ6IHRydWUNCiAgICBjb2RlX2Rvd25sb2FkOiB0cnVlDQotLS0NCjxpbWcgc3JjPSAiQzpcXFVzZXJzXFxtYXJpYVxcRG9jdW1lbnRzXFxJVEVTTSBMQUVUXFxTZW1lc3RyZSA3XFxNM1xcaW1hZ2VuZXNcXE94eG9fTG9nby5zdmcucG5nIj4NCg0KIyMjIEluc3RhbGFyIHBhcXVldGVzIHkgbGxhbWFyIGxpYnJlcmlhcw0KYGBge3J9DQpsaWJyYXJ5KHRpZHl2ZXJzZSkNCiMgaW5zdGFsbC5wYWNrYWdlcygiZ3RyZW5kc1IiKQ0KbGlicmFyeShndHJlbmRzUikNCmBgYA0KDQojIyMgUGFyYSByZXNvbHZlciBlcnJvcmVzIGFsIGdyYWZpY2FyDQpgYGB7cn0NCiMgZGV2dG9vbHM6Omluc3RhbGxfZ2l0aHViKCJQTWFzc2ljb3RlL2d0cmVuZHNSIikNCmBgYA0KDQojIyMgSGVycmFtaWVudGE6ICJHZW5lcmFkb3IgZGUgVmFsb3IgZGUgRGF0b3MiDQoNCiMjIyMjICoqUGFzbyAxLioqIERlZmluaXIgZWwgw6FyZWEgZGUgbmVnb2Npb3MgcXVlIGRlc2VhbW9zIGltcGFjdGFyIG8gbWVqb3JhciB5IHN1IEtQSS4NCg0Kw4FyZWEgZGUgTWFya2V0aW5nLiANCg0KIyMjIyMgKipQYXNvIDIuKiogU2VsZWNjaW9uYXIgcGxhbnRpbGxhICgtcykgcGFyYSBjcmVhciB2YWxvciBhIHBhcnRpciBkZSBsb3MgZGF0b3MgZGUgbG9zIGNsaWVudGVzLg0KDQogIFZpc2nDs24gLyBTZWdtZW50YWNpw7NuIC8gUGVyc29uYWxpemFjacOzbiAvICoqQ29udGV4dHVhbGl6YWNpw7NuKioNCiAgDQojIyMjIyAqKlBhc28gMy4qKiBHZW5lcmFyIGlkZWFzIG8gY29uY2VwdG9zIGVzcGVjw61maWNvcy4NCg0KMS5BbmFsaXphciBsYSB0ZW5kZW5jaWEgcXVlIGxhIGVtcHJlc2EgT3h4byB0aWVuZSB5IGFuYWxpemFybGEgY29uIHN1IGVudG9ybm8uDQoNCiMjIyMjICoqUGFzbyA0LioqIFJldW5pciBsb3MgZGF0b3MgcmVxdWVyaWRvcy4NCkluZm9ybWFjacOzbiBuZWNlc2FyaWEgY29tcGxldGEgYSB0cmF2w6lzIGRlIGxhIGhlcnJhbWllbnRhIGluc3RhbGFkYS4NCg0KIyMjIyMgKipQYXNvIDU6KiogUGxhbiBkZSBlamVjdWNpw7NuLg0KRW4gZXN0ZSBjYXNvLCBPeHhvIGRlYmVyw6Egc2VndWlyICoqaW52aXJ0aWVuZG8gZW4gbGEgaW5ub3ZhY2nDs24gZGUgc3VzIHByb2R1Y3RvcyB5IHByb2dyYW1hcyoqIHBhcmEgc2VndWlyIGRlc3RhY2FuZG8geSBkaXJpZ2llbmRvIGVsIG1lcmNhZG8gZGUgcmV0YWlsIGVuIE3DqXhpY28uIA0KDQojIyMgR3JhZmljYXIgbGEgdGVuZGVuY2lhIGRlIGxhIGVtcHJlc2EgKE9YWE8pOg0KYGBge3J9DQp0ZXJtaW5vIDwtIGMoIk94eG8iKQ0KdWJpY2FjaW9uIDwtIGMoIk1YIikNCmNhbmFsIDwtICJ3ZWIiDQpwZXJpb2RvIDwtICgiMjAxMC0wMS0wMSAyMDIyLTEwLTAzIikNCnRlbmRlbmNpYSA8LSBndHJlbmRzKHRlcm1pbm8sIHViaWNhY2lvbiwgY2FuYWwsIHRpbWUgPSBwZXJpb2RvKQ0KcGxvdCh0ZW5kZW5jaWEpDQpgYGANCg0KIyMjIEdyw6FmaWNhciBsYSB0ZW5kZW5jaWEgZGUgc3UgbnVldm8gcHJvZ3JhbWEgKE94eG8gUHJlbWlhKToNCmBgYHtyfQ0KdGVybWlubzEgPC0gYygiT3h4byBQcmVtaWEiKQ0KdWJpY2FjaW9uIDwtIGMoIk1YIikNCmNhbmFsIDwtICJ3ZWIiDQpwZXJpb2RvIDwtICgiMjAyMS0xMC0xOCAyMDIyLTEwLTAzIikNCnRlbmRlbmNpYTEgPC0gZ3RyZW5kcyh0ZXJtaW5vMSwgdWJpY2FjaW9uLCBjYW5hbCwgdGltZSA9IHBlcmlvZG8pDQpwbG90KHRlbmRlbmNpYTEpDQpgYGANCg0KIyMjIEdyYWZpY2FyIGxhIHRlbmRlbmNpYSBkZSBzdSBtYXJjYSBkZSBwcm9kdWN0b3MgKEJpdHopOg0KYGBge3J9DQp0ZXJtaW5vMiA8LSBjKCJCaXR6IikNCnViaWNhY2lvbiA8LSBjKCJNWCIpDQpjYW5hbCA8LSAid2ViIg0KcGVyaW9kbyA8LSAoIjIwMTAtMDEtMDEgMjAyMi0xMC0wMyIpDQp0ZW5kZW5jaWEyIDwtIGd0cmVuZHModGVybWlubzIsIHViaWNhY2lvbiwgY2FuYWwsIHRpbWUgPSBwZXJpb2RvKQ0KcGxvdCh0ZW5kZW5jaWEyKQ0KYGBgDQoNCiMjIyAqKkNvbmNsdXNpb25lcyoqDQoNCkVuIGVzdGUgY2FzbyBwb2RlbW9zIG9ic2VydmFyIGNvbW8gKipPeHhvIGhhIHRlbmlkbyB1biBpbmNyZW1lbnRvIGxpbmVhbCBwb3NpdGl2byoqIGRlc2RlIDIwMTIgZW4gZWwgbWVyY2FkbyBtZXhpY2Fubywgc2luIGVtYmFyZ28sIGVudHJlIDIwMTUtMjAxNyBPeHhvIHR1dm8gdW4gcGljbyBkZSBjcmVjaW1pZW50byBkZXN0YWNhYmxlIGFsY2FuemFuZG8gKzEwMCBTZWFyY2ggSGl0cywgZXN0byBwdWVkZSBpciBhdW5hZG8gYWwgKmluY3JlbWVudG8gZGUgc3VzIHZlbnRhcyB5IHJlY29ub2NpbWllbnRvIGludGVybmFjaW9uYWwqIHF1ZSBsYSBlbXByZXNhIGFjdHVhbG1lbnRlIHRpZW5lIHB1ZXMgZXN0YSBlbiBlbCAqKlRvcCBvZiBNaW5kKiogZGUgbG9zIGNvbnN1bWlkb3JlcyBtZXhpY2Fub3MuDQoNCkFzaW1pc21vLCBzdSBwcm9ncmFtYSBtw6FzIHJlY2llbnRlICoqIk94eG8gUHJlbWlhIioqIGVsIGN1YWwgZXMgdW4gcHJvZ3JhbWEgZGUgcmVjb21wZW5zYSBwYXJhIGxvcyBjbGllbnRlcyBiYXNhZG8gZW4gbGEgYWN1bXVsYWNpw7NuIGRlIHB1bnRvcyBwYXJhIHJlY2liaXIgcHJvZHVjdG9zIGdyYXRpcywgZnVlIGxhbnphZG8gZW4gMjAyMSB5IGhhIHRlbmlkbyB1biBpbmNyZW1lbnRvIG5vdG9yaW8gZW4gZWwgdWx0aW1vIGHDsW8sIGVzdG8gZGViaWRvIGEgcXVlIGxvcyBjb25zdW1pZG9yZXMgYXBlbmFzIHNlIGVzdGFuIGZhbWlsaWFyaXphbmRvIGNvbiBlbCBwcm9ncmFtYSwgbWFzIHNpbiBlbWJhcmdvLCBoYSBzaWRvIHVuIMOpeGl0byBlbiBjdWFudG8gYSBTZWFyY2ggaGl0cy4NCg0KUG9yIG90cm8gbGFkbywgbGEgbWFyY2EgcHJvcGlhIGRlIE94eG8gKioiQml0eiIqKiwgKipoYSB0ZW5pZG8gdW5hIHRlbmRlbmNpYSBpcnJlZ3VsYXIgZGVzZGUgMjAxMCBoYXN0YSBsYSBmZWNoYSoqLCB0ZW5pZW5kbyBhbHRhcyB5IGJhamFzIHkgbm8gdW4gY3JlY2ltaWVudG8gbm90b3JpbyBkZSBiw7pzcXVlZGFzLiBQb3IgbG8gcXVlIE94eG8sIHBvZHLDrWEgaGFjZXJsZSBtw6FzIHB1YmxpY2lkYWQgYSBsb3MgcHJvZHVjdG9zIGRlIGVzdGEgbWFyY2EgbyBzZWd1aSBpbm5vdmFuZG8gZW4gbGEgbMOtbmVhIEJpdHouDQoNCg0K