
Instalar paquetes
## ── 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)
#install.packages("devtools")
library (devtools)
## Loading required package: usethis
Herramienta “El Generador de Valor de Datos”
Paso 1. Definir el área de negocio que buscamos impactar o
mejorar y su KPI.
El departamento de mercadotecnia de la consultora con el indicador
Crecimiento en el mercado.
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
Elaborar un análisis de tendencias en la industria mensual.
Paso 4. Reunir los datos requeridos
Elaborar una investigación cualitativa previa para identificar las
tendencias en el mercado para despues correr el cóodigo y observar el
comportamiento y crecimiento que se ha tenido.
Paso 5. Plan de ejecución
Mercadotecnia elaborará plan para desplegar modelo predictivo en
pasos
Paso 1. Identificar tendencias en el mercado
Paso 2. Analizar su comportamiento
Paso 3. Verificar si es rentable para el movimiento
Paso 4. Implementar el plan
Errores al gráficar
devtools::install_github("PMassicotte/gtrendsR")
## Skipping install of 'gtrendsR' from a github remote, the SHA1 (d53b9b7b) has not changed since last install.
## Use `force = TRUE` to force installation
## [1] 1
Paso 1.
Definir el término a buscar
termino <- c("Lando Norris")
Paso 2.
Definir la locación (ISO3166-2 country codes)
Paso 3.
Definir el canal: web, news, images, youtube
Paso 4.
Definir la venta de tiempo
periodo <- ("2011-01-01 2022-09-01")
Paso 5.
Visualización
library (gtrendsR)
tendencia <- gtrends(termino, ubicacion, canal, time = periodo)
plot (tendencia)

Gráficas para John Deere
termino <- c("John Deere Mexico")
ubicacion <- c("MX")
canal <- "web"
periodo <- ("2012-01-01 2022-09-01")
# install.packages("gtrendsR")
library (gtrendsR)
tendencia <- gtrends(termino, ubicacion, canal, time = periodo)
plot (tendencia)

termino <- c("John Deere Maquinaria")
ubicacion <- c("MX")
canal <- "web"
periodo <- ("2012-01-01 2022-09-01")
# install.packages("gtrendsR")
library (gtrendsR)
tendencia <- gtrends(termino, ubicacion, canal, time = periodo)
plot (tendencia)

termino <- c("Motores John Deere")
ubicacion <- c("MX")
canal <- "web"
periodo <- ("2012-01-01 2022-09-01")
# install.packages("gtrendsR")
library (gtrendsR)
tendencia <- gtrends(termino, ubicacion, canal, time = periodo)
plot (tendencia)

