Instalar paquetes y llamar librerías

#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.1      ✔ 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")
## Downloading GitHub repo PMassicotte/gtrendsR@HEAD
## cli   (3.3.0 -> 3.4.1) [CRAN]
## rlang (1.0.5 -> 1.0.6) [CRAN]
## Installing 2 packages: cli, rlang
## Installing packages into 'C:/Users/ximen/AppData/Local/R/win-library/4.2'
## (as 'lib' is unspecified)
## package 'cli' successfully unpacked and MD5 sums checked
## Warning: cannot remove prior installation of package 'cli'
## Warning in file.copy(savedcopy, lib, recursive = TRUE): problema al copiar C:
## \Users\ximen\AppData\Local\R\win-library\4.2\00LOCK\cli\libs\x64\cli.dll a C:
## \Users\ximen\AppData\Local\R\win-library\4.2\cli\libs\x64\cli.dll: Permission
## denied
## Warning: restored 'cli'
## package 'rlang' successfully unpacked and MD5 sums checked
## Warning: cannot remove prior installation of package 'rlang'
## Warning in file.copy(savedcopy, lib, recursive = TRUE): problema al copiar C:
## \Users\ximen\AppData\Local\R\win-library\4.2\00LOCK\rlang\libs\x64\rlang.dll
## a C:\Users\ximen\AppData\Local\R\win-library\4.2\rlang\libs\x64\rlang.dll:
## Permission denied
## Warning: restored 'rlang'
## 
## The downloaded binary packages are in
##  C:\Users\ximen\AppData\Local\Temp\Rtmpyqy2DM\downloaded_packages
## * checking for file 'C:\Users\ximen\AppData\Local\Temp\Rtmpyqy2DM\remotesb1b85f292784\PMassicotte-gtrendsR-d53b9b7/DESCRIPTION' ... OK
## * preparing 'gtrendsR':
## * checking DESCRIPTION meta-information ... OK
## * checking for LF line-endings in source and make files and shell scripts
## * checking for empty or unneeded directories
## * building 'gtrendsR_1.5.1.9000.tar.gz'
## 
## Warning: package 'gtrendsR' is in use and will not be installed

Bimbo

Paso 1. Definir el término a buscar

termino <- c("Bimbo")

Paso 2. Definir la localizació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

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

Paso 5. Función

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

Gráfica

plot(tendencia)

John Deere

Paso 1. Definir el término a buscar

term <- c("John Deere")

Paso 2. Definir la localización (ISO3166-2 country codes)

location <- c("MX")

Paso 3. Definir el canal: web, news, images, youtube

channel <- "web"

Paso 4. Definir la ventana de tiempo

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

Paso 5. Función

trend <- gtrends(term, location, channel, time = period)

Gráfica

plot(trend)

Maquinaria Agrícola

Paso 1. Definir el término a buscar

word <- c("Maquinaria Agrícola")

Paso 2. Definir la localización (ISO3166-2 country codes)

loc <- c("MX")

Paso 3. Definir el canal: web, news, images, youtube

site <- "web"

Paso 4. Definir la ventana de tiempo

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

Paso 5. Función

trend1 <- gtrends(word, loc, site, time = tiempo)

Gráfica

plot(trend1)

Sostenibilidad

Paso 1. Definir el término a buscar

word1 <- c("Sostenibilidad")

Paso 2. Definir la localización (ISO3166-2 country codes)

loc1 <- c("MX")

Paso 3. Definir el canal: web, news, images, youtube

site1 <- "web"

Paso 4. Definir la ventana de tiempo

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

Paso 5. Función

trend2 <- gtrends(word1, loc1, site1, time = tiempo1)

Gráfica

plot(trend2)

Conclusión

Esta es otra manera de obtener datos de fuentes externas, la gráfica que se vió anteriormente, se generó paso por paso, primero se define que palabra, empresa, persona, etc., se quiere buscar, para después decirle a R en que país estamos buscando tal palabra, luego definir el canal por el cual se buscará, en esta ocasión fue en la web en general, luego se define el tiempo o los años en los que se requiere encontrar esa información, y por último se crea la gráfica donde se podrá observar el interes que tuvo la gente en cierto tema a lo largo de los años, o el tiempo definido, en el caso de Bimbo, hubo mayor interes y fue más tendencia durante el año 2018 aproximadamente. Por lo tanto, algo que puede ayudar a cualquier empresa, es buscar cuando su nombre, o su marca tuvo más interes, para después identificar cual fue el factor que ayudó, y mejorarlo. Por otro lado, también se realizó una gráfica para observar la tendencia de John Deere, y en esta se observa como ha incrementado el interés por la empresa año con año.