A atividade consiste na criação de uma tabela e gráfico pizza, a partir da base de dados “Questionario_Estresse”.
library(readxl)
Questionario_Estresse <- read_excel("C:/Users/renato/Desktop/Base_de_dados-master/Questionario_Estresse.xls",
sheet = "Dados")
View(Questionario_Estresse)
Para a criação da tabela, foi escolhida a variável “Mora_pais”.
tabela <- table(Questionario_Estresse$Mora_pais)
tabela
##
## 1 2
## 44 51
Para o gráfico pizza, foram escolhidas as cores “deepskyblue” e “yellowgreen”.
pie(tabela, main = "Gráfico Mora com os Pais",
col = c("deepskyblue","yellowgreen"))
1 = Mora com os pais
2 = Não mora com os pais
Os dados acima foram obtidos a partir de uma pesquisa feita com 95 alunos do curso de Psicologia. Analisando a tabela, observa-se que 44 alunos moram com os pais e 51 alunos não moram com os pais. Sendo assim, a maioria dos alunos não mora com os pais.
Fim