Uso del celular antes de dormir y cómo afecta la calidad del sueño

library(readxl)     # Para leer archivos Excel
library(ggplot2)    # Para graficar
library(posterdown) # Para renderizar el poster

## Warning: package 'posterdown' was built under R version 4.4.3

Introducción

En la actualidad, el uso de dispositivos móviles antes de dormir se ha convertido en una práctica común, especialmente entre los jóvenes. Diversos estudios han demostrado que la exposición prolongada a las pantallas de estos dispositivos puede afectar negativamente la calidad del sueño. Sin embargo, el equipo de trabajo busca comprobar de primera mano la veracidad de estas afirmaciones. Por ello, el presente estudio tiene como objetivo analizar la relación entre el uso del celular antes de dormir y su efecto en la calidad del sueño en estudiantes universitarios, utilizando herramientas estadísticas vistas durante el semestre.

Objetivos

Comprobar empíricamente si existe una relación significativa entre el uso del celular antes de dormir y la calidad del sueño en estudiantes universitarios.
Concientizar a la comunidad estudiantil sobre los posibles efectos negativos del uso excesivo del celular antes de dormir, mediante evidencia estadística obtenida en el estudio.

Metodología

Para el desarrollo de la problemática relacionada con el impacto del uso del celular antes de dormir en la calidad del sueño en estudiantes universitarios, se llevará a cabo un estudio cuantitativo de tipo descriptivo-correlacional. Se realizará una búsqueda de bases de datos secundarias que contengan información relevante sobre el uso del celular y la calidad del sueño. La muestra estará determinada por los datos disponibles en las bases de datos seleccionadas. Los datos obtenidos serán analizados mediante pruebas de hipótesis y herramientas estadísticas vistas en la asignatura.

Resultados

library(readxl)
Datos_proyecto_ <- read_excel("Datos_proyecto.xlsx")

Variable Sleep Duration

Datos_proyecto_$Sleep_Duration <- as.numeric(as.character(Datos_proyecto_$Sleep_Duration))
mean(Datos_proyecto_$Sleep_Duration, na.rm = TRUE)

## [1] 6.203

var(Datos_proyecto_$Sleep_Duration, na.rm = TRUE)

## [1] 2.012819

sd(Datos_proyecto_$Sleep_Duration, na.rm = TRUE)

## [1] 1.418739

Variable Screen Time

Datos_proyecto_$Screen_Time <- as.numeric(as.character(Datos_proyecto_$Screen_Time))
mean(Datos_proyecto_$Screen_Time, na.rm = TRUE)

## [1] 2.607

var(Datos_proyecto_$Screen_Time, na.rm = TRUE)

## [1] 0.7228798

sd(Datos_proyecto_$Screen_Time, na.rm = TRUE)

## [1] 0.8502234

Visualización

library(ggplot2)

# Gráfico de dispersión
p1 <- ggplot(Datos_proyecto_, aes(x = Screen_Time, y = Sleep_Duration)) +
  geom_point(color = "darkgreen", size = 2) +
  labs(title = "Relación entre Screen Time y Sleep Duration",
       x = "Screen Time (horas)",
       y = "Sleep Duration (horas)") +
  theme_minimal()

# Gráfico con línea de regresión
p2 <- p1 + geom_smooth(method = "lm", color = "red", se = FALSE)

p1

p2

## `geom_smooth()` using formula = 'y ~ x'

Análisis

Aunque existen estudios previos que señalan una asociación entre el uso del celular y la calidad del sueño, en los datos analizados no se encontró evidencia estadística suficiente para afirmar dicha relación. Esto podría deberse a características específicas de la muestra o a la influencia de variables no consideradas en el análisis.

Prueba de Hipótesis

H₀: ρ = 0 (no hay relación lineal)
H₁: ρ ≠ 0 (sí hay relación lineal)

cor.test(Datos_proyecto_$Screen_Time, Datos_proyecto_$Sleep_Duration)

## 
##  Pearson's product-moment correlation
## 
## data:  Datos_proyecto_$Screen_Time and Datos_proyecto_$Sleep_Duration
## t = -0.35687, df = 98, p-value = 0.722
## alternative hypothesis: true correlation is not equal to 0
## 95 percent confidence interval:
##  -0.2308104  0.1615357
## sample estimates:
##         cor 
## -0.03602549

Coeficiente de correlación r: -0.036 → relación débil y negativa
Valor p: 0.772 → no se rechaza H₀
Intervalo de confianza 95%: [-0.2308, 0.1615]

Conclusiones

Los resultados indican que no se encontró evidencia estadísticamente significativa de una relación entre el tiempo de uso del celular antes de dormir y la duración del sueño. No se rechaza la hipótesis nula.

Recomendaciones

Ampliar el tamaño de la muestra
Medir calidad del sueño, no solo duración
Estudiar el horario de uso del celular
Realizar un experimento controlado

Bibliografía

Incluir aquí las fuentes utilizadas en el análisis y redacción.