Importar base de datos

Instalar paquetes y llamar librerias

#install.packages("tidyverse")
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")

Herramienta “El Generador de Valor de Datos”

Caso escenario en que soy del área de Relaciones Públicas de influencers y busco conseguir más engagement en páginas web para un influencer en especifico de manera en que se pueda verificar en redes sociales y se generen más ventas.

Paso 1. Definir el área del negocio que buscamos impactar o mejorar y su KPI

El área impactada es el área de publicidad, relaciones públicas y ventas.

Los KPI´s a impactar son:

a. Tendencias del personaje en la web. b. Crecimiento de engagement con los años o meses

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.
Creación de estrategía para mantener en tendencia a este personaje.

Paso 4. Reunir los datos requeridos.
Se necesita la base de datos de global trends prevista en clase junto con sus librerías.

Paso 5. Plan de ejecución.
a. Hacer el análisis de tendencias de la últimos 5 años.
b.Ver como mejorar la posición del personaje en las tendencias.
c.Crear un plan de medios para generar más engagement en la web.
d. Generación de leads al ofrecerle a este personaje a una empresa.
e. Vender el personaje/Cerrar el trato.
f. Comprobar que esta persona es conocida y mandarle el papeleo a Instagram para obtener verificación.

Paso 1. Definir el termino a buscar

termino <- c("Andy Benavides")

