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