Pesquisa sobre o perfil dos alunos que apresentam estresse aplicado em duas turmas de psicologia.

Dados extraidos da planilha em excel.

library(readxl) Questionario_Estresse <- read_excel(“bases_curso_estatistica/Base_de_dados-master/Questionario_Estresse.xls”) View(Questionario_Estresse)

Tabela resultado da pesquisa

tabela <- table(Questionario_Estresse$Mora_pais) tabela

tabela4 <- table(Questionario_Estresse$RJ) tabela4

tabela3 <- table(Questionario_Estresse$Namorado_a) tabela3

pie (tabela,main = “Demonstração 1 - Mora com os pais”, col=c(“red” ,“blue”))

pie (tabela4,main = “Demonstração 2 - Natural do Rio de Janeiro”, col=c(“yellow” ,“slategray4”))

pie (tabela3,main = “Demonstração 3 - Possui um relacionamento”, col=c(“blue”,“thistle2”))