Tabela em valores absolutos, tabela de proporção e Gráfico de pizza.

#Base de dados

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

QE$Namorado_a = ifelse(QE$Namorado_a==1,"Namora","Solteiro")

Podemos observar nesta tabela dos valores absolutos que dos 95 alunos, 47 namora e 48 são solteiros.

#Tabela de valores absolutos

tabela_Namorado = table(QE$Namorado_a)
tabela_Namorado

## 
##   Namora Solteiro 
##       47       48

Na tabela de proporção podemos observar que 49.47% dos alunos namora e 50.52% são solteiros.

#Tabela de Proporção

prop.table(tabela_Namorado)*100

## 
##   Namora Solteiro 
## 49.47368 50.52632

Podemos notar no gráfico em verde os alunos que namoram e em roxo os alunos solteiros.

#Gráfico de pizza

pie(tabela_Namorado)

pie(tabela_Namorado,col = c("#76EE00","#B23AEE"))