atividade de correlação

Para fazer essa atividade de disperção e correlação vamos priemiramente importar a base de dados

library(readxl)
Questionario_Estresse <- read_excel("Base_de_dados-master/Questionario_Estresse.xls")

após importarmos a base de dados vamos fazer o gráfico que mostra a dispersão do desempenho e do estresse

plot(Questionario_Estresse$Desempenho,Questionario_Estresse$Estresse,
     main="Gráfico 1 - diagrama de dispersão do desempenho em relação ao estresse",
     xlab = "Desempenho", ylab = "Estresse", pch=20,col='#e474f2')
abline(lsfit(Questionario_Estresse$Desempenho,Questionario_Estresse$Estresse))

o gráfico, impressionantemente, nos mostra uma relação positiva entre o estresse e o desempenho dos alunos, embora alguns fujam a regra o padrão se mantém.

cor(Questionario_Estresse$Desempenho,Questionario_Estresse$Estresse)
## [1] 0.08257246

quanto a correlação, o numero baixo mostra que a correlação e positiva mas de certa forma quase inexistente.

obrigada por lerem :)