Instalar paquetes

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)

#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] 1

Paso 1.

Definir el término a buscar

termino <- c("Lando Norris")

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