Importando Base de Dados (.RData)

load("D:/Desktop/Base_de_dados-master/questionario_social_survey.RData")

Criando Tabela de Frequência (Estado Civil)

tabela1 <- table(questionario_social_survey$estado_civil)

Criando Tabela de Proporção (Estado Civil)

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

Criando Gráficos de Barras (Estado Civil)

par(cex=0.7)
barras <- barplot(tabela1, main = "Gráfico 1 - Estado Civil (Frequência)", 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"))

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

Interpretação dos Gráficos: Conforme podemos perceber nos gráficos de frequência e de proporção, na base de dados de 21.483 linhas (pessoas), pouco menos da metade são casados (10.117 ou 47,09%), seguidos daqueles que nunca casaram (5.416 ou 25,21%), dos divorciados (3.383 ou 15,75%), dos viúvos (1.807 ou 8,41%), dos separados (743 ou 3,46%) e, por fim, daqueles que não responderam o seu estado civil (17 ou 0,08%).