Los datos para el ánalisis se generaron en Google Trends, sobre la salud mental de estudiantes en los ultimos 12 meses. La salud mental abarca el bienestar emocional, psicológico y social, afectando la forma de como pensamos, sentimos y actuamos al enfrentarnos a la vida. La importancia de estar bien mentalmente ayuda a determinar como manejamos el estrés, la relación que tenemos con los demás e influye en la toma de decisiones. El estudio es de tipo observacional, retrospectivo, transversal y descriptivo, con un diseño exploratorio ya que los datos se obtuvieron a través de Google Trends en los últimos 12 mese durante la pandemia COVID-19. Visita el proyecto completo en: https://yesdigarcia.wixsite.com/my-site-2

Los datos provienen directamente de Google Trends, por ello se debe instalar “gtrendsR” y llamar la librería. El interés se centra en las palabras: Cuarentena, estudiantes, depresión, ansiedad y estres durante los ultimos meses en México.

#Llamar los datos de Google Trends desde R-Studio
#install.packages("gtrendsR")
library(gtrendsR)
## Warning: package 'gtrendsR' was built under R version 4.1.2
datos <- gtrends(keyword = c("cuarentena", "estudiantes", "depresion", "ansiedad", "estres"), 
                 geo = "MX", time = "today 12-m", gprop = "web", 
                 low_search_volume = FALSE, onlyInterest = FALSE)
#Para conocer toda las variables disponibles
str(datos)
## List of 7
##  $ interest_over_time :'data.frame': 260 obs. of  7 variables:
##   ..$ date    : POSIXct[1:260], format: "2020-12-13" "2020-12-20" ...
##   ..$ hits    : int [1:260] 29 34 23 25 24 35 28 25 24 22 ...
##   ..$ keyword : chr [1:260] "cuarentena" "cuarentena" "cuarentena" "cuarentena" ...
##   ..$ geo     : chr [1:260] "MX" "MX" "MX" "MX" ...
##   ..$ time    : chr [1:260] "today 12-m" "today 12-m" "today 12-m" "today 12-m" ...
##   ..$ gprop   : chr [1:260] "web" "web" "web" "web" ...
##   ..$ category: int [1:260] 0 0 0 0 0 0 0 0 0 0 ...
##  $ interest_by_country: NULL
##  $ interest_by_region :'data.frame': 160 obs. of  5 variables:
##   ..$ location: chr [1:160] "Puebla" "Quintana Roo" "Tamaulipas" "Querétaro" ...
##   ..$ hits    : int [1:160] 100 98 94 89 88 85 85 84 84 83 ...
##   ..$ keyword : chr [1:160] "cuarentena" "cuarentena" "cuarentena" "cuarentena" ...
##   ..$ geo     : chr [1:160] "MX" "MX" "MX" "MX" ...
##   ..$ gprop   : chr [1:160] "web" "web" "web" "web" ...
##  $ interest_by_dma    : NULL
##  $ interest_by_city   :'data.frame': 123 obs. of  5 variables:
##   ..$ location: chr [1:123] "Puebla" "Mexico City" "Merida" "Guadalajara" ...
##   ..$ hits    : int [1:123] 100 90 NA 63 100 92 88 80 79 79 ...
##   ..$ keyword : chr [1:123] "cuarentena" "cuarentena" "cuarentena" "cuarentena" ...
##   ..$ geo     : chr [1:123] "MX" "MX" "MX" "MX" ...
##   ..$ gprop   : chr [1:123] "web" "web" "web" "web" ...
##  $ related_topics     : NULL
##  $ related_queries    :'data.frame': 207 obs. of  6 variables:
##   ..$ subject        : chr [1:207] "100" "11" "5" "4" ...
##   ..$ related_queries: chr [1:207] "top" "top" "top" "top" ...
##   ..$ value          : chr [1:207] "la cuarentena" "que hacer en cuarentena" "memes cuarentena" "cuarentena estados unidos" ...
##   ..$ geo            : chr [1:207] "MX" "MX" "MX" "MX" ...
##   ..$ keyword        : chr [1:207] "cuarentena" "cuarentena" "cuarentena" "cuarentena" ...
##   ..$ category       : int [1:207] 0 0 0 0 0 0 0 0 0 0 ...
##   ..- attr(*, "reshapeLong")=List of 4
##   .. ..$ varying:List of 1
##   .. .. ..$ value: chr "top"
##   .. .. ..- attr(*, "v.names")= chr "value"
##   .. .. ..- attr(*, "times")= chr "top"
##   .. ..$ v.names: chr "value"
##   .. ..$ idvar  : chr "id"
##   .. ..$ timevar: chr "related_queries"
##  - attr(*, "class")= chr [1:2] "gtrends" "list"
#Llamar la Fecha, terminos, Frecuencia, busquedas en México, los ultimos 12 meses...
time_trend <- datos$interest_over_time
head(time_trend)
##         date hits    keyword geo       time gprop category
## 1 2020-12-13   29 cuarentena  MX today 12-m   web        0
## 2 2020-12-20   34 cuarentena  MX today 12-m   web        0
## 3 2020-12-27   23 cuarentena  MX today 12-m   web        0
## 4 2021-01-03   25 cuarentena  MX today 12-m   web        0
## 5 2021-01-10   24 cuarentena  MX today 12-m   web        0
## 6 2021-01-17   35 cuarentena  MX today 12-m   web        0

Graficos

Diagrama de Caja , distribucion de los terminos

library(ggplot2)
## Warning: package 'ggplot2' was built under R version 4.1.2
ggplot(data=time_trend) + aes(x=keyword, y=hits, color=keyword)+
  geom_line()+ scale_colour_viridis_d(option = "viridis")+
  geom_jitter(aes(color = keyword), size = 1, alpha = 0.7) +
  geom_boxplot(aes(color = keyword), alpha = 0.7) + 
  labs(title = "Puntuaciones", x="Tiempo", y="Frecuencia", subtitle = "Datos de noviembre 2020 - noviembre 2021 ")+
  theme_minimal()+ theme(legend.position="bottom")

Linea de Tiempo, Ultimos 12 meses

ggplot(data=time_trend) + aes(x=date, y=hits, color=keyword)+
  geom_line()+ scale_colour_viridis_d(option = "viridis")+
  labs(title = "Puntuaciones", x="Tiempo", y="Frecuencia", subtitle = "Datos de noviembre 2020 - noviembre 2021 ")+
  theme_minimal()+ theme(legend.position="bottom")

#Llamar datos de las busquedad en la entidad federativa...
region_trend <- datos$interest_by_region
head(region_trend)
##          location hits    keyword geo gprop
## 1          Puebla  100 cuarentena  MX   web
## 2    Quintana Roo   98 cuarentena  MX   web
## 3      Tamaulipas   94 cuarentena  MX   web
## 4       Querétaro   89 cuarentena  MX   web
## 5         Tabasco   88 cuarentena  MX   web
## 6 San Luis Potosi   85 cuarentena  MX   web

Gráfico de barras para la Entidades Federativas

ggplot(data = region_trend) + aes(x = location, fill = keyword, weight = hits) + 
  geom_bar() + scale_fill_brewer(palette = "Set2") + 
  labs(title = "Interes de los Estados de México", x = "Region", y = "Frecuencia", fill="Terminos", subtitle = "Datos generados en Google Trends ") + 
  theme_minimal() + coord_flip()