ATIVIDADE 2

Importação da tabela

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

Tabela simples de quem trabalha

tabela_trabalha <- table(Questionario_Estresse$Trabalha)
tabela_trabalha
## 
##  1  2 
## 36 59

Tabela de proporção de quem trabalha

prop.table(tabela_trabalha)*100
## 
##        1        2 
## 37.89474 62.10526

Gráfico de pizza

pie(tabela_trabalha, col = c("yellow","skyblue"),
    main = "Gráfico de estudantes que trabalham")

Interpretação

Gráfico que indica em amarelo(62%) o total de estudantes que não trabalham e em azul(37%), o total de estudantes que trabalham.