Librerias
library(gtrendsR)
library(tidyverse)
Herramienta “El Generador de Valor de Datos”
Paso 1. Definir el área de negocio a impactar y su
KPI
El departamento de mercadotecnia de Club de Futbol América, y el KPI
es ventas de productos del club.
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.
Identificar tendencias de popularidad del club en la web para
promocionar productos del club.
Paso 4.Reunir los datos requeridos.
Elaborar un gráfico con la popularidad del club a través de los años
en la web.
Paso 5. Plan de ejecución.
Mecadotecnia elaborará plan para desarrollar productos similares a
los que hubo en estos periodos
Pasos para realizar búsqueda
Paso 1. Definir el termino a buscar
termino<-c("Club América")
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 Funcion
tendencia<-gtrends(termino,ubicacion,canal,time=periodo)
plot(tendencia)

Busqueda de tendencias OXXO
Primera búsqueda
Esta primer búsqueda nos mostrará la cantidad de search hits que hubo
sobre OXXO en México en canales web desde el 1ero de
enero del 2015 hasta el 6 de octubre del presente año.
Paso 1. Definir el termino a buscar
termino4<-c("OXXO")
Paso 2. Definir la locacion (ISO3166-2, country
codes)
ubicacion4<-c("MX")
Paso 3. Definir el canal: web, news, images,
youtube
canal4<-"web"
Paso 4. Definir la ventana de tiempo
periodo4<-("2015-01-01 2022-10-06")
Paso 5 Funcion
tendencia4<-gtrends(termino4,ubicacion4,canal4,time=periodo4)
plot(tendencia4)

Segunda búsqueda
Esta segunda búsqueda nos mostrará la cantidad de search hits que
hubo sobre OXXO PREMIA en México en canales web desde
el 1ero de enero del 2015 hasta el 6 de octubre del presente año.
Paso 1. Definir el termino a buscar
termino5<-c("OXXO PREMIA")
Paso 2. Definir la locacion (ISO3166-2, country
codes)
ubicacion5<-c("MX")
Paso 3. Definir el canal: web, news, images,
youtube
canal5<-"web"
Paso 4. Definir la ventana de tiempo
periodo5<-("2015-01-01 2022-10-06")
Paso 5 Funcion
tendencia5<-gtrends(termino5,ubicacion5,canal5,time=periodo5)
plot(tendencia5)

Tercera búsqueda
Esta tercera búsqueda nos mostrará la cantidad de search hits de
FEMSA en México en canales de noticias desde el 1ero de
enero del 2010 hasta el 6 de octubre del presente año.
Paso 1. Definir el termino a buscar
termino6<-c("FEMSA")
Paso 2. Definir la locacion (ISO3166-2, country
codes)
ubicacion6<-c("MX")
Paso 3. Definir el canal: web, news, images,
youtube
canal6<-"news"
Paso 4. Definir la ventana de tiempo
periodo6<-("2010-01-01 2022-10-06")
Paso 5 Funcion
tendencia6<-gtrends(termino6,ubicacion6,canal6,time=periodo6)
plot(tendencia6)

Busqueda de tendencias John Deere
Primera búsqueda
Paso 1. Definir el termino a buscar
termino2<-c("John Deere")
Paso 2. Definir la locacion (ISO3166-2, country
codes)
ubicacion2<-c("MX")
Paso 3. Definir el canal: web, news, images,
youtube
canal2<-"web"
Paso 4. Definir la ventana de tiempo
periodo2<-("2015-01-01 2022-09-01")
Paso 5 Funcion
tendencia2<-gtrends(termino2,ubicacion2,canal2,time=periodo2)
plot(tendencia2)

Segunda búsqueda
Paso 1. Definir el termino a buscar
termino3<-c("John Deere")
Paso 2. Definir la locacion (ISO3166-2, country
codes)
ubicacion3<-c("MX")
Paso 3. Definir el canal: web, news, images,
youtube
canal3<-"youtube"
Paso 4. Definir la ventana de tiempo
periodo3<-("2015-01-01 2022-09-01")
Paso 5 Funcion
tendencia3<-gtrends(termino3,ubicacion3,canal3,time=periodo3)
plot(tendencia3)

