library(readxl)
Questionario_Estresse <- read_excel("C:/Users/usuario/Desktop/Base_de_dados-master/Questionario_Estresse.xls")

A partir da base de dados “Questionario_Estresse.xsl”, que abriga os dados sobre desempenho acadêmico e estresse de 95 estudantes, faço a análise da correlação entre horas de estudo e estresse.

plot(Questionario_Estresse$Horas_estudo, Questionario_Estresse$Estresse, xlab = "Horas de Estudo (semanal)", ylab = "Estresse", main = "Horas de Estudo x Estresse")
abline (lsfit (Questionario_Estresse$Estresse, Questionario_Estresse$Horas_estudo))

Podemos notar que apenas dois estudantes passaram das 50 horas de estudo semanal, ambos acima da média de estresse calculada pelo R de 27,82. De resto, nota-se que a grande parte dos alunos está entre 20 e 35 horas de estudo semanal, variando entre 5 e 44 na escala de estresse, com os menores níveis de estresse estando antes de 30 horas de estudo semanal.

cor (Questionario_Estresse$Horas_estudo, Questionario_Estresse$Estresse)
## [1] 0.303917

O ìndice de correlação indica um grau fraco de associação entre as duas variáveis, e portanto, por mais que exista uma relação, não podemos assumir que o tempo de estudo é o principal responsável pelo estresse desses alunos, sendo necessária talvez a análise conjunta com outros gráficos comparando o estresse com outras variáveis, como desempenho.