#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==