Ativide Análise de duas variáveis quantitativas
Carregando base de dados Questionário Estresse
library(readxl)
Questionario_Estresse <- read_excel("Estatistica/Base_de_dados-master/Questionario_Estresse.xls")
Gráfico Questionario Estresse
Diagrama de dispersão nível de desempenho e horas de estudo
plot(Questionario_Estresse$Desempenho, Questionario_Estresse$Horas_estudo, col = "darkred",pch=16)
abline(lsfit(Questionario_Estresse$Desempenho, Questionario_Estresse$Horas_estudo),col="darkblue")
cor(Questionario_Estresse$Desempenho, Questionario_Estresse$Horas_estudo)
## [1] 0.2231532
Existe uma relação linear positiva
Correlação linear, fraca e positiva entre as duas variáveis
Quanto maior as horas de estudo, maior tende a ser o Desempenho dos alunos
Matriz Correlação das variaveis quantitativas
cor(Questionario_Estresse[,c("Aluno", "Turma", "RJ", "Namorado(a)", "Trabalha", "Desempenho","Estresse", "Horas_estudo")])
## Aluno Turma RJ Namorado(a) Trabalha
## Aluno 1.000000000 0.94093693 0.08545631 -0.103646657 0.060926264
## Turma 0.940936929 1.00000000 0.03902466 -0.091816933 0.070970251
## RJ 0.085456309 0.03902466 1.00000000 -0.102865540 0.068117433
## Namorado(a) -0.103646657 -0.09181693 -0.10286554 1.000000000 0.008222913
## Trabalha 0.060926264 0.07097025 0.06811743 0.008222913 1.000000000
## Desempenho -0.005300716 -0.07819859 0.12828113 -0.204248795 0.054199018
## Estresse -0.196990678 -0.12416218 0.03565118 -0.076944595 0.018972190
## Horas_estudo -0.297518085 -0.28706787 -0.01842304 -0.147950626 0.147335040
## Desempenho Estresse Horas_estudo
## Aluno -0.005300716 -0.19699068 -0.29751808
## Turma -0.078198588 -0.12416218 -0.28706787
## RJ 0.128281134 0.03565118 -0.01842304
## Namorado(a) -0.204248795 -0.07694459 -0.14795063
## Trabalha 0.054199018 0.01897219 0.14733504
## Desempenho 1.000000000 0.08257246 0.22315316
## Estresse 0.082572463 1.00000000 0.30391699
## Horas_estudo 0.223153161 0.30391699 1.00000000
Vizualização da Matriz
library(corrplot)
## Warning: package 'corrplot' was built under R version 4.0.3
## corrplot 0.84 loaded
M <- cor(Questionario_Estresse[,c("Aluno", "Turma", "RJ", "Namorado(a)", "Trabalha", "Desempenho","Estresse", "Horas_estudo")])
corrplot(M, method="circle")
corrplot(M,addCoef.col=TRUE,number.cex=0.7)
A maioria das correlações são fracas positivas