Dados sobre a quantidade de alunos de psicologia que além de estudar, também trabalham.

Fonte: Questionário Estresse - Pesquisa sobre grau de estresse aplicada em duas turmas do curso de psicologia.
library(readxl)
Questionario_Estresse <- read_excel("C:/Users/Dell/Desktop/Base_de_dados-master/Questionario_Estresse.xls", sheet = "Dados")

Questionario_Estresse$Trabalha <- ifelse(Questionario_Estresse$Trabalha==1,"trabalha","não trabalha")

Tabela

tabela_trab <- table(Questionario_Estresse$Trabalha)
tabela_trab
## 
## não trabalha     trabalha 
##           59           36

Tabela de proporção

prop.table(tabela_trab)*100
## 
## não trabalha     trabalha 
##     62.10526     37.89474

Gráfico de pizza

pie(tabela_trab,col= c("#F3A3B8","#89E0AC"), 
                    main = "Proporção de alunos de psicologia que trabalham,
    em relação ao total de entrevistados:")

Interpretação do gráfico

O gráfico demonstra a proporção de alunos de turmas diferentes do curso de psicologia que estudam e também trabalham, em relação ao total de respostas do questionário aplicado. Observando a tabela de proporção e o gráfico, podemos concluir que dos 95 estudantes de psicologia que participaram da pesquisa, menos da metade (aproximadamente 37,8%) trabalham.