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