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