Atividade 6 - Cruzamento de duas variáveis quantitativas

Base de dados:

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

Diagrama de dispersão de duas variáveis quantitativas

par(bg="pink")
par(cex=0.7)
plot(Questionario_Estresse$Horas_estudo,Questionario_Estresse$Desempenho,pch=16,col="blue",
     main = "Gráfico 1 - Diagrama de dispersão entre horas de estudo e desempenho",
     ylab = "Desempenho", xlab = "Horas de estudo")
abline(lsfit(Questionario_Estresse$Horas_estudo,Questionario_Estresse$Desempenho),col="black")

Correlação entre as variáveis

dados <-data.frame(x=c(2,3,4,5,5,6,7,8),
                   y=c(4,7,9,10,11,11,13,15))
cor(dados$x,dados$y)

## [1] 0.980871

0.980871

## [1] 0.980871

cor(Questionario_Estresse$Desempenho,Questionario_Estresse$Horas_estudo)

## [1] 0.2231532

0.2231532

## [1] 0.2231532

Apresentação da Matriz de correlação

names(Questionario_Estresse)

##  [1] "Aluno"        "Turma"        "Mora_pais"    "RJ"           "Namorado_a"  
##  [6] "Trabalha"     "Desempenho"   "Estresse"     "Créditos"     "Horas_estudo"

selecao<- c("Desempenho", "Estresse", "Créditos", "Horas_estudo") 

cor_questionario <- cor(Questionario_Estresse[,selecao])
cor_questionario

##              Desempenho   Estresse Créditos Horas_estudo
## Desempenho   1.00000000 0.08257246       NA    0.2231532
## Estresse     0.08257246 1.00000000       NA    0.3039170
## Créditos             NA         NA        1           NA
## Horas_estudo 0.22315316 0.30391699       NA    1.0000000

Vizualização final

library(corrplot)

## corrplot 0.92 loaded

par(cex=0.7)
corrplot(cor_questionario)

corrplot(cor_questionario, method="number")

Análise dos dados.

Inicialmente, cabe ressaltar que as variáveis quantitativas analisadas foram as “horas de estudo” e “desempenho” dos alunos.

No 1º diagrama é possível perceber que o melhor desempenho dos alunos ocorre entre aqueles que estudam até 40 horas.

Na matriz é possível observar correlação entre as variáveis: “desempenho” e “estresse”; “desempenho e horas de estudo”; “horas de estudo e estresse”