Análise de duas variáveis quantitativas

library(readxl)
Questionario_Estresse <- read_excel("C:/Users/PCY/Documents/Estatistica R/BASE DE DADOS ESTATISTICA/Questionario_Estresse.xls")

Diagrama de dispersão e coeficiente de correlação

plot(Questionario_Estresse$Desempenho,Questionario_Estresse$Horas_estudo,
     col = "purple",xlab = c("Desempenho"),ylab = c("Horas de estudo"),pch=16)
abline(lsfit(Questionario_Estresse$Desempenho,Questionario_Estresse$Horas_estudo),col="royalblue")

cor(Questionario_Estresse$Desempenho,Questionario_Estresse$Horas_estudo)
## [1] 0.2231532

Estatisticamente não há uma relação forte entre desempenho dos alunos e horas de estudo, visto que a maioria dos alunos, concentrada da nota 8 para cima, está dispersa com relaçao a horas de estudo, o que mostra que esta variável não influencia a outra. O coeficiente de correlação corrobora com a linha traçada no gráfico ao indicar uma relação linear muito baixa, por estar próximo a zero.