Introdução

O presente trabalho possui como foco a construção de uma tabela, uma tabela de proporção e um gráfico de pizza de uma variável qualitativa da base de dados chamada “Questionario_Estresse.xlsx”.

Base de dados

library(readxl)
Questionario_Estresse <- read_excel("C:/Users/DELL/Downloads/Base_de_dados-master/Questionario_Estresse.xls", 
                                    sheet = "Dados")

Transformação de dados

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

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

Tabela

tabela_morapais = table(Questionario_Estresse$Mora_pais)
tabela_morapais
## 
## Não Sim 
##  51  44
tabela_trabalha = table(Questionario_Estresse$Trabalha)
tabela_trabalha
## 
## Não Sim 
##  59  36

Tabela de proporção

prop.table(tabela_morapais)*100
## 
##      Não      Sim 
## 53.68421 46.31579
prop.table(tabela_trabalha)*100
## 
##      Não      Sim 
## 62.10526 37.89474

Gráfico de pizza - Mora com os pais

pie(tabela_morapais,col = c("#457b9d","#1d3557"),
    main = "Mora com os pais",
    labels = c("53,68%","46,31%"))
    legend("topright", fill = c("#457b9d","#1d3557"),
    legend = c("Não","Sim"))

Gráfico de pizza - Trabalha

pie(tabela_trabalha,col = c("#ff8fa3","#ff4d6d"),
    main = "Trabalha",
    labels = c("62,10%","37,90%"))
    legend("topright", fill = c("#ff8fa3","#ff4d6d"),
    legend = c("Não","Sim"))

Conclusão

No que concerne os dados coletados, pode-se afirmar, portanto, que do total de 95 indivíduos contidos na Base de Dados: “Questionario_Estresse”, 51 pessoas — que equivalem a 53,68% — não moram com os pais, tal análise é demonstrada no gráfico pelo tom de azul mais claro, enquanto apenas 36 — que correspondente a 37,90% das pessoas — trabalham e segue sendo representada pelo tom de rosa escuro no gráfico de pizza.