
#Herramienta “El Generador de Valor de Datos” Paso 1. Definir el área del negocio que buscamos impactar o mejorar y su KPI El área que buscamos impactar es el de mercadotecnia. KPI: Número de búsquedas por año
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. ¿Qué contexto genera más búsquedas de una palabra? ¿Que esta en tendencia?
Paso 4. Reunir los datos requeridos. La información necesaria escompleta
Paso 5. Plan de ejecución. La empresa puede buscar que palabras están en tendencia para poder impulsar sus ventas. Por ejemplo, una empresa de maquillaje puede ver las preferencias de los consumidores y, por ejemplo, bucar “Korean Beauty” para analizar si en realidad es una tendencia que viene con fuerza o no.
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.0 ✔ 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")
Paso 1. definir el termino a buscar
termino <- c("Sistema R")
Paso 2. definir la locacion (ISO3166-2 country codes)
ubicacion <- c("MX")
Paso 3. definir el canal: web, news, images, youtube
canal <- "web"
Paso 4. Definir la ventana de tiempo
periodo <- ("2010-01-01 2022-09-01")
paso 5. función
tendencia <- gtrends(termino, ubicacion, canal, time = periodo)
plot(tendencia)

JOHN DEERE
Búsqueda 1
termino <- c("John Deere")
ubicacion <- c("MX")
canal <- "web"
periodo <- ("2010-01-01 2022-09-01")
tendencia <- gtrends(termino, ubicacion, canal, time = periodo)
plot(tendencia)

Búsqueda 2
termino <- c("Maquinaria John Deere")
ubicacion <- c("MX")
canal <- ("web")
periodo <- ("2010-01-01 2022-09-01")
tendencia <- gtrends(termino, ubicacion, canal, time = periodo)
plot(tendencia)

Búsqueda 3
termino <- c("John Deere")
ubicacion <- c("MX")
canal <- "news"
periodo <- ("2010-01-01 2022-09-01")
tendencia <- gtrends(termino, ubicacion, canal, time = periodo)
plot(tendencia)

OXXO
Búsqueda 1
termino <- c("Femsa")
ubicacion <- c("MX")
canal <- "web"
periodo <- ("2010-01-01 2022-09-01")
tendencia <- gtrends(termino, ubicacion, canal, time = periodo)
plot(tendencia)

Búsqueda 2
termino <- c("Oxxo")
ubicacion <- c("MX")
canal <- "web"
periodo <- ("2010-01-01 2022-09-01")
tendencia <- gtrends(termino, ubicacion, canal, time = periodo)
plot(tendencia)

Búsqueda 3
termino <- c("Autoservicio")
ubicacion <- c("MX")
canal <- "web"
periodo <- ("2010-01-01 2022-09-01")
tendencia <- gtrends(termino, ubicacion, canal, time = periodo)
plot(tendencia)

