Uma pesquisa com alunos do curso de psicologia nos oferece os seguintes dados:

library(readxl)
Questionario_Estresse <- read_excel("Base_de_dados-master/Questionario_Estresse.xls")


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

Podemos notar no gráfico abaixo que do total de 95 entrevistados, 36 trabalham e 59 não trabalham.

pie (tabela1,
     main = "Alunos que trabalham.",
     col = c("493","639"))

1 Trabalham

2 Não trabalham

Com relação a residência, notou-se que 44 alunos residem com os pais e 51 não residem.

tabela2 <- table (Questionario_Estresse$Mora_pais)
tabela2
## 
##  1  2 
## 44 51
pie (tabela2,
     main = "Alunos que residem com os pais.",
     col = c("565", "571"))

1- Residem com os pais.

2- Não residem com os pais.

Na pesquisa abordou-se ainda o ano de ingresso desses alunos, estando os dados abaixo:

tabela3 <- table (Questionario_Estresse$Turma)
tabela3
## 
##  1  2  3 
## 28 32 35
pie (tabela3,
     main = "Ano de ingresso.",
     col = c("586", "601", "143"))

1- 2007-2

2- 2008-1

3- 2008-2

Conclusão

Utilzando dos comandos do R e importando dados do banco de dados do excel foi possível apresentar gráficos e tabelas de forma eficiente e fácil.