John Deere

Johon Deere

Librerias Intaladas

#install.packages("readr")
library(readr)
#install.packages("colorspace")
library(colorspace)
#install.packages("vctrs")
library(vctrs)
#install.packages("gtrendsR")
library(gtrendsR)
library(tidyverse)

## ── Attaching packages ─────────────────────────────────────── tidyverse 1.3.2 ──
## ✔ ggplot2 3.3.6      ✔ dplyr   1.0.10
## ✔ tibble  3.1.8      ✔ stringr 1.4.1 
## ✔ tidyr   1.2.1      ✔ forcats 0.5.2 
## ✔ purrr   0.3.4      
## ── Conflicts ────────────────────────────────────────── tidyverse_conflicts() ──
## ✖ dplyr::data_frame() masks tibble::data_frame(), vctrs::data_frame()
## ✖ dplyr::filter()     masks stats::filter()
## ✖ dplyr::lag()        masks stats::lag()

John Deere

termino2 <- c("John Deere")
ubicacion2 <- c("MX")
canal2 <- "web"
periodo2 <- ("2018-09-01 2022-09-01")

tendencia2 <- gtrends(termino2, ubicacion2, canal2, time = periodo2)
plot(tendencia2)

John Deere

termino3 <- c("John Deere")
ubicacion3 <- c("MX")
canal3 <- "youtube"
periodo3 <- ("2015-01-01 2022-09-01")

tendencia3 <- gtrends(termino3, ubicacion3, canal3, time = periodo3)
plot(tendencia3)

John Deere 5105

termino4 <- c("John Deere 5105")
ubicacion4 <- c("US")
canal4 <- "web"
periodo4 <- ("2018-09-01 2022-09-01")

tendencia4 <- gtrends(termino4, ubicacion4, canal4, time = periodo4)
plot(tendencia4)