Gráficos Correlação e Violin

Para análise da base de dados “Questionério Estresse” foi feita uma matriz de correlação em elipses, onde foi possível visualizar que a variável que possui maior correlação com o nível de estresse é a quantidade de horas de estudo. A partir desse dado, foi feito um gráfico tipo Violin utilizando ggplot2, onde este, diferente do boxplot, considera a distribuição dos dados dentro da “caixa”.

library(readxl)
df_estresse <- read_excel("C:/Users/L/Mestrado/Questionario_Estresse.xls")

library(ellipse)
## 
## Attaching package: 'ellipse'
## The following object is masked from 'package:graphics':
## 
##     pairs
library(RColorBrewer)
 
mc<-cor(df_estresse[,c("Estresse","Créditos","Desempenho","Horas_estudo","Mora_pais","RJ","Trabalha")], use="complete")

par(bg="grey") 
ord <- order(mc[1,])
mc_ord <- mc[ord, ord]
colors <- brewer.pal(5, "Spectral")
colors=colorRampPalette(colors)(100)

plotcorr(mc_ord,col=colors[mc_ord*50+50],main="Correlação Nível de Estresse")

library(ggplot2)
library(RcmdrMisc)
## Loading required package: car
## Loading required package: carData
## 
## Attaching package: 'car'
## The following object is masked from 'package:ellipse':
## 
##     ellipse
## Loading required package: sandwich
df_estresse$Horas_estudos <- with(df_estresse, binVariable(Horas_estudo, bins=3, method='natural', labels=c('Pouco','Médio','Muito')))

ggplot(df_estresse, aes(factor(Horas_estudos), Estresse)) +
  geom_violin(aes(fill = factor(Horas_estudos)))