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