library(readxl)
Questionario_Estresse <- read_excel("C:/Users/bvale/Base_de_dados-master/Questionario_Estresse.xls")
View(Questionario_Estresse)
plot(Questionario_Estresse$Desempenho,Questionario_Estresse$Estresse,
     main="Diagrama de Estresse por horas de estudo",
     xlab = "Horasestudo", ylab = "Estresse", pch=20,col='yellow1')
abline(lsfit(Questionario_Estresse$Desempenho,Questionario_Estresse$Estresse),col="darkblue", lwd=2)

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

Podemos concluir por esse gráfico que existe uma relação pequena entre o estresse e as horas de estudo.Um valor de aproximadamente 30%. Portanto,existe uma relação entre esses dois fatores,porém essa relação é baixa,logo,ashoras de estudo interferem muito pouco no estresse