Tercera búsqueda
Paso 1. Definir el termino a buscar
termino4<-c("John Deere 5105")
Paso 2. Definir la locacion (ISO3166-2, country
codes)
ubicacion3<-c("US")
Paso 3. Definir el canal: web, news, images,
youtube
canal3<-"youtube"
Paso 4. Definir la ventana de tiempo
periodo3<-("2015-01-01 2022-09-01")
Paso 5 Funcion
tendencia4<-gtrends(termino4,ubicacion3,canal3,time=periodo3)
plot(tendencia4)

Conclusiones
R nos permite acceder a tendencias web, además de
tendencias de otros medios de comunicación. De nuevo, este ejercicio nos
demuestra lo valiosa que es la información a la cual podemos acceder de
forma gratuita en R. Puede usarse para una gran
cantidad de propósitos, más allá de solo ejercicios de aprendizaje.
LS0tDQp0aXRsZTogIkdsb2JhbCBUcmVuZHMiDQphdXRob3I6ICJKYXZpZXIgQXlhbGEiDQpkYXRlOiAnMjAyMi0wOS0wMicNCm91dHB1dDoNCiAgaHRtbF9kb2N1bWVudDoNCiAgICB0b2M6IHRydWUNCiAgICB0b2NfZmxvYXQ6IHRydWUNCiAgICBjb2RlX2Rvd25sb2FkOiB0cnVlDQotLS0NCmBgYHtjc3MsIGVjaG89RkFMU0V9DQpoMSwgaDQgew0KICB0ZXh0LWFsaWduOiBjZW50ZXI7DQp9DQoNCmgxLCBoMiwgaDMgew0KICBjb2xvcjogIzA2MUY2QjsNCn0NCmBgYA0KDQoNCiMjIExpYnJlcmlhcyAgDQpgYGB7ciBtZXNzYWdlPUZBTFNFLCB3YXJuaW5nPUZBTFNFfQ0KbGlicmFyeShndHJlbmRzUikNCmxpYnJhcnkodGlkeXZlcnNlKQ0KYGBgDQoNCg0KIyMgSGVycmFtaWVudGEgIkVsIEdlbmVyYWRvciBkZSBWYWxvciBkZSBEYXRvcyIgIA0KIyMjIyMgKipQYXNvIDEuIERlZmluaXIgZWwgw6FyZWEgZGUgbmVnb2NpbyBhIGltcGFjdGFyIHkgc3UgS1BJKioNCkVsIGRlcGFydGFtZW50byBkZSBtZXJjYWRvdGVjbmlhIGRlIENsdWIgZGUgRnV0Ym9sIEFtw6lyaWNhLCB5IGVsIEtQSSBlcyB2ZW50YXMgZGUgcHJvZHVjdG9zIGRlbCBjbHViLg0KDQojIyMjIyAqKlBhc28gMi4gU2VsZWNjaW9uYXIgcGxhbnRpbGxhKHMpIHBhcmEgY3JlYXIgdmFsb3IgYSBwYXJ0aXIgZGUgbG9zIGRhdG9zIGRlIGxvcyBjbGllbnRlcy4qKg0KPGNlbnRlcj4NCjxzcGFuIHN0eWxlPSJjb2xvcjogIzA2MUY2QjsiPioqVmlzacOzbioqPC9zcGFuPiAgU2VnbWVudGFjacOzbiAgUGVyc29uYWxpemFjacOzbiAgQ29udGV4dHVhbGl6YWNpw7NuDQo8L2NlbnRlcj4NCg0KIyMjIyMgKipQYXNvIDMuIEdlbmVyYXIgaWRlYXMgbyBjb25jZXB0b3MgZXNwZWPDrWZpY29zLioqDQpJZGVudGlmaWNhciB0ZW5kZW5jaWFzIGRlIHBvcHVsYXJpZGFkIGRlbCBjbHViIGVuIGxhIHdlYiBwYXJhIHByb21vY2lvbmFyIHByb2R1Y3RvcyBkZWwgY2x1Yi4gIA0KDQojIyMjIyAqKlBhc28gNC5SZXVuaXIgbG9zIGRhdG9zIHJlcXVlcmlkb3MuKioNCkVsYWJvcmFyIHVuIGdyw6FmaWNvIGNvbiBsYSBwb3B1bGFyaWRhZCBkZWwgY2x1YiBhIHRyYXbDqXMgZGUgbG9zIGHDsW9zIGVuIGxhIHdlYi4NCg0KIyMjIyMgKipQYXNvIDUuIFBsYW4gZGUgZWplY3VjacOzbi4qKg0KTWVjYWRvdGVjbmlhIGVsYWJvcmFyw6EgcGxhbiBwYXJhIGRlc2Fycm9sbGFyIHByb2R1Y3RvcyBzaW1pbGFyZXMgYSBsb3MgcXVlIGh1Ym8gZW4gZXN0b3MgcGVyaW9kb3MgDQoNCiMjIFBhc29zIHBhcmEgcmVhbGl6YXIgYsO6c3F1ZWRhDQoqKlBhc28gMS4gRGVmaW5pciBlbCB0ZXJtaW5vIGEgYnVzY2FyKiogIA0KYGBge3J9DQp0ZXJtaW5vPC1jKCJDbHViIEFtw6lyaWNhIikNCmBgYA0KDQoNCioqUGFzbyAyLiBEZWZpbmlyIGxhIGxvY2FjaW9uIChJU08zMTY2LTIsIGNvdW50cnkgY29kZXMpKiogIA0KYGBge3J9DQp1YmljYWNpb248LWMoIk1YIikNCmBgYA0KDQoNCioqUGFzbyAzLiBEZWZpbmlyIGVsIGNhbmFsOiB3ZWIsIG5ld3MsIGltYWdlcywgeW91dHViZSoqICANCmBgYHtyfQ0KY2FuYWw8LSJ3ZWIiDQpgYGANCg0KDQoqKlBhc28gNC4gRGVmaW5pciBsYSB2ZW50YW5hIGRlIHRpZW1wbyoqICANCmBgYHtyfQ0KcGVyaW9kbzwtKCIyMDEwLTAxLTAxIDIwMjItMDktMDEiKSANCg0KYGBgDQoNCg0KKipQYXNvIDUgRnVuY2lvbioqDQpgYGB7cn0NCnRlbmRlbmNpYTwtZ3RyZW5kcyh0ZXJtaW5vLHViaWNhY2lvbixjYW5hbCx0aW1lPXBlcmlvZG8pDQpwbG90KHRlbmRlbmNpYSkNCg0KYGBgDQoNCiMjIEJ1c3F1ZWRhIGRlIHRlbmRlbmNpYXMgT1hYTw0KDQojIyMgUHJpbWVyYSBiw7pzcXVlZGENCkVzdGEgcHJpbWVyIGLDunNxdWVkYSBub3MgbW9zdHJhcsOhIGxhIGNhbnRpZGFkIGRlIHNlYXJjaCBoaXRzIHF1ZSBodWJvIHNvYnJlICoqT1hYTyoqIGVuIE3DqXhpY28gZW4gY2FuYWxlcyB3ZWIgZGVzZGUgZWwgMWVybyBkZSBlbmVybyBkZWwgMjAxNSBoYXN0YSBlbCA2IGRlIG9jdHVicmUgZGVsIHByZXNlbnRlIGHDsW8uIA0KDQoqKlBhc28gMS4gRGVmaW5pciBlbCB0ZXJtaW5vIGEgYnVzY2FyKiogIA0KYGBge3J9DQp0ZXJtaW5vNDwtYygiT1hYTyIpDQpgYGANCg0KDQoqKlBhc28gMi4gRGVmaW5pciBsYSBsb2NhY2lvbiAoSVNPMzE2Ni0yLCBjb3VudHJ5IGNvZGVzKSoqICANCmBgYHtyfQ0KdWJpY2FjaW9uNDwtYygiTVgiKQ0KYGBgDQoNCg0KKipQYXNvIDMuIERlZmluaXIgZWwgY2FuYWw6IHdlYiwgbmV3cywgaW1hZ2VzLCB5b3V0dWJlKiogIA0KYGBge3J9DQpjYW5hbDQ8LSJ3ZWIiDQpgYGANCg0KDQoqKlBhc28gNC4gRGVmaW5pciBsYSB2ZW50YW5hIGRlIHRpZW1wbyoqICANCmBgYHtyfQ0KcGVyaW9kbzQ8LSgiMjAxNS0wMS0wMSAyMDIyLTEwLTA2IikgDQoNCmBgYA0KDQoNCioqUGFzbyA1IEZ1bmNpb24qKg0KYGBge3J9DQp0ZW5kZW5jaWE0PC1ndHJlbmRzKHRlcm1pbm80LHViaWNhY2lvbjQsY2FuYWw0LHRpbWU9cGVyaW9kbzQpDQpwbG90KHRlbmRlbmNpYTQpDQoNCmBgYA0KDQojIyMgU2VndW5kYSBiw7pzcXVlZGENCkVzdGEgc2VndW5kYSBiw7pzcXVlZGEgbm9zIG1vc3RyYXLDoSBsYSBjYW50aWRhZCBkZSBzZWFyY2ggaGl0cyBxdWUgaHVibyBzb2JyZSAqKk9YWE8gUFJFTUlBKiogZW4gTcOpeGljbyBlbiBjYW5hbGVzIHdlYiBkZXNkZSBlbCAxZXJvIGRlIGVuZXJvIGRlbCAyMDE1IGhhc3RhIGVsIDYgZGUgb2N0dWJyZSBkZWwgcHJlc2VudGUgYcOxby4gDQoNCioqUGFzbyAxLiBEZWZpbmlyIGVsIHRlcm1pbm8gYSBidXNjYXIqKiAgDQpgYGB7cn0NCnRlcm1pbm81PC1jKCJPWFhPIFBSRU1JQSIpDQpgYGANCg0KDQoqKlBhc28gMi4gRGVmaW5pciBsYSBsb2NhY2lvbiAoSVNPMzE2Ni0yLCBjb3VudHJ5IGNvZGVzKSoqICANCmBgYHtyfQ0KdWJpY2FjaW9uNTwtYygiTVgiKQ0KYGBgDQoNCg0KKipQYXNvIDMuIERlZmluaXIgZWwgY2FuYWw6IHdlYiwgbmV3cywgaW1hZ2VzLCB5b3V0dWJlKiogIA0KYGBge3J9DQpjYW5hbDU8LSJ3ZWIiDQpgYGANCg0KDQoqKlBhc28gNC4gRGVmaW5pciBsYSB2ZW50YW5hIGRlIHRpZW1wbyoqICANCmBgYHtyfQ0KcGVyaW9kbzU8LSgiMjAxNS0wMS0wMSAyMDIyLTEwLTA2IikgDQoNCmBgYA0KDQoNCioqUGFzbyA1IEZ1bmNpb24qKg0KYGBge3J9DQp0ZW5kZW5jaWE1PC1ndHJlbmRzKHRlcm1pbm81LHViaWNhY2lvbjUsY2FuYWw1LHRpbWU9cGVyaW9kbzUpDQpwbG90KHRlbmRlbmNpYTUpDQoNCmBgYA0KDQojIyMgVGVyY2VyYSBiw7pzcXVlZGENCkVzdGEgdGVyY2VyYSBiw7pzcXVlZGEgbm9zIG1vc3RyYXLDoSBsYSBjYW50aWRhZCBkZSBzZWFyY2ggaGl0cyBkZSAqKkZFTVNBKiogZW4gTcOpeGljbyBlbiBjYW5hbGVzIGRlIG5vdGljaWFzIGRlc2RlIGVsIDFlcm8gZGUgZW5lcm8gZGVsIDIwMTAgaGFzdGEgZWwgNiBkZSBvY3R1YnJlIGRlbCBwcmVzZW50ZSBhw7FvLg0KDQoqKlBhc28gMS4gRGVmaW5pciBlbCB0ZXJtaW5vIGEgYnVzY2FyKiogIA0KYGBge3J9DQp0ZXJtaW5vNjwtYygiRkVNU0EiKQ0KYGBgDQoNCg0KKipQYXNvIDIuIERlZmluaXIgbGEgbG9jYWNpb24gKElTTzMxNjYtMiwgY291bnRyeSBjb2RlcykqKiAgDQpgYGB7cn0NCnViaWNhY2lvbjY8LWMoIk1YIikNCmBgYA0KDQoNCioqUGFzbyAzLiBEZWZpbmlyIGVsIGNhbmFsOiB3ZWIsIG5ld3MsIGltYWdlcywgeW91dHViZSoqICANCmBgYHtyfQ0KY2FuYWw2PC0ibmV3cyINCmBgYA0KDQoNCioqUGFzbyA0LiBEZWZpbmlyIGxhIHZlbnRhbmEgZGUgdGllbXBvKiogIA0KYGBge3J9DQpwZXJpb2RvNjwtKCIyMDEwLTAxLTAxIDIwMjItMTAtMDYiKSANCg0KYGBgDQoNCg0KKipQYXNvIDUgRnVuY2lvbioqDQpgYGB7cn0NCnRlbmRlbmNpYTY8LWd0cmVuZHModGVybWlubzYsdWJpY2FjaW9uNixjYW5hbDYsdGltZT1wZXJpb2RvNikNCnBsb3QodGVuZGVuY2lhNikNCg0KYGBgDQoNCiMjIEJ1c3F1ZWRhIGRlIHRlbmRlbmNpYXMgSm9obiBEZWVyZQ0KDQojIyMgUHJpbWVyYSBiw7pzcXVlZGENCg0KKipQYXNvIDEuIERlZmluaXIgZWwgdGVybWlubyBhIGJ1c2NhcioqICANCmBgYHtyfQ0KdGVybWlubzI8LWMoIkpvaG4gRGVlcmUiKQ0KYGBgDQoNCg0KKipQYXNvIDIuIERlZmluaXIgbGEgbG9jYWNpb24gKElTTzMxNjYtMiwgY291bnRyeSBjb2RlcykqKiAgDQpgYGB7cn0NCnViaWNhY2lvbjI8LWMoIk1YIikNCmBgYA0KDQoNCioqUGFzbyAzLiBEZWZpbmlyIGVsIGNhbmFsOiB3ZWIsIG5ld3MsIGltYWdlcywgeW91dHViZSoqICANCmBgYHtyfQ0KY2FuYWwyPC0id2ViIg0KYGBgDQoNCg0KKipQYXNvIDQuIERlZmluaXIgbGEgdmVudGFuYSBkZSB0aWVtcG8qKiAgDQpgYGB7cn0NCnBlcmlvZG8yPC0oIjIwMTUtMDEtMDEgMjAyMi0wOS0wMSIpIA0KDQpgYGANCg0KDQoqKlBhc28gNSBGdW5jaW9uKioNCmBgYHtyfQ0KdGVuZGVuY2lhMjwtZ3RyZW5kcyh0ZXJtaW5vMix1YmljYWNpb24yLGNhbmFsMix0aW1lPXBlcmlvZG8yKQ0KcGxvdCh0ZW5kZW5jaWEyKQ0KDQpgYGANCg0KDQojIyMgU2VndW5kYSBiw7pzcXVlZGENCg0KKipQYXNvIDEuIERlZmluaXIgZWwgdGVybWlubyBhIGJ1c2NhcioqICANCmBgYHtyfQ0KdGVybWlubzM8LWMoIkpvaG4gRGVlcmUiKQ0KYGBgDQoNCg0KKipQYXNvIDIuIERlZmluaXIgbGEgbG9jYWNpb24gKElTTzMxNjYtMiwgY291bnRyeSBjb2RlcykqKiAgDQpgYGB7cn0NCnViaWNhY2lvbjM8LWMoIk1YIikNCmBgYA0KDQoNCioqUGFzbyAzLiBEZWZpbmlyIGVsIGNhbmFsOiB3ZWIsIG5ld3MsIGltYWdlcywgeW91dHViZSoqICANCmBgYHtyfQ0KY2FuYWwzPC0ieW91dHViZSINCmBgYA0KDQoNCioqUGFzbyA0LiBEZWZpbmlyIGxhIHZlbnRhbmEgZGUgdGllbXBvKiogIA0KYGBge3J9DQpwZXJpb2RvMzwtKCIyMDE1LTAxLTAxIDIwMjItMDktMDEiKSANCg0KYGBgDQoNCg0KKipQYXNvIDUgRnVuY2lvbioqDQpgYGB7cn0NCnRlbmRlbmNpYTM8LWd0cmVuZHModGVybWlubzMsdWJpY2FjaW9uMyxjYW5hbDMsdGltZT1wZXJpb2RvMykNCnBsb3QodGVuZGVuY2lhMykNCmBgYA0KDQojIyMgVGVyY2VyYSBiw7pzcXVlZGENCg0KKipQYXNvIDEuIERlZmluaXIgZWwgdGVybWlubyBhIGJ1c2NhcioqICANCmBgYHtyfQ0KdGVybWlubzQ8LWMoIkpvaG4gRGVlcmUgNTEwNSIpDQpgYGANCg0KDQoqKlBhc28gMi4gRGVmaW5pciBsYSBsb2NhY2lvbiAoSVNPMzE2Ni0yLCBjb3VudHJ5IGNvZGVzKSoqICANCmBgYHtyfQ0KdWJpY2FjaW9uMzwtYygiVVMiKQ0KYGBgDQoNCg0KKipQYXNvIDMuIERlZmluaXIgZWwgY2FuYWw6IHdlYiwgbmV3cywgaW1hZ2VzLCB5b3V0dWJlKiogIA0KYGBge3J9DQpjYW5hbDM8LSJ5b3V0dWJlIg0KYGBgDQoNCg0KKipQYXNvIDQuIERlZmluaXIgbGEgdmVudGFuYSBkZSB0aWVtcG8qKiAgDQpgYGB7cn0NCnBlcmlvZG8zPC0oIjIwMTUtMDEtMDEgMjAyMi0wOS0wMSIpIA0KDQpgYGANCg0KDQoqKlBhc28gNSBGdW5jaW9uKioNCmBgYHtyfQ0KdGVuZGVuY2lhNDwtZ3RyZW5kcyh0ZXJtaW5vNCx1YmljYWNpb24zLGNhbmFsMyx0aW1lPXBlcmlvZG8zKQ0KcGxvdCh0ZW5kZW5jaWE0KQ0KYGBgDQoNCg0KIyMgQ29uY2x1c2lvbmVzICANCioqUioqIG5vcyBwZXJtaXRlIGFjY2VkZXIgYSB0ZW5kZW5jaWFzIHdlYiwgYWRlbcOhcyBkZSB0ZW5kZW5jaWFzIGRlIG90cm9zIG1lZGlvcyBkZSBjb211bmljYWNpw7NuLiBEZSBudWV2bywgZXN0ZSBlamVyY2ljaW8gbm9zIGRlbXVlc3RyYSBsbyB2YWxpb3NhIHF1ZSBlcyBsYSBpbmZvcm1hY2nDs24gYSBsYSBjdWFsIHBvZGVtb3MgYWNjZWRlciBkZSBmb3JtYSBncmF0dWl0YSBlbiAqKlIqKi4gUHVlZGUgdXNhcnNlIHBhcmEgdW5hIGdyYW4gY2FudGlkYWQgZGUgcHJvcMOzc2l0b3MsIG3DoXMgYWxsw6EgZGUgc29sbyBlamVyY2ljaW9zIGRlIGFwcmVuZGl6YWplLg==