knitr::opts_chunk$set(echo = TRUE)

Carregamento dos dados

O presente relatório tem por objetivo apresentar um gráfico violino (não apresentado em sala). Para isso, será utilizada a base de dados Questionario_Estresse.

library(readxl)
Questionario_Estresse <- read_excel("Questionario_Estresse.xls") 
Questionario_Estresse$RJ = ifelse(Questionario_Estresse$RJ == 1, "Sim","Não")

Questionario_Estresse$Trabalha = ifelse(Questionario_Estresse$Trabalha == 1, "Sim","Não")
library(ggplot2)

library(ggplot2)

Gráficos

Foram utilizadas duas variáveis, uma variável qualitativa (Natural do Rio) e uma quantitativa (Desempenho).

ggplot(Questionario_Estresse) +
 aes(x = RJ, y = Desempenho) +
 geom_violin(adjust = 1L, scale = "area", fill = "#0c4c8a") +
 theme_minimal()

Através da análise dos gráficos, foi possível concluir que tanto os alunos naturais do Rio quanto os não naturais do Rio, possuem ótimas notas, sendo essas concentradas na região de 9.