Introdução

Será apresentada uma tabela, uma tabela de proporção e um gráfico de pizza da variável qualitativa “Trabalha” da base de dados chamada “Questionario_Estresse.xls”. Essa base de dados é referente a uma pesquisa sobre grau de estresse aplicada em duas turmas do curso de psicologia.

Dados

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

Questionario_Estresse$Trabalha <- ifelse(Questionario_Estresse$Trabalha==1,"Sim","Não")

Tabela

tabela_trabalha <- table(Questionario_Estresse$Trabalha)
tabela_trabalha
## 
## Não Sim 
##  59  36

Tabela de proporção

prop.table(tabela_trabalha)*100
## 
##      Não      Sim 
## 62.10526 37.89474

Gráfico de pizza

pie(tabela_trabalha, main = "Trabalha", labels = c("62,10%","37,89%"),col = c("#822222","#225782"))
legend("topright", fill = c("#822222","#225782"),legend = c("Não","Sim"))

Interpretação do gráfico

Pelo gráfico, é possível verificar que 62,10% (parte vermelha do gráfico) dos 95 alunos participantes da pesquisa não trabalham, além de estudar e os outros 37,89% (parte azul do gráfico) trabalham. Sendo assim, a maioria dos alunos que participaram da pesquisa, não trabalham.