Introdução

Com essa atividade, veremos um banco de dados e através dele foi selecionada uma variável qualitativa para as seguintes ilustrações: tabela, tabela de proporção e gráficos de pizza. Ressaltando que ao final dessas ilustrações, mostraremos uma interpretação desse gráfico.

Base de dados: Questionario_Estresse

Importação

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

Variável: RJ

Tabela

Questionario_Estresse$RJ <-ifelse(Questionario_Estresse$RJ==1,"NÃO","SIM")
tabela_Quest <- table(Questionario_Estresse$RJ)
tabela_Quest
## 
## NÃO SIM 
##  33  62

Tabela de proporção

round(prop.table(tabela_Quest)*100,2)
## 
##   NÃO   SIM 
## 34.74 65.26

Gráfico

pie(tabela_Quest,col = c("blue","violet"),
    main = "RJ")

Interpretação

Ao observa os dados ilustrados, podemos concluir que de um total de 95, 33 que equivale a uma proporção de 34,74% consta não em RJ, sendo assim a menor parte do gráfico. A outra metade que equivale a 62 com uma proporção de 65,26% consta sim e consequentemente fica com a maior parte gráfico.