Aqui vamos carregar e importar as bases de dados e gerar os graficos de pizza!

Base de Dados

#Carregar arquivo do RData
load("C:/Users/ziin/Documents/questionario_social_survey.RData")

Tabela

#Gerando tabelas

tabela_questionario <-table(questionario_social_survey$estado_civil)

tabela_questionario
## 
##  Sem resposta   Nunca casou   Separado(a) Divorciado(a)      Viúvo(a) 
##            17          5416           743          3383          1807 
##     Casado(a) 
##         10117

Grafico Estado Civil

#Gerando gráfico de pizza basico

pie(tabela_questionario)

Mudando cor

#mudando a cor

pie(tabela_questionario,col=c("blue","pink","yellow","green","orange"),main="1 grafico- Estado Civil")

Interpretação do grafico

Após análise do questionário com aproximandamente 21.483 pessoas. Oberservamos nesse gráfico que grande parte da pessoas tem como estado civil, casado , com 10.117 respostas e de segunda instância as que nunca se casaram , apurado em 5.416 pessoas.Mas vale ressaltar ,que mesmo que grande parte das pessoas, sejam casadas , há também um número considerável de pessoas divorciadas , apurado em 3.383 pessoas. E por fim,1807 pesssoas viuvo(a),743 separado(a)e 17 nao obtiveram resposta.