
Instalar paquetes y llamar librerías
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
install.packages() devtools::install_github(“PMassicotte/gtrendsR”)
1
Paso 1. Definir el término a buscar
termino <- c("Covid-19")
fem <- c("FEMSA")
oxxo <- c("OXXO")
oxxoprem <- c("OXXO Premia")
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 ventana del tiempo
periodo <- ("2020-01-01 2022-09-01")
Paso 5. Función
tendencia <- gtrends(termino, ubicacion, canal, time = periodo)
plot(tendencia)


tendencia1 <- gtrends(fem, ubicacion, canal, time = periodo)
plot(tendencia1)

tendencia2 <- gtrends(oxxo, ubicacion, canal, time = periodo)
plot(tendencia2)

tendencia3 <- gtrends(oxxoprem, ubicacion, canal, time = periodo)
plot(tendencia3)

Conclusión
Como se puede observar en el analisis de datos en tendencia del
Covid-19, en Mexico hubo mayor interes en 2022, por lo que observamos en
la grafica. Con la libreria gTrends se puede buscar en la web
estableciendo la ubicación, el canal y el periodo.
LS0tDQp0aXRsZTogPHNwYW4gc3R5bGU9IkNvbG9yOk9yYW5nZSI+IlRFTkRFTkNJQVMiDQphdXRob3I6ICJBbmEgQXJ2aXp1LSBBMDE0MTIyMjAiDQpkYXRlOiAiMjAyMi0wOS0yMCINCm91dHB1dDogDQogIGh0bWxfZG9jdW1lbnQ6DQogICAgdG9jOiB0cnVlDQogICAgdG9jX2Zsb2F0OiB0cnVlDQogICAgY29kZV9kb3dubG9hZDogdHJ1ZQ0KLS0tDQoNCiFbXShodHRwczovL2ltYWdlcy5zcXVhcmVzcGFjZS1jZG4uY29tL2NvbnRlbnQvdjEvNTNhYWRmMWRlNGIwYTBhODE3NjQwY2NhLzE1NjQ3NTU4Mjg4OTQtUUlSVFZNUFJJMUM4MEFKVTZIVEcvZW1wbGVhZG9zK3ZpZW5kbytlbCtmdXR1cm8rZGVsK3RyYWJham8pDQoNCiMjIyMjIEluc3RhbGFyIHBhcXVldGVzIHkgbGxhbWFyIGxpYnJlcsOtYXMgDQpgYGB7cn0NCmxpYnJhcnkodGlkeXZlcnNlKQ0KYGBgDQppbnN0YWxsLnBhY2thZ2VzKCJndHJlbmRzUiIpDQpgYGB7cn0NCmxpYnJhcnkoZ3RyZW5kc1IpDQpgYGANCg0KIyMjIyMgUGFyYSByZXNvbHZlciBlcnJvcmVzIGFsIGdyYWZpY2FyIA0KaW5zdGFsbC5wYWNrYWdlcygpDQpkZXZ0b29sczo6aW5zdGFsbF9naXRodWIoIlBNYXNzaWNvdHRlL2d0cmVuZHNSIikNCjENCg0KIyMjIFBhc28gMS4gRGVmaW5pciBlbCB0w6lybWlubyBhIGJ1c2NhciANCmBgYHtyfQ0KdGVybWlubyA8LSBjKCJDb3ZpZC0xOSIpDQpmZW0gPC0gYygiRkVNU0EiKQ0Kb3h4byA8LSBjKCJPWFhPIikNCm94eG9wcmVtIDwtIGMoIk9YWE8gUHJlbWlhIikNCmBgYA0KDQojIyMgUGFzbyAyLiBEZWZpbmlyIGxhIGxvY2FjacOzbiAoSVNPMzE2Ni0yIGNvdW50cnkgY29kZXMpDQpgYGB7cn0NCnViaWNhY2lvbiA8LSBjKCJNWCIpDQpgYGANCg0KIyMjIFBhc28gMy4gRGVmaW5pciBlbCBjYW5hbDogd2ViLCBuZXdzLCBpbWFnZXMsIHlvdXR1YmUNCmBgYHtyfQ0KY2FuYWwgPC0gIndlYiINCmBgYA0KDQojIyMgUGFzbyA0LiBEZWZpbmlyIGxhIHZlbnRhbmEgZGVsIHRpZW1wbyANCmBgYHtyfQ0KcGVyaW9kbyA8LSAoIjIwMjAtMDEtMDEgMjAyMi0wOS0wMSIpDQpgYGANCg0KIyMjIFBhc28gNS4gRnVuY2nDs24gDQpgYGB7cn0NCnRlbmRlbmNpYSA8LSBndHJlbmRzKHRlcm1pbm8sIHViaWNhY2lvbiwgY2FuYWwsIHRpbWUgPSBwZXJpb2RvKQ0KcGxvdCh0ZW5kZW5jaWEpDQpgYGANCg0KIVtdKGh0dHBzOi8vdXBsb2FkLndpa2ltZWRpYS5vcmcvd2lraXBlZGlhL2NvbW1vbnMvdGh1bWIvNi82Ni9PeHhvX0xvZ28uc3ZnLzEyMDBweC1PeHhvX0xvZ28uc3ZnLnBuZykNCg0KDQpgYGB7cn0NCnRlbmRlbmNpYTEgPC0gZ3RyZW5kcyhmZW0sIHViaWNhY2lvbiwgY2FuYWwsIHRpbWUgPSBwZXJpb2RvKQ0KcGxvdCh0ZW5kZW5jaWExKQ0KYGBgDQoNCmBgYHtyfQ0KdGVuZGVuY2lhMiA8LSBndHJlbmRzKG94eG8sIHViaWNhY2lvbiwgY2FuYWwsIHRpbWUgPSBwZXJpb2RvKQ0KcGxvdCh0ZW5kZW5jaWEyKQ0KYGBgDQoNCmBgYHtyfQ0KdGVuZGVuY2lhMyA8LSBndHJlbmRzKG94eG9wcmVtLCB1YmljYWNpb24sIGNhbmFsLCB0aW1lID0gcGVyaW9kbykNCnBsb3QodGVuZGVuY2lhMykNCmBgYA0KDQoNCiMjIyBDb25jbHVzacOzbg0KQ29tbyBzZSBwdWVkZSBvYnNlcnZhciBlbiBlbCBhbmFsaXNpcyBkZSBkYXRvcyBlbiB0ZW5kZW5jaWEgZGVsIENvdmlkLTE5LCBlbiBNZXhpY28gaHVibyBtYXlvciBpbnRlcmVzIGVuIDIwMjIsIHBvciBsbyBxdWUgb2JzZXJ2YW1vcyBlbiBsYSBncmFmaWNhLiBDb24gbGEgbGlicmVyaWEgZ1RyZW5kcyBzZSBwdWVkZSBidXNjYXIgZW4gbGEgd2ViIGVzdGFibGVjaWVuZG8gbGEgdWJpY2FjacOzbiwgZWwgY2FuYWwgeSBlbCBwZXJpb2RvLg==