Atividade 2 - Gráfico (Variável Categórica)

—————————————————–

Carregando a Base de Dados (.RData)

—————————————————–

load("C:/Users/Cliente/Desktop/Base_de_dados-master/questionario_social_survey.RData")

—————————————————–

Tabela 1 - Criando a tabela de estado Civil

—————————————————–

tabela1 <- table(questionario_social_survey$estado_civil)

—————————————————–

Tabela 2 - Criando a Proporcionalidade da Tabela 1

—————————————————–

options (scipen = 999)
tabela2 <- round(prop.table(tabela1)*100,2)

Criando o Gráfico 1 - De Barras - Quantidade

par(cex=0.7)
barras <- barplot(tabela1, main = "Gráfico 1 - Estado Civil (Quantidade em valor absoluto)", col = c("wheat4","olivedrab4","#242b33","#24080c","lightsalmon2"), ylim = c(0,12000))
text(barras,2100,tabela1, cex = 0.8, pos = 3, col = c("black","white","black","white","black","black"))

Criando o Gráfico 2 - De Barras - Proporção

barras <- barplot(tabela2, main = "Gráfico 2 - Proporção de Estado Civil (Em %)", col = c("red","olivedrab4","#242b33","#24080c","lightsalmon2"), ylim = c(0,50))
text(barras,4,tabela2, cex = 0.8, pos = 3, col = c("black","white","red","white","black","white"))

———————————————————————————-

Interpretação dos Gráficos: Podemos identificar em valores absolutos que maior parte da base consultada, quer performa um total de 21.483 pessoas 10.117 são casadas, isso representa 47,09% da base, ou seja, quase a metade dela. A outra metade, dividi-se da seguinte forma, conforme explicito nos gráficos: 5.416 pessoas nunca se casaram, o que representa 25,21% da base, 3.383 são divorciados representando 15,75% da base; 1.807 são viúvos representando 8,41%; 743 são separados, com 3,46% e, por fim, as pessoas que não responderam representa 0,08% se tratando de 17 pessoas, em valor absoluto.