Conclusión
El código en RStudio permite hacer muchas funciones con
bases de datos y con datos obtenidos de internet y el conocer las
tendencias es una de ellas.
En este código podemos observar cómo al momento de instalar los
paquetes necesarios, se puede realizar la búsqueda de cualquier persona,
tema, y/o evento que exista en la web, en las noticias, imágenes y en
youtube.
LS0tCnRpdGxlOiAiVGVuZGVuY2lhcyIKYXV0aG9yOiAiSXZhbm5hIEdhcnphIEEwMTI4Mzc1OSIKZGF0ZTogIjIwMjItMDktMDgiCm91dHB1dDogCiAgaHRtbF9kb2N1bWVudDoKICAgIHRvYzogdHJ1ZQogICAgdG9jX2Zsb2F0OiB0cnVlCiAgICB0aGVtZTogY2VydWxlYW4KICAgIGhpZ2hsaWdodDogdGFuZ28KICAgIGNvZGVfZG93bmxvYWQ6IHRydWUKLS0tCgo8aW1nIHNyYz0gIi9Vc2Vycy9pdmFubmFnYXJ6YS9EZXNrdG9wL2VtcGxlYWRvcyt2aWVuZG8rZWwrZnV0dXJvK2RlbCt0cmFiYWpvLmpwZyI+CgojIEluc3RhbGFyIHBhcXVldGVzIApgYGB7cn0KbGlicmFyeSAodGlkeXZlcnNlKQoKI2luc3RhbGwucGFja2FnZXMoImd0cmVuZHNSIikKbGlicmFyeSAoZ3RyZW5kc1IpCgojaW5zdGFsbC5wYWNrYWdlcygiZGV2dG9vbHMiKQpsaWJyYXJ5IChkZXZ0b29scykKCmBgYAoKIyAqKkhlcnJhbWllbnRhICJFbCBHZW5lcmFkb3IgZGUgVmFsb3IgZGUgRGF0b3MiKiogIAoKKipQYXNvIDEuIERlZmluaXIgZWwgw6FyZWEgZGUgbmVnb2NpbyBxdWUgYnVzY2Ftb3MgaW1wYWN0YXIgbyBtZWpvcmFyIHkgc3UgS1BJLioqICAKKkVsIGRlcGFydGFtZW50byBkZSBtZXJjYWRvdGVjbmlhIGRlIGxhIGNvbnN1bHRvcmEgY29uIGVsIGluZGljYWRvciBDcmVjaW1pZW50byBlbiBlbCBtZXJjYWRvLiogICAKCioqUGFzbyAyLiBTZWxlY2Npb25hciBwbGFudGlsbGEgKC1zKSBwYXJhIGNyZWFyIHZhbG9yIGEgcGFydGlyIGRlIGxvcyBkYXRvcyBkZSBsb3MgY2xpZW50ZXMuKiogIAoqKlZpc2nDs24qKiAqLyBTZWdtZW50YWNpw7NuIC8gUGVyc29uYWxpemFjacOzbiAvIENvbnRleHR1YWxpemFjacOzbiogIAoKKipQYXNvIDMuIEdlbmVyYXIgaWRlYXMgbyBjb25jZXB0b3MgZXNwZWPDrWZpY29zKiogIAoqRWxhYm9yYXIgdW4gYW7DoWxpc2lzIGRlIHRlbmRlbmNpYXMgZW4gbGEgaW5kdXN0cmlhIG1lbnN1YWwuKiAgCgoqKlBhc28gNC4gUmV1bmlyIGxvcyBkYXRvcyByZXF1ZXJpZG9zKiogIAoqRWxhYm9yYXIgdW5hIGludmVzdGlnYWNpw7NuIGN1YWxpdGF0aXZhIHByZXZpYSBwYXJhIGlkZW50aWZpY2FyIGxhcyB0ZW5kZW5jaWFzIGVuIGVsIG1lcmNhZG8gcGFyYSBkZXNwdWVzIGNvcnJlciBlbCBjw7NvZGlnbyB5IG9ic2VydmFyIGVsIGNvbXBvcnRhbWllbnRvIHkgY3JlY2ltaWVudG8gcXVlIHNlIGhhIHRlbmlkby4qICAKCioqUGFzbyA1LiBQbGFuIGRlIGVqZWN1Y2nDs24qKiAgCipNZXJjYWRvdGVjbmlhIGVsYWJvcmFyw6EgcGxhbiBwYXJhIGRlc3BsZWdhciBtb2RlbG8gcHJlZGljdGl2byBlbiBwYXNvcyogIAoKKlBhc28gMS4gSWRlbnRpZmljYXIgdGVuZGVuY2lhcyBlbiBlbCBtZXJjYWRvKiAgCipQYXNvIDIuIEFuYWxpemFyIHN1IGNvbXBvcnRhbWllbnRvKiAgCipQYXNvIDMuIFZlcmlmaWNhciBzaSBlcyByZW50YWJsZSBwYXJhIGVsIG1vdmltaWVudG8qICAKKlBhc28gNC4gSW1wbGVtZW50YXIgZWwgcGxhbioKCgojIEVycm9yZXMgYWwgIGdyw6FmaWNhcgpgYGB7cn0KZGV2dG9vbHM6Omluc3RhbGxfZ2l0aHViKCJQTWFzc2ljb3R0ZS9ndHJlbmRzUiIpCjEKYGBgCgojIFBhc28gMS4gCioqRGVmaW5pciBlbCB0w6lybWlubyBhIGJ1c2NhcioqCmBgYHtyfQp0ZXJtaW5vIDwtIGMoIkxhbmRvIE5vcnJpcyIpCmBgYAoKIyBQYXNvIDIuIAoqKkRlZmluaXIgbGEgbG9jYWNpw7NuIChJU08zMTY2LTIgY291bnRyeSBjb2RlcykqKgpgYGB7cn0KdWJpY2FjaW9uIDwtIGMoIk1YIikKCmBgYAoKIyBQYXNvIDMuIAoqKkRlZmluaXIgZWwgY2FuYWw6IHdlYiwgbmV3cywgaW1hZ2VzLCB5b3V0dWJlKioKYGBge3J9CmNhbmFsIDwtICJ3ZWIiCmBgYAoKIyBQYXNvIDQuIAoqKkRlZmluaXIgbGEgdmVudGEgZGUgdGllbXBvKioKYGBge3J9CnBlcmlvZG8gPC0gKCIyMDExLTAxLTAxIDIwMjItMDktMDEiKQpgYGAKCiMgUGFzbyA1LiAKKipWaXN1YWxpemFjacOzbioqCmBgYHtyfQpsaWJyYXJ5IChndHJlbmRzUikKdGVuZGVuY2lhIDwtIGd0cmVuZHModGVybWlubywgdWJpY2FjaW9uLCBjYW5hbCwgdGltZSA9IHBlcmlvZG8pCnBsb3QgKHRlbmRlbmNpYSkKYGBgCgojIEdyw6FmaWNhcyBwYXJhIEpvaG4gRGVlcmUKYGBge3J9CnRlcm1pbm8gPC0gYygiSm9obiBEZWVyZSBNZXhpY28iKQp1YmljYWNpb24gPC0gYygiTVgiKQpjYW5hbCA8LSAid2ViIgpwZXJpb2RvIDwtICgiMjAxMi0wMS0wMSAyMDIyLTA5LTAxIikKIyBpbnN0YWxsLnBhY2thZ2VzKCJndHJlbmRzUiIpCmxpYnJhcnkgKGd0cmVuZHNSKQp0ZW5kZW5jaWEgPC0gZ3RyZW5kcyh0ZXJtaW5vLCB1YmljYWNpb24sIGNhbmFsLCB0aW1lID0gcGVyaW9kbykKcGxvdCAodGVuZGVuY2lhKQpgYGAKCmBgYHtyfQp0ZXJtaW5vIDwtIGMoIkpvaG4gRGVlcmUgTWFxdWluYXJpYSIpCnViaWNhY2lvbiA8LSBjKCJNWCIpCmNhbmFsIDwtICJ3ZWIiCnBlcmlvZG8gPC0gKCIyMDEyLTAxLTAxIDIwMjItMDktMDEiKQojIGluc3RhbGwucGFja2FnZXMoImd0cmVuZHNSIikKbGlicmFyeSAoZ3RyZW5kc1IpCnRlbmRlbmNpYSA8LSBndHJlbmRzKHRlcm1pbm8sIHViaWNhY2lvbiwgY2FuYWwsIHRpbWUgPSBwZXJpb2RvKQpwbG90ICh0ZW5kZW5jaWEpCmBgYAoKYGBge3J9CnRlcm1pbm8gPC0gYygiTW90b3JlcyBKb2huIERlZXJlIikKdWJpY2FjaW9uIDwtIGMoIk1YIikKY2FuYWwgPC0gIndlYiIKcGVyaW9kbyA8LSAoIjIwMTItMDEtMDEgMjAyMi0wOS0wMSIpCiMgaW5zdGFsbC5wYWNrYWdlcygiZ3RyZW5kc1IiKQpsaWJyYXJ5IChndHJlbmRzUikKdGVuZGVuY2lhIDwtIGd0cmVuZHModGVybWlubywgdWJpY2FjaW9uLCBjYW5hbCwgdGltZSA9IHBlcmlvZG8pCnBsb3QgKHRlbmRlbmNpYSkKYGBgCgojIENvbmNsdXNpw7NuCkVsIGPDs2RpZ28gZW4gKlJTdHVkaW8qIHBlcm1pdGUgaGFjZXIgbXVjaGFzIGZ1bmNpb25lcyBjb24gYmFzZXMgZGUgZGF0b3MgeSBjb24gZGF0b3Mgb2J0ZW5pZG9zIGRlIGludGVybmV0IHkgZWwgY29ub2NlciBsYXMgdGVuZGVuY2lhcyBlcyB1bmEgZGUgZWxsYXMuICAKCkVuIGVzdGUgY8OzZGlnbyBwb2RlbW9zIG9ic2VydmFyIGPDs21vIGFsIG1vbWVudG8gZGUgaW5zdGFsYXIgbG9zIHBhcXVldGVzIG5lY2VzYXJpb3MsIHNlIHB1ZWRlIHJlYWxpemFyIGxhIGLDunNxdWVkYSBkZSBjdWFscXVpZXIgcGVyc29uYSwgdGVtYSwgeS9vIGV2ZW50byBxdWUgZXhpc3RhIGVuIGxhIHdlYiwgZW4gbGFzIG5vdGljaWFzLCBpbcOhZ2VuZXMgeSBlbiB5b3V0dWJlLiAgCgoK