Atividade 6 e 7

Coleta dos Dados

library(readxl)
Questionario_Estresse <- read_excel("C:/Users/victo/Desktop/Material Estatistica/Base_de_dados-master/Questionario_Estresse.xls")
head(Questionario_Estresse)

library(knitr)
kable(Questionario_Estresse)

Coeficiente de relação entre as variáveis

rhoc2 <-cor(Questionario_Estresse$Estresse, Questionario_Estresse$Horas_estudo)
rhoc2

Gráfico de Dispersão

library(ggplot2)

ggplot(Questionario_Estresse) + aes(x = Estresse, y = Horas_estudo) + geom_point(size = 2.2, colour = "#00336f") + labs(x = "Estresse", y = "Horas de Estudo", title = "Horas de Estudo x Estresse", subtitle = "Atividades 6 e 7") + theme_minimal()

Análise dos dados

A partir dos dados, é possível atestar que o nível de Estresse se concentra entre as pessoas que estudam entre 25 e 45 horas.

Gráfico de Linha (Inédito)

ggplot(Questionario_Estresse) + aes(x = Estresse, y = Horas_estudo) + geom_abline(size = 2.2, colour = "#00336f") + labs(x = "Estresse", y = "Horas de Estudo", title = "Horas de Estudo x Estresse", subtitle = "Atividades 6 e 7") + theme_minimal()

Análise do gráfico

Infelizmente, o gráfico de linha pareceu pouco eficiente para confirmar a afirmação feita sobre o primeiro gráfico.