#Conclusión La práctica de buscar “Global Trends” puede ayudar a un negocio al saber que tipo de tendencias están buscando los clientes, y así poder participar en las tendencias y estar en la mente de los clientes.
LS0tCnRpdGxlOiA8c3BhbiBzdHlsZT0iQ29sb3I6R3JlZW4iPiAiR2xvYmFsIHRyZW5kcyIKYXV0aG9yOiAiRGFuYSBQZXJleiAtIEEwMDIyNzA0MSIKZGF0ZTogIjkvMjYvMjAyMiIKb3V0cHV0OiAKICBodG1sX2RvY3VtZW50OiAKICAgIHRvYzogdHJ1ZQogICAgdG9jX2Zsb2F0OiB0cnVlCiAgICBjb2RlX2Rvd25sb2FkOiB0cnVlCi0tLQoKPGltZyBzcmM9Ii9Vc2Vycy9kYW5uYXBlcmV6L0Rlc2t0b3AvaW1hZ2VuZXMgcGFyYSBIVE1MLzE4OTY4NDYtMjAwLnBuZyI+CgojSGVycmFtaWVudGEg4oCcRWwgR2VuZXJhZG9yIGRlIFZhbG9yIGRlIERhdG9z4oCdClBhc28gMS4gRGVmaW5pciBlbCDDoXJlYSBkZWwgbmVnb2NpbyBxdWUgYnVzY2Ftb3MgaW1wYWN0YXIgbyBtZWpvcmFyIHkgc3UgS1BJCkVsIMOhcmVhIHF1ZSBidXNjYW1vcyBpbXBhY3RhciBlcyBlbCBkZSBtZXJjYWRvdGVjbmlhLiBLUEk6IE7Dum1lcm8gZGUgYsO6c3F1ZWRhcyBwb3IgYcOxbwoKUGFzbyAyLiBTZWxlY2Npb25hciBwbGFudGlsbGEoLXMpIHBhcmEgY3JlYXIgdmFsb3IgYSBwYXJ0aXIgZGUgbG9zIGRhdG9zIGRlIGxvcyBjbGllbnRlcy4KKlZpc2nDs24qIC8gU2VnbWVudGFjacOzbiAvIFBlcnNvbmFsaXphY2nDs24gLyBDb250ZXh0dWFsaXphY2nDs24KClBhc28gMy4gR2VuZXJhciBpZGVhcyBvIGNvbmNlcHRvcyBlc3BlY8OtZmljb3MuIMK/UXXDqSBjb250ZXh0byBnZW5lcmEgbcOhcyBiw7pzcXVlZGFzIGRlIHVuYSBwYWxhYnJhPyDCv1F1ZSBlc3RhIGVuIHRlbmRlbmNpYT8KClBhc28gNC4gUmV1bmlyIGxvcyBkYXRvcyByZXF1ZXJpZG9zLgpMYSBpbmZvcm1hY2nDs24gbmVjZXNhcmlhIGVzY29tcGxldGEKClBhc28gNS4gUGxhbiBkZSBlamVjdWNpw7NuLgpMYSBlbXByZXNhIHB1ZWRlIGJ1c2NhciBxdWUgcGFsYWJyYXMgZXN0w6FuIGVuIHRlbmRlbmNpYSBwYXJhIHBvZGVyIGltcHVsc2FyIHN1cyB2ZW50YXMuIFBvciBlamVtcGxvLCB1bmEgZW1wcmVzYSBkZSBtYXF1aWxsYWplIHB1ZWRlIHZlciBsYXMgcHJlZmVyZW5jaWFzIGRlIGxvcyBjb25zdW1pZG9yZXMgeSwgcG9yIGVqZW1wbG8sIGJ1Y2FyIOKAnEtvcmVhbiBCZWF1dHnigJ0gcGFyYSBhbmFsaXphciBzaSBlbiByZWFsaWRhZCBlcyB1bmEgdGVuZGVuY2lhIHF1ZSB2aWVuZSBjb24gZnVlcnphIG8gbm8uCgojIGluc3RhbGFyIHBhcXVldGVzIHkgbGxhbWFyIGxpYnJlcmlhcwpgYGB7cn0KbGlicmFyeSh0aWR5dmVyc2UpCiNpbnN0YWxsLnBhY2thZ2VzKCJndHJlbmRzUiIpCmxpYnJhcnkoZ3RyZW5kc1IpCmBgYAoKIyBwYXJhIHJlc29sdmVyIGVycm9yZXMgYWwgZ3JhZmljYXIKYGBge3J9CiNkZXZ0b29sczo6aW5zdGFsbF9naXRodWIoIlBNYXNzaWNvdHRlL2d0cmVuZHNSIikKYGBgCgojIFBhc28gMS4gZGVmaW5pciBlbCB0ZXJtaW5vIGEgYnVzY2FyCmBgYHtyfQp0ZXJtaW5vIDwtIGMoIlNpc3RlbWEgUiIpCmBgYAoKIyBQYXNvIDIuIGRlZmluaXIgbGEgbG9jYWNpb24gKElTTzMxNjYtMiBjb3VudHJ5IGNvZGVzKQpgYGB7cn0KdWJpY2FjaW9uIDwtIGMoIk1YIikKYGBgCgojIFBhc28gMy4gZGVmaW5pciBlbCBjYW5hbDogd2ViLCBuZXdzLCBpbWFnZXMsIHlvdXR1YmUKYGBge3J9CmNhbmFsIDwtICJ3ZWIiCmBgYAoKIyBQYXNvIDQuIERlZmluaXIgbGEgdmVudGFuYSBkZSB0aWVtcG8KYGBge3J9CnBlcmlvZG8gPC0gKCIyMDEwLTAxLTAxIDIwMjItMDktMDEiKQpgYGAKCiMgcGFzbyA1LiBmdW5jacOzbiAKYGBge3J9CnRlbmRlbmNpYSA8LSBndHJlbmRzKHRlcm1pbm8sIHViaWNhY2lvbiwgY2FuYWwsIHRpbWUgPSBwZXJpb2RvKQpwbG90KHRlbmRlbmNpYSkKYGBgCgojIEpPSE4gREVFUkUKIyMgQsO6c3F1ZWRhIDEKYGBge3J9CnRlcm1pbm8gPC0gYygiSm9obiBEZWVyZSIpCnViaWNhY2lvbiA8LSBjKCJNWCIpCmNhbmFsIDwtICJ3ZWIiCnBlcmlvZG8gPC0gKCIyMDEwLTAxLTAxIDIwMjItMDktMDEiKQp0ZW5kZW5jaWEgPC0gZ3RyZW5kcyh0ZXJtaW5vLCB1YmljYWNpb24sIGNhbmFsLCB0aW1lID0gcGVyaW9kbykKcGxvdCh0ZW5kZW5jaWEpCmBgYAoKIyMgQsO6c3F1ZWRhIDIKYGBge3J9CnRlcm1pbm8gPC0gYygiTWFxdWluYXJpYSBKb2huIERlZXJlIikKdWJpY2FjaW9uIDwtIGMoIk1YIikKY2FuYWwgPC0gKCJ3ZWIiKQpwZXJpb2RvIDwtICgiMjAxMC0wMS0wMSAyMDIyLTA5LTAxIikKdGVuZGVuY2lhIDwtIGd0cmVuZHModGVybWlubywgdWJpY2FjaW9uLCBjYW5hbCwgdGltZSA9IHBlcmlvZG8pCnBsb3QodGVuZGVuY2lhKQoKYGBgCgojIyBCw7pzcXVlZGEgMwpgYGB7cn0KdGVybWlubyA8LSBjKCJKb2huIERlZXJlIikKdWJpY2FjaW9uIDwtIGMoIk1YIikKY2FuYWwgPC0gIm5ld3MiCnBlcmlvZG8gPC0gKCIyMDEwLTAxLTAxIDIwMjItMDktMDEiKQp0ZW5kZW5jaWEgPC0gZ3RyZW5kcyh0ZXJtaW5vLCB1YmljYWNpb24sIGNhbmFsLCB0aW1lID0gcGVyaW9kbykKcGxvdCh0ZW5kZW5jaWEpCmBgYAoKIyBPWFhPCiMjIELDunNxdWVkYSAxCmBgYHtyfQp0ZXJtaW5vIDwtIGMoIkZlbXNhIikKdWJpY2FjaW9uIDwtIGMoIk1YIikKY2FuYWwgPC0gIndlYiIKcGVyaW9kbyA8LSAoIjIwMTAtMDEtMDEgMjAyMi0wOS0wMSIpCnRlbmRlbmNpYSA8LSBndHJlbmRzKHRlcm1pbm8sIHViaWNhY2lvbiwgY2FuYWwsIHRpbWUgPSBwZXJpb2RvKQpwbG90KHRlbmRlbmNpYSkKYGBgCgojIyBCw7pzcXVlZGEgMgpgYGB7cn0KdGVybWlubyA8LSBjKCJPeHhvIikKdWJpY2FjaW9uIDwtIGMoIk1YIikKY2FuYWwgPC0gIndlYiIKcGVyaW9kbyA8LSAoIjIwMTAtMDEtMDEgMjAyMi0wOS0wMSIpCnRlbmRlbmNpYSA8LSBndHJlbmRzKHRlcm1pbm8sIHViaWNhY2lvbiwgY2FuYWwsIHRpbWUgPSBwZXJpb2RvKQpwbG90KHRlbmRlbmNpYSkKYGBgCgojIyBCw7pzcXVlZGEgMwpgYGB7cn0KdGVybWlubyA8LSBjKCJBdXRvc2VydmljaW8iKQp1YmljYWNpb24gPC0gYygiTVgiKQpjYW5hbCA8LSAid2ViIgpwZXJpb2RvIDwtICgiMjAxMC0wMS0wMSAyMDIyLTA5LTAxIikKdGVuZGVuY2lhIDwtIGd0cmVuZHModGVybWlubywgdWJpY2FjaW9uLCBjYW5hbCwgdGltZSA9IHBlcmlvZG8pCnBsb3QodGVuZGVuY2lhKQpgYGAKCgoKCiNDb25jbHVzacOzbgpMYSBwcsOhY3RpY2EgZGUgYnVzY2FyIOKAnEdsb2JhbCBUcmVuZHPigJ0gcHVlZGUgYXl1ZGFyIGEgdW4gbmVnb2NpbyBhbCBzYWJlciBxdWUgdGlwbyBkZSB0ZW5kZW5jaWFzIGVzdMOhbiBidXNjYW5kbyBsb3MgY2xpZW50ZXMsIHkgYXPDrSBwb2RlciBwYXJ0aWNpcGFyIGVuIGxhcyB0ZW5kZW5jaWFzIHkgZXN0YXIgZW4gbGEgbWVudGUgZGUgbG9zIGNsaWVudGVzLgoKCg==