Analise do gráfico, Questionário de Estresse

Podemos analisar na tabela abaixo, toda relação e dados de pessoas que moram com “Os Pais”, “Namoram” e esta concentrado na “Capital ou Interior”, com isso conseguimos avaliar onde essas pessoas se sentem mais confortáveis e tenham menos estresse.
library(readxl)
Questionario_Estresse <- read_excel("C:/Users/rioch/Desktop/Base_de_dados-master/Questionario_Estresse.xls", 
                                    sheet = "Dados")
View(Questionario_Estresse)

Questionario_Estresse$Mora_pais = ifelse(Questionario_Estresse$Mora_pais==1, "Sim", "Não")


Questionario_Estresse$Trabalha = ifelse(Questionario_Estresse$Trabalha==1, "Sim", "Não")


Questionario_Estresse$RJ = ifelse(Questionario_Estresse$RJ==1, "Capital", "Interior")

Questionario_Estresse$Namorado_a = ifelse(Questionario_Estresse$Namorado_a==1, "Sim", "Não")
Quantidade total Das pessoas que moram com “os pais”, que tem “namorado(a)” e que moram na “capital” e no “interior” do Rio de Janeiro.
tabela_moradia = table(Questionario_Estresse$Mora_pais)
tabela_moradia
## 
## Não Sim 
##  51  44
tabela_Região = table(Questionario_Estresse$RJ)
tabela_Região
## 
##  Capital Interior 
##       33       62
tabela_Relacionamento = table(Questionario_Estresse$Namorado_a)
tabela_Relacionamento
## 
## Não Sim 
##  48  47
Temos aqui as proporções apresentadas,na pesquisa de estresse.
prop.table(tabela_moradia)*100
## 
##      Não      Sim 
## 53.68421 46.31579
prop.table(tabela_Região)*100
## 
##  Capital Interior 
## 34.73684 65.26316
prop.table(tabela_Relacionamento)*100
## 
##      Não      Sim 
## 50.52632 49.47368
Com visual dos gráficos apresentados conseguimos ter uma melhor visualização da estrutura.
tabela_moradia
## 
## Não Sim 
##  51  44
pie(tabela_moradia)

pie(tabela_moradia,col=c("#0d5721","#c6f7d3"))

tabela_Região
## 
##  Capital Interior 
##       33       62
pie(tabela_Região)

pie(tabela_Região,col=c("#7640e3","#c9bce3"))

tabela_Relacionamento
## 
## Não Sim 
##  48  47
pie(tabela_Relacionamento)

pie(tabela_Relacionamento,col=c("#de0969","#736c6f"))