Paso 2: Definir la locación (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 (los últimos 10-20 años)

periodo <- ("2017-01-01 2022-09-20")

Paso 5: Hacer la función

tendencia <- gtrends(termino, ubicacion, canal, time = periodo)
plot(tendencia)

Conclusión y Aprendizaje

Las tendencias globales son un asunto del cual deberíamos estar constantemente enterados y darle un giro a nuestra industria de interés, esto puesto a que es muy interesante el observar cómo estás tendencias pueden ser tan cambiantes a través de los años e inclusive los meses.

Para la industria en la que planeó trabajar en un futuro, puedo prever como este tipo de programa me podría beneficiar para generar insights que me ayuden a incrementar ventas o bien para modificar un producto. Esto y añadiendo un análisis de sentimientos serían los mejores complementos para el desarrollo ya sea de productos y servicios.

Es interesante que la librería de R es tan ahondarte en distintos temas y se pueden encontrar muchas curiosidades útiles para simplificar con algunas líneas de código algo que tomaría semanas en hacer manualmente.

Anexo: John Deere

termino <- c("John Deere")
ubicacion <- c("MX")
canal <- "web"
periodo <- ("2015-01-01 2022-09-26")
tendencia <- gtrends(termino, ubicacion, canal, time = periodo)
plot(tendencia)

termino <- c("CNH Industrial")
ubicacion <- c("MX")
canal <- "web"
periodo <- ("2015-01-01 2022-09-26")
tendencia <- gtrends(termino, ubicacion, canal, time = periodo)
plot(tendencia)

termino <- c("Tractores")
ubicacion <- c("MX")
canal <- "web"
periodo <- ("2010-01-01 2022-09-26")
tendencia <- gtrends(termino, ubicacion, canal, time = periodo)
plot(tendencia)

OXXO

termino <- c("Oxxo")
ubicacion <- c("MX")
canal <- "web"
periodo <- ("2010-01-01 2022-10-06")
tendencia <- gtrends(termino, ubicacion, canal, time = periodo)
plot(tendencia)

Aqui podemos ver como en la tendencia se ve que OXXO a traves de los años va incrementando el interes en internautas debido a sus estrategias de marketing al expandirse a otras industrias.

termino <- c("Tienda de Conveniencia")
ubicacion <- c("MX")
canal <- "web"
periodo <- ("2010-01-01 2022-10-06")
tendencia <- gtrends(termino, ubicacion, canal, time = periodo)
plot(tendencia)

Para las tiendas de conveniencia se ve un incremento en el interes de este tema en la web lo cual es beneficioso para OXXO al pertenecer mayormente en esta industria.

LS0tDQp0aXRsZTogPHNwYW4gc3R5bGU9IkNvbG9yOiNGMTZCQTIiPiJHbG9iYWwgVHJlbmRzIg0KYXV0aG9yOiAiRGFuaWVsYSBDw6FyZGVuYXMgWiAvLyBBMDE3MjA1MzUiDQpkYXRlOiAiMjAyMi0wOS0yMCINCm91dHB1dDogDQogICAgICBodG1sX2RvY3VtZW50Og0KICAgICAgICB0b2M6IHRydWUNCiAgICAgICAgdG9jX2Zsb2F0OiB0cnVlDQogICAgICAgIGNvZGVfZm9sZGluZzogImhpZGUiDQogICAgICAgIGNvZGVfZG93bmxvYWQ6IHRydWUNCi0tLQ0KKioqDQoNCiMgPGltZyBzcmM9ICJDOlxcVXNlcnNcXGRhbnljXFxEb3dubG9hZHNcXHRyZW5kLmdpZiIgLz4NCg0KIyA8c3BhbiBzdHlsZT0iQ29sb3I6I0YxNkJBMiI+SW1wb3J0YXIgYmFzZSBkZSBkYXRvcyA8L3NwYW4+DQoNCiMgPHNwYW4gc3R5bGU9IkNvbG9yOiNGMTZCQTIiPkluc3RhbGFyIHBhcXVldGVzIHkgbGxhbWFyIGxpYnJlcmlhcw0KYGBge3J9DQojaW5zdGFsbC5wYWNrYWdlcygidGlkeXZlcnNlIikNCmxpYnJhcnkodGlkeXZlcnNlKQ0KI2luc3RhbGwucGFja2FnZXMoImd0cmVuZHNSIikNCmxpYnJhcnkoZ3RyZW5kc1IpDQpgYGANCg0KKipQYXJhIHJlc29sdmVyIGVycm9yZXMgYWwgZ3JhZmljYXIqKg0KYGBge3J9DQoNCiNkZXZ0b29sczo6IGluc3RhbGxfZ2l0aHViKCJQTWFzc2ljb3R0ZS9ndHJlbmRzUiIpDQpgYGANCg0KDQojIDxzcGFuIHN0eWxlPSJDb2xvcjojRjE2QkEyIj4gSGVycmFtaWVudGEg4oCcRWwgR2VuZXJhZG9yIGRlIFZhbG9yIGRlIERhdG9z4oCdIDwvc3Bhbj4NCjxzdHlsZT4NCmRpdi5ibHVlIHsgYmFja2dyb3VuZC1jb2xvcjojNTg5ODFmOyBib3JkZXItcmFkaXVzOiA1cHg7IHBhZGRpbmc6IDIwcHg7fQ0KPC9zdHlsZT4NCjxkaXYgY2xhc3MgPSAiYmx1ZSI+DQoNCipDYXNvIGVzY2VuYXJpbyBlbiBxdWUgc295IGRlbCDDoXJlYSBkZSBSZWxhY2lvbmVzIFDDumJsaWNhcyBkZSBpbmZsdWVuY2VycyB5IGJ1c2NvIGNvbnNlZ3VpciBtw6FzIGVuZ2FnZW1lbnQgZW4gcMOhZ2luYXMgd2ViIHBhcmEgdW4gaW5mbHVlbmNlciBlbiBlc3BlY2lmaWNvIGRlIG1hbmVyYSBlbiBxdWUgc2UgcHVlZGEgdmVyaWZpY2FyIGVuIHJlZGVzIHNvY2lhbGVzIHkgc2UgZ2VuZXJlbiBtw6FzIHZlbnRhcy4qDQoNCipQYXNvIDEuKiBEZWZpbmlyIGVsIMOhcmVhIGRlbCBuZWdvY2lvIHF1ZSBidXNjYW1vcyBpbXBhY3RhciBvIG1lam9yYXIgeSBzdSBLUEkgDQoNCkVsIMOhcmVhIGltcGFjdGFkYSBlcyBlbCDDoXJlYSBkZSBwdWJsaWNpZGFkLCByZWxhY2lvbmVzIHDDumJsaWNhcyB5IHZlbnRhcy4gIA0KDQpMb3MgS1BJwrRzIGEgaW1wYWN0YXIgc29uOiAgDQoNCioqYS4gVGVuZGVuY2lhcyBkZWwgcGVyc29uYWplIGVuIGxhIHdlYi4gDQpiLiBDcmVjaW1pZW50byBkZSBlbmdhZ2VtZW50IGNvbiBsb3MgYcOxb3MgbyBtZXNlcyoqIA0KDQoqUGFzbyAyLiogU2VsZWNjaW9uYXIgcGxhbnRpbGxhKC1zKSBwYXJhIGNyZWFyIHZhbG9yIGEgcGFydGlyIGRlIGxvcyBkYXRvcyBkZSBsb3MgY2xpZW50ZXMuICAgICANCg0KVmlzacOzbiAvIFNlZ21lbnRhY2nDs24gLyAqKlBlcnNvbmFsaXphY2nDs24qKiAvIENvbnRleHR1YWxpemFjacOzbiAgICAgICANCg0KKlBhc28gMy4qIEdlbmVyYXIgaWRlYXMgbyBjb25jZXB0b3MgZXNwZWPDrWZpY29zLiAgIA0KQ3JlYWNpw7NuIGRlIGVzdHJhdGVnw61hIHBhcmEgbWFudGVuZXIgZW4gdGVuZGVuY2lhIGEgZXN0ZSBwZXJzb25hamUuIA0KDQoqUGFzbyA0LiogUmV1bmlyIGxvcyBkYXRvcyByZXF1ZXJpZG9zLiAgDQpTZSBuZWNlc2l0YSBsYSBiYXNlIGRlIGRhdG9zIGRlIGdsb2JhbCB0cmVuZHMgcHJldmlzdGEgZW4gY2xhc2UganVudG8gY29uIHN1cyBsaWJyZXLDrWFzLiANCg0KKlBhc28gNS4qIFBsYW4gZGUgZWplY3VjacOzbi4gIA0KYS4gSGFjZXIgZWwgYW7DoWxpc2lzIGRlIHRlbmRlbmNpYXMgZGUgbGEgw7psdGltb3MgNSBhw7Fvcy4gIA0KYi5WZXIgY29tbyBtZWpvcmFyIGxhIHBvc2ljacOzbiBkZWwgcGVyc29uYWplIGVuIGxhcyB0ZW5kZW5jaWFzLiAgIA0KYy5DcmVhciB1biBwbGFuIGRlIG1lZGlvcyBwYXJhIGdlbmVyYXIgbcOhcyBlbmdhZ2VtZW50IGVuIGxhIHdlYi4gICANCmQuIEdlbmVyYWNpw7NuIGRlIGxlYWRzIGFsIG9mcmVjZXJsZSBhIGVzdGUgcGVyc29uYWplIGEgdW5hIGVtcHJlc2EuICAgIA0KZS4gVmVuZGVyIGVsIHBlcnNvbmFqZS9DZXJyYXIgZWwgdHJhdG8uICAgDQpmLiBDb21wcm9iYXIgcXVlIGVzdGEgcGVyc29uYSBlcyBjb25vY2lkYSB5IG1hbmRhcmxlIGVsIHBhcGVsZW8gYSBJbnN0YWdyYW0gcGFyYSBvYnRlbmVyIHZlcmlmaWNhY2nDs24uICAgDQo8L2Rpdj4gDQoNCiMgPHNwYW4gc3R5bGU9IkNvbG9yOiNGMTZCQTIiPlBhc28gMS4gRGVmaW5pciBlbCB0ZXJtaW5vIGEgYnVzY2FyDQoNCg0KDQpgYGB7cn0NCnRlcm1pbm8gPC0gYygiQW5keSBCZW5hdmlkZXMiKQ0KYGBgDQoNCg0KDQojIDxzcGFuIHN0eWxlPSJDb2xvcjojRjE2QkEyIj5QYXNvIDI6IERlZmluaXIgbGEgbG9jYWNpw7NuIChJU08zMTY2LTIgY291bnRyeSBjb2RlcykNCmBgYHtyfQ0KdWJpY2FjaW9uIDwtIGMoIk1YIikNCmBgYA0KDQoNCiMgPHNwYW4gc3R5bGU9IkNvbG9yOiNGMTZCQTIiPlBhc28gMzogRGVmaW5pciBlbCBjYW5hbDp3ZWIsIG5ld3MsIGltYWdlcywgeW91dHViZQ0KYGBge3J9DQpjYW5hbCA8LSAid2ViIg0KDQpgYGANCg0KIyA8c3BhbiBzdHlsZT0iQ29sb3I6I0YxNkJBMiI+UGFzbyA0LiBEZWZpbmlyIGxhIHZlbnRhbmEgZGUgdGllbXBvIChsb3Mgw7psdGltb3MgMTAtMjAgYcOxb3MpDQpgYGB7cn0NCnBlcmlvZG8gPC0gKCIyMDE3LTAxLTAxIDIwMjItMDktMjAiKQ0KYGBgDQoNCg0KIyA8c3BhbiBzdHlsZT0iQ29sb3I6I0YxNkJBMiI+UGFzbyA1OiBIYWNlciBsYSBmdW5jacOzbg0KYGBge3J9DQp0ZW5kZW5jaWEgPC0gZ3RyZW5kcyh0ZXJtaW5vLCB1YmljYWNpb24sIGNhbmFsLCB0aW1lID0gcGVyaW9kbykNCnBsb3QodGVuZGVuY2lhKQ0KYGBgDQoNCg0KIyA8c3BhbiBzdHlsZT0iQ29sb3I6I0YxNkJBMiI+IENvbmNsdXNpw7NuIHkgQXByZW5kaXphamUgPC9zcGFuPg0KDQo8c3R5bGU+DQpkaXYuYmx1ZSB7IGJhY2tncm91bmQtY29sb3I6YmVpZ2U7IGJvcmRlci1yYWRpdXM6IDVweDsgcGFkZGluZzogMjBweDt9DQo8L3N0eWxlPg0KPGRpdiBjbGFzcyA9ICJibHVlIj4NCkxhcyAqdGVuZGVuY2lhcyBnbG9iYWxlcyogc29uIHVuIGFzdW50byBkZWwgY3VhbCBkZWJlcsOtYW1vcyBlc3RhciBjb25zdGFudGVtZW50ZSBlbnRlcmFkb3MgeSBkYXJsZSB1biBnaXJvIGEgbnVlc3RyYSBpbmR1c3RyaWEgZGUgaW50ZXLDqXMsIGVzdG8gcHVlc3RvIGEgcXVlIGVzIG11eSBpbnRlcmVzYW50ZSBlbCBvYnNlcnZhciBjw7NtbyBlc3TDoXMgdGVuZGVuY2lhcyBwdWVkZW4gc2VyIHRhbiBjYW1iaWFudGVzIGEgdHJhdsOpcyBkZSBsb3MgYcOxb3MgZSBpbmNsdXNpdmUgbG9zIG1lc2VzLiANCg0KUGFyYSBsYSBpbmR1c3RyaWEgZW4gbGEgcXVlIHBsYW5lw7MgdHJhYmFqYXIgZW4gdW4gZnV0dXJvLCBwdWVkbyBwcmV2ZXIgY29tbyBlc3RlIHRpcG8gZGUgcHJvZ3JhbWEgbWUgcG9kcsOtYSBiZW5lZmljaWFyIHBhcmEgZ2VuZXJhciBpbnNpZ2h0cyBxdWUgbWUgYXl1ZGVuIGEgaW5jcmVtZW50YXIgdmVudGFzIG8gYmllbiBwYXJhIG1vZGlmaWNhciB1biBwcm9kdWN0by4gRXN0byB5IGHDsWFkaWVuZG8gdW4gYW7DoWxpc2lzIGRlIHNlbnRpbWllbnRvcyBzZXLDrWFuIGxvcyBtZWpvcmVzIGNvbXBsZW1lbnRvcyBwYXJhIGVsIGRlc2Fycm9sbG8geWEgc2VhIGRlIHByb2R1Y3RvcyB5IHNlcnZpY2lvcy4gDQoNCkVzIGludGVyZXNhbnRlIHF1ZSBsYSBsaWJyZXLDrWEgZGUgUiBlcyB0YW4gYWhvbmRhcnRlIGVuIGRpc3RpbnRvcyB0ZW1hcyB5IHNlIHB1ZWRlbiBlbmNvbnRyYXIgbXVjaGFzIGN1cmlvc2lkYWRlcyDDunRpbGVzIHBhcmEgc2ltcGxpZmljYXIgY29uIGFsZ3VuYXMgbMOtbmVhcyBkZSBjw7NkaWdvIGFsZ28gcXVlIHRvbWFyw61hIHNlbWFuYXMgZW4gaGFjZXIgbWFudWFsbWVudGUuIA0KDQo8L2Rpdj4NCg0KIyA8c3BhbiBzdHlsZT0iQ29sb3I6Z3JlZW4iPiAgQW5leG86IEpvaG4gRGVlcmUgPC9zcGFuPg0KYGBge3J9DQp0ZXJtaW5vIDwtIGMoIkpvaG4gRGVlcmUiKQ0KdWJpY2FjaW9uIDwtIGMoIk1YIikNCmNhbmFsIDwtICJ3ZWIiDQpwZXJpb2RvIDwtICgiMjAxNS0wMS0wMSAyMDIyLTA5LTI2IikNCnRlbmRlbmNpYSA8LSBndHJlbmRzKHRlcm1pbm8sIHViaWNhY2lvbiwgY2FuYWwsIHRpbWUgPSBwZXJpb2RvKQ0KcGxvdCh0ZW5kZW5jaWEpDQpgYGANCg0KYGBge3J9DQp0ZXJtaW5vIDwtIGMoIkNOSCBJbmR1c3RyaWFsIikNCnViaWNhY2lvbiA8LSBjKCJNWCIpDQpjYW5hbCA8LSAid2ViIg0KcGVyaW9kbyA8LSAoIjIwMTUtMDEtMDEgMjAyMi0wOS0yNiIpDQp0ZW5kZW5jaWEgPC0gZ3RyZW5kcyh0ZXJtaW5vLCB1YmljYWNpb24sIGNhbmFsLCB0aW1lID0gcGVyaW9kbykNCnBsb3QodGVuZGVuY2lhKQ0KYGBgDQpgYGB7cn0NCnRlcm1pbm8gPC0gYygiVHJhY3RvcmVzIikNCnViaWNhY2lvbiA8LSBjKCJNWCIpDQpjYW5hbCA8LSAid2ViIg0KcGVyaW9kbyA8LSAoIjIwMTAtMDEtMDEgMjAyMi0wOS0yNiIpDQp0ZW5kZW5jaWEgPC0gZ3RyZW5kcyh0ZXJtaW5vLCB1YmljYWNpb24sIGNhbmFsLCB0aW1lID0gcGVyaW9kbykNCnBsb3QodGVuZGVuY2lhKQ0KYGBgDQoNCiMgIDxzcGFuIHN0eWxlPSJDb2xvcjpyZWQiPk9YWE8gPC9zcGFuPg0KYGBge3J9DQp0ZXJtaW5vIDwtIGMoIk94eG8iKQ0KdWJpY2FjaW9uIDwtIGMoIk1YIikNCmNhbmFsIDwtICJ3ZWIiDQpwZXJpb2RvIDwtICgiMjAxMC0wMS0wMSAyMDIyLTEwLTA2IikNCnRlbmRlbmNpYSA8LSBndHJlbmRzKHRlcm1pbm8sIHViaWNhY2lvbiwgY2FuYWwsIHRpbWUgPSBwZXJpb2RvKQ0KcGxvdCh0ZW5kZW5jaWEpDQpgYGANCg0KDQpBcXVpIHBvZGVtb3MgdmVyIGNvbW8gZW4gbGEgdGVuZGVuY2lhIHNlIHZlIHF1ZSBPWFhPIGEgdHJhdmVzIGRlIGxvcyBhw7FvcyB2YSBpbmNyZW1lbnRhbmRvIGVsIGludGVyZXMgZW4gaW50ZXJuYXV0YXMgZGViaWRvIGEgc3VzIGVzdHJhdGVnaWFzIGRlIG1hcmtldGluZyBhbCBleHBhbmRpcnNlIGEgb3RyYXMgaW5kdXN0cmlhcy4NCg0KDQpgYGB7cn0NCnRlcm1pbm8gPC0gYygiVGllbmRhIGRlIENvbnZlbmllbmNpYSIpDQp1YmljYWNpb24gPC0gYygiTVgiKQ0KY2FuYWwgPC0gIndlYiINCnBlcmlvZG8gPC0gKCIyMDEwLTAxLTAxIDIwMjItMTAtMDYiKQ0KdGVuZGVuY2lhIDwtIGd0cmVuZHModGVybWlubywgdWJpY2FjaW9uLCBjYW5hbCwgdGltZSA9IHBlcmlvZG8pDQpwbG90KHRlbmRlbmNpYSkNCmBgYA0KDQpQYXJhIGxhcyB0aWVuZGFzIGRlIGNvbnZlbmllbmNpYSBzZSB2ZSB1biBpbmNyZW1lbnRvIGVuIGVsIGludGVyZXMgZGUgZXN0ZSB0ZW1hIGVuIGxhIHdlYiBsbyBjdWFsIGVzIGJlbmVmaWNpb3NvIHBhcmEgT1hYTyBhbCBwZXJ0ZW5lY2VyIG1heW9ybWVudGUgZW4gZXN0YSBpbmR1c3RyaWEuDQo8aW1nIHNyYz0gIkM6XFxVc2Vyc1xcZGFueWNcXERvd25sb2Fkc1xcZGVlcmUucG5nIiAvPg0K