Avaliação de estatistica

AVALIÇÃO 2 ESTATISTICA

Na primeira tabela, podemos notar como são distribuidos os niveis de estresse entre os participantes da pesquisa

library(readxl)
Questionario_Estresse <- read_excel("C:/Users/Gabriela/Desktop/Base_de_dados-master/Questionario_Estresse.xls")
View(Questionario_Estresse)
tabela_estresse = table(Questionario_Estresse$Estresse)
tabela_estresse

## 
## 12 13 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 
##  1  2  1  3  3  1  1  5  5  2  3  4  6  8  3  2  4  6  5  4  5  3  3  1  3  3 
## 39 40 41 42 44 
##  1  1  2  2  2

Em seguida temos a proporção de estudantes que possuem e que não possuem empregos em %

Questionario_Estresse$Trabalha = ifelse(Questionario_Estresse$Trabalha==1,"Sim","Não")
tabela_trabalha = table(Questionario_Estresse$Trabalha)
prop.table(tabela_trabalha)*100

## 
##      Não      Sim 
## 62.10526 37.89474

Nela podemos notar qe aproximadamente 62% não trabalham, enquanto aproxiamdamente 38% estão empregados.

Por fim temos um grafico que demonstra a proporção de estudantes que residem no Rio de Janeiro, e que não residem.

Questionario_Estresse$RJ = ifelse(Questionario_Estresse$RJ==1,"Mora","Não mora")
tabela_RJ = table(Questionario_Estresse$RJ)
pie(tabela_RJ,col=c("#228B22","#9400D3"))