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

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)

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.

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)

LS0tDQp0aXRsZTogIkdsb2JhbCBUcmVuZHMiDQphdXRob3I6ICJKYXZpZXIgQXlhbGEiDQpkYXRlOiAnMjAyMi0wOS0wMicNCm91dHB1dDoNCiAgaHRtbF9kb2N1bWVudDoNCiAgICB0b2M6IHRydWUNCiAgICB0b2NfZmxvYXQ6IHRydWUNCiAgICBjb2RlX2Rvd25sb2FkOiB0cnVlDQotLS0NCmBgYHtjc3MsIGVjaG89RkFMU0V9DQpoMSwgaDQgew0KICB0ZXh0LWFsaWduOiBjZW50ZXI7DQp9DQoNCmgxLCBoMiwgaDMgew0KICBjb2xvcjogIzA2MUY2QjsNCn0NCmBgYA0KPGNlbnRlcj4NCjxpbWcgc3JjPSJDOi8vVXNlcnMvL2phdmF3Ly9PbmVEcml2ZSAtIEluc3RpdHV0byBUZWNub2xvZ2ljbyB5IGRlIEVzdHVkaW9zIFN1cGVyaW9yZXMgZGUgTW9udGVycmV5Ly9Mb2dvIElURVNNIHNtYWxsLnBuZyI+DQo8L2NlbnRlcj4gDQoNCiMjIExpYnJlcmlhcyAgDQpgYGB7ciBtZXNzYWdlPUZBTFNFLCB3YXJuaW5nPUZBTFNFfQ0KbGlicmFyeShndHJlbmRzUikNCmxpYnJhcnkodGlkeXZlcnNlKQ0KYGBgDQoNCg0KIyMgSGVycmFtaWVudGEgIkVsIEdlbmVyYWRvciBkZSBWYWxvciBkZSBEYXRvcyIgIA0KIyMjIyMgKipQYXNvIDEuIERlZmluaXIgZWwgw6FyZWEgZGUgbmVnb2NpbyBhIGltcGFjdGFyIHkgc3UgS1BJKioNCkVsIGRlcGFydGFtZW50byBkZSBtZXJjYWRvdGVjbmlhIGRlIENsdWIgZGUgRnV0Ym9sIEFtw6lyaWNhLCB5IGVsIEtQSSBlcyB2ZW50YXMgZGUgcHJvZHVjdG9zIGRlbCBjbHViLg0KDQojIyMjIyAqKlBhc28gMi4gU2VsZWNjaW9uYXIgcGxhbnRpbGxhKHMpIHBhcmEgY3JlYXIgdmFsb3IgYSBwYXJ0aXIgZGUgbG9zIGRhdG9zIGRlIGxvcyBjbGllbnRlcy4qKg0KPGNlbnRlcj4NCjxzcGFuIHN0eWxlPSJjb2xvcjogIzA2MUY2QjsiPioqVmlzacOzbioqPC9zcGFuPiAgU2VnbWVudGFjacOzbiAgUGVyc29uYWxpemFjacOzbiAgQ29udGV4dHVhbGl6YWNpw7NuDQo8L2NlbnRlcj4NCg0KIyMjIyMgKipQYXNvIDMuIEdlbmVyYXIgaWRlYXMgbyBjb25jZXB0b3MgZXNwZWPDrWZpY29zLioqDQpJZGVudGlmaWNhciB0ZW5kZW5jaWFzIGRlIHBvcHVsYXJpZGFkIGRlbCBjbHViIGVuIGxhIHdlYiBwYXJhIHByb21vY2lvbmFyIHByb2R1Y3RvcyBkZWwgY2x1Yi4gIA0KDQojIyMjIyAqKlBhc28gNC5SZXVuaXIgbG9zIGRhdG9zIHJlcXVlcmlkb3MuKioNCkVsYWJvcmFyIHVuIGdyw6FmaWNvIGNvbiBsYSBwb3B1bGFyaWRhZCBkZWwgY2x1YiBhIHRyYXbDqXMgZGUgbG9zIGHDsW9zIGVuIGxhIHdlYi4NCg0KIyMjIyMgKipQYXNvIDUuIFBsYW4gZGUgZWplY3VjacOzbi4qKg0KTWVjYWRvdGVjbmlhIGVsYWJvcmFyw6EgcGxhbiBwYXJhIGRlc2Fycm9sbGFyIHByb2R1Y3RvcyBzaW1pbGFyZXMgYSBsb3MgcXVlIGh1Ym8gZW4gZXN0b3MgcGVyaW9kb3MgDQoNCg0KIyMgUGFzbyAxLiBEZWZpbmlyIGVsIHRlcm1pbm8gYSBidXNjYXIgIA0KYGBge3J9DQp0ZXJtaW5vPC1jKCJDbHViIEFtw6lyaWNhIikNCmBgYA0KDQoNCiMjIFBhc28gMi4gRGVmaW5pciBsYSBsb2NhY2lvbiAoSVNPMzE2Ni0yLCBjb3VudHJ5IGNvZGVzKSAgDQpgYGB7cn0NCnViaWNhY2lvbjwtYygiTVgiKQ0KYGBgDQoNCg0KIyMgUGFzbyAzLiBEZWZpbmlyIGVsIGNhbmFsOiB3ZWIsIG5ld3MsIGltYWdlcywgeW91dHViZSAgDQpgYGB7cn0NCmNhbmFsPC0id2ViIg0KYGBgDQoNCg0KIyMgUGFzbyA0LiBEZWZpbmlyIGxhIHZlbnRhbmEgZGUgdGllbXBvICANCmBgYHtyfQ0KcGVyaW9kbzwtKCIyMDEwLTAxLTAxIDIwMjItMDktMDEiKSANCg0KYGBgDQoNCg0KIyMgUGFzbyA1IEZ1bmNpb24NCmBgYHtyfQ0KdGVuZGVuY2lhPC1ndHJlbmRzKHRlcm1pbm8sdWJpY2FjaW9uLGNhbmFsLHRpbWU9cGVyaW9kbykNCnBsb3QodGVuZGVuY2lhKQ0KDQpgYGANCg0KIyMgQ29uY2x1c2lvbmVzICANCioqUioqIG5vcyBwZXJtaXRlIGFjY2VkZXIgYSB0ZW5kZW5jaWFzIHdlYiwgYWRlbcOhcyBkZSB0ZW5kZW5jaWFzIGRlIG90cm9zIG1lZGlvcyBkZSBjb211bmljYWNpw7NuLiBEZSBudWV2bywgZXN0ZSBlamVyY2ljaW8gbm9zIGRlbXVlc3RyYSBsbyB2YWxpb3NhIHF1ZSBlcyBsYSBpbmZvcm1hY2nDs24gYSBsYSBjdWFsIHBvZGVtb3MgYWNjZWRlciBkZSBmb3JtYSBncmF0dWl0YSBlbiAqKlIqKi4gUHVlZGUgdXNhcnNlIHBhcmEgdW5hIGdyYW4gY2FudGlkYWQgZGUgcHJvcMOzc2l0b3MsIG3DoXMgYWxsw6EgZGUgc29sbyBlamVyY2ljaW9zIGRlIGFwcmVuZGl6YWplLg0KDQojIyBCdXNxdWVkYSBkZSB0ZW5kZW5jaWFzIEpvaG4gRGVlcmUNCg0KIyMjIFByaW1lcmEgYsO6c3F1ZWRhDQoNCioqUGFzbyAxLiBEZWZpbmlyIGVsIHRlcm1pbm8gYSBidXNjYXIqKiAgDQpgYGB7cn0NCnRlcm1pbm8yPC1jKCJKb2huIERlZXJlIikNCmBgYA0KDQoNCioqUGFzbyAyLiBEZWZpbmlyIGxhIGxvY2FjaW9uIChJU08zMTY2LTIsIGNvdW50cnkgY29kZXMpKiogIA0KYGBge3J9DQp1YmljYWNpb24yPC1jKCJNWCIpDQpgYGANCg0KDQoqKlBhc28gMy4gRGVmaW5pciBlbCBjYW5hbDogd2ViLCBuZXdzLCBpbWFnZXMsIHlvdXR1YmUqKiAgDQpgYGB7cn0NCmNhbmFsMjwtIndlYiINCmBgYA0KDQoNCioqUGFzbyA0LiBEZWZpbmlyIGxhIHZlbnRhbmEgZGUgdGllbXBvKiogIA0KYGBge3J9DQpwZXJpb2RvMjwtKCIyMDE1LTAxLTAxIDIwMjItMDktMDEiKSANCg0KYGBgDQoNCg0KKipQYXNvIDUgRnVuY2lvbioqDQpgYGB7cn0NCnRlbmRlbmNpYTI8LWd0cmVuZHModGVybWlubzIsdWJpY2FjaW9uMixjYW5hbDIsdGltZT1wZXJpb2RvMikNCnBsb3QodGVuZGVuY2lhMikNCg0KYGBgDQoNCg0KIyMjIFNlZ3VuZGEgYsO6c3F1ZWRhDQoNCioqUGFzbyAxLiBEZWZpbmlyIGVsIHRlcm1pbm8gYSBidXNjYXIqKiAgDQpgYGB7cn0NCnRlcm1pbm8zPC1jKCJKb2huIERlZXJlIikNCmBgYA0KDQoNCioqUGFzbyAyLiBEZWZpbmlyIGxhIGxvY2FjaW9uIChJU08zMTY2LTIsIGNvdW50cnkgY29kZXMpKiogIA0KYGBge3J9DQp1YmljYWNpb24zPC1jKCJNWCIpDQpgYGANCg0KDQoqKlBhc28gMy4gRGVmaW5pciBlbCBjYW5hbDogd2ViLCBuZXdzLCBpbWFnZXMsIHlvdXR1YmUqKiAgDQpgYGB7cn0NCmNhbmFsMzwtInlvdXR1YmUiDQpgYGANCg0KDQoqKlBhc28gNC4gRGVmaW5pciBsYSB2ZW50YW5hIGRlIHRpZW1wbyoqICANCmBgYHtyfQ0KcGVyaW9kbzM8LSgiMjAxNS0wMS0wMSAyMDIyLTA5LTAxIikgDQoNCmBgYA0KDQoNCioqUGFzbyA1IEZ1bmNpb24qKg0KYGBge3J9DQp0ZW5kZW5jaWEzPC1ndHJlbmRzKHRlcm1pbm8zLHViaWNhY2lvbjMsY2FuYWwzLHRpbWU9cGVyaW9kbzMpDQpwbG90KHRlbmRlbmNpYTMpDQpgYGANCg0KIyMjIFRlcmNlcmEgYsO6c3F1ZWRhDQoNCioqUGFzbyAxLiBEZWZpbmlyIGVsIHRlcm1pbm8gYSBidXNjYXIqKiAgDQpgYGB7cn0NCnRlcm1pbm80PC1jKCJKb2huIERlZXJlIDUxMDUiKQ0KYGBgDQoNCg0KKipQYXNvIDIuIERlZmluaXIgbGEgbG9jYWNpb24gKElTTzMxNjYtMiwgY291bnRyeSBjb2RlcykqKiAgDQpgYGB7cn0NCnViaWNhY2lvbjM8LWMoIlVTIikNCmBgYA0KDQoNCioqUGFzbyAzLiBEZWZpbmlyIGVsIGNhbmFsOiB3ZWIsIG5ld3MsIGltYWdlcywgeW91dHViZSoqICANCmBgYHtyfQ0KY2FuYWwzPC0ieW91dHViZSINCmBgYA0KDQoNCioqUGFzbyA0LiBEZWZpbmlyIGxhIHZlbnRhbmEgZGUgdGllbXBvKiogIA0KYGBge3J9DQpwZXJpb2RvMzwtKCIyMDE1LTAxLTAxIDIwMjItMDktMDEiKSANCg0KYGBgDQoNCg0KKipQYXNvIDUgRnVuY2lvbioqDQpgYGB7cn0NCnRlbmRlbmNpYTQ8LWd0cmVuZHModGVybWlubzQsdWJpY2FjaW9uMyxjYW5hbDMsdGltZT1wZXJpb2RvMykNCnBsb3QodGVuZGVuY2lhNCkNCmBgYA==