Diagrama de dispersão

O Diagrama de Dispersão, também conhecido como Gráfico de Dispersão, é uma das ferramentas que compõem a qualidade. Ele é identificado como um gráfico de eixos verticais e horizontais, correlacionando a causa e o efeito.

Com isso, com esses dados correlacionados, é possível perceber neste Diagrama se existe ou não relação de causa e efeito entre as variáveis.

# Passo 1 - Importação 

library(readxl)
Questionario_Estresse <- read_excel("C:/Users/Wellen Dutra/Base_de_dados-master/Questionario_Estresse.xls", 
                                    sheet = "Dados")


# Passo 2 -  visualizar dados
## Diagrama de dispersão (relação positiva fraca entre as duas variáveis)
## para duas variáveis quantitativas



# Desempenho x Horas de estudo

##Diagrama de dispersão da base questionario_estresse.xls

# Passo 3 Gerar o gráfico 

# Gárafico
par(bg="lightyellow")
plot(Questionario_Estresse$Desempenho,Questionario_Estresse$Horas_estudo, pch=16,col ="red",
    main = "Gráfico 1 - Diagrama de dispersão entre desempenho \n e horas de estudo",
    ylab = "Horas de estudo", xlab = "Desempenho")


# linha
abline(lsfit(Questionario_Estresse$Desempenho, Questionario_Estresse$Horas_estudo),col="darkred")

correlação entre duas variáveis

# Passo 4 - correlação

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

Matriz de correlação

# Passo 5 Matriz de correlação

selecao = c("Desempenho", "Horas_estudo")

cor_questionario = cor(Questionario_Estresse[,selecao])
cor_questionario
##              Desempenho Horas_estudo
## Desempenho    1.0000000    0.2231532
## Horas_estudo  0.2231532    1.0000000

Visualização da matriz

library(corrplot)
## corrplot 0.92 loaded
par(cex=0.9)
corrplot(cor_questionario)

corrplot(cor_questionario, method = "number")