#0 Instalar paquetes

#install.packages("tidyverse")
#install.packages ("gtrendsR")

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()
library("gtrendsR")

#1 definir el termino a buscar

termino <- c("Tesla")

#2 DEFINIR LA LOCACION ISO3166-2 COUNTRY CODES

ubicacion <- c("MX")

#3 defnir canal web news images youtube

canal <- "web"

#4 definir la ventana de tiempo

periodo <- ("2010-01-01 2022-09-01")

#5 Graficar la tendencia a traves del periodo establecido

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

Conclusiones

Durante el desarrollo de este programa, aprendí que se pueden obtener datos provenientes de una fuente externa, y así obtener insights de alto impacto como por ejemplo detectar tendencias de busqueda que le permitan a un negocio identificar oportunidades de negocio emergentes.

LS0tCnRpdGxlOiA8c3BhbiBzdHlsZT0iQ29sb3I6Qmx1ZSIgPiJHbG9iYWwgVHJlbmRzIgphdXRob3I6ICJDYXJsb3MgR29uesOhbGV6IEF5ZXJkaSBBMDA4MjkxMjYiCmRhdGU6ICIyMDIyLTA5LTA3IgpvdXRwdXQ6CiAgaHRtbF9kb2N1bWVudDogCiAgICB0b2M6IHRydWUKICAgIHRvY19mbG9hdDogdHJ1ZQogICAgY29kZV9kb3dubG9hZDogdHJ1ZQotLS0KPGltZyBzcmM9ICIvVXNlcnMvY2FybG9zZ29uemFsZXovRGVza3RvcC9pZGVhLnBuZyI+CgojIyAjMCBJbnN0YWxhciBwYXF1ZXRlcwpgYGB7cn0KI2luc3RhbGwucGFja2FnZXMoInRpZHl2ZXJzZSIpCiNpbnN0YWxsLnBhY2thZ2VzICgiZ3RyZW5kc1IiKQoKbGlicmFyeSgidGlkeXZlcnNlIikKbGlicmFyeSgiZ3RyZW5kc1IiKQpgYGAKCiMjICMxIGRlZmluaXIgZWwgdGVybWlubyBhIGJ1c2NhcgpgYGB7cn0KdGVybWlubyA8LSBjKCJUZXNsYSIpCmBgYAoKIyMgIzIgREVGSU5JUiBMQSBMT0NBQ0lPTiBJU08zMTY2LTIgQ09VTlRSWSBDT0RFUwpgYGB7cn0KdWJpY2FjaW9uIDwtIGMoIk1YIikKYGBgCgojIyAjMyBkZWZuaXIgY2FuYWwgd2ViIG5ld3MgaW1hZ2VzIHlvdXR1YmUKYGBge3J9CmNhbmFsIDwtICJ3ZWIiCmBgYAoKIyMgIzQgZGVmaW5pciBsYSB2ZW50YW5hIGRlIHRpZW1wbyAKYGBge3J9CnBlcmlvZG8gPC0gKCIyMDEwLTAxLTAxIDIwMjItMDktMDEiKQpgYGAKCiMjICM1IEdyYWZpY2FyIGxhIHRlbmRlbmNpYSBhIHRyYXZlcyBkZWwgcGVyaW9kbyBlc3RhYmxlY2lkbyAgCmBgYHtyfQp0ZW5kZW5jaWEgPC0gZ3RyZW5kcyAodGVybWlubywgdWJpY2FjaW9uLCBjYW5hbCwgdGltZSA9IHBlcmlvZG8pCnBsb3QodGVuZGVuY2lhKQpgYGAKCiMjIENvbmNsdXNpb25lcyAgCkR1cmFudGUgZWwgZGVzYXJyb2xsbyBkZSBlc3RlIHByb2dyYW1hLCBhcHJlbmTDrSBxdWUgc2UgcHVlZGVuIG9idGVuZXIgZGF0b3MgcHJvdmVuaWVudGVzIGRlIHVuYSBmdWVudGUgZXh0ZXJuYSwgeSBhc8OtIG9idGVuZXIgKmluc2lnaHRzKiBkZSBhbHRvIGltcGFjdG8gY29tbyBwb3IgZWplbXBsbyBkZXRlY3RhciB0ZW5kZW5jaWFzIGRlIGJ1c3F1ZWRhIHF1ZSBsZSBwZXJtaXRhbiBhIHVuIG5lZ29jaW8gaWRlbnRpZmljYXIgb3BvcnR1bmlkYWRlcyBkZSBuZWdvY2lvIGVtZXJnZW50ZXMuICAKCgo=