Carregar uma base de dados

#-----------------------------------------------
# Carregar uma base de dados
#---------------------------------------------

load("C:/Users/diova/OneDrive/Documents/Área de Trabalho/Base_de_dados-master/questionario_social_survey.RData")

Questões retiradas da base de dados

#--------------------------------------------------------------------
# Questões retiradas da base de dados
#--------------------------------------------------------------------

# Quantos são casados?

tabela1 <- table(questionario_social_survey$estado_civil)
tabela1
## 
##  Sem resposta   Nunca casou   Separado(a) Divorciado(a)      Viúvo(a) 
##            17          5416           743          3383          1807 
##     Casado(a) 
##         10117
# Qual a proporção de católicos?

tabela2 <- table(questionario_social_survey$religiao)
tabela2
## 
##             Sem resposta                 Não sabe Inter não denominacional 
##                       93                       15                      109 
##         Nativa americana                   Cristã          Cristã ortodoxa 
##                       23                      689                       95 
##           Muçulmana/Islã  Outra religião oriental                Hinduísmo 
##                      104                       32                       71 
##                  Budismo                    Outra                  Nenhuma 
##                      147                      224                     3523 
##                 Judaísmo                 Católica              Protestante 
##                      388                     5124                    10846 
##            Não se aplica 
##                        0
# Tabela de proporção
prop.table(tabela2)*100
## 
##             Sem resposta                 Não sabe Inter não denominacional 
##               0.43290043               0.06982265               0.50737793 
##         Nativa americana                   Cristã          Cristã ortodoxa 
##               0.10706140               3.20718708               0.44221012 
##           Muçulmana/Islã  Outra religião oriental                Hinduísmo 
##               0.48410371               0.14895499               0.33049388 
##                  Budismo                    Outra                  Nenhuma 
##               0.68426197               1.04268491              16.39901317 
##                 Judaísmo                 Católica              Protestante 
##               1.80607923              23.85141740              50.48643113 
##            Não se aplica 
##               0.00000000
# Arredondar
round(prop.table(tabela2)*100,2)
## 
##             Sem resposta                 Não sabe Inter não denominacional 
##                     0.43                     0.07                     0.51 
##         Nativa americana                   Cristã          Cristã ortodoxa 
##                     0.11                     3.21                     0.44 
##           Muçulmana/Islã  Outra religião oriental                Hinduísmo 
##                     0.48                     0.15                     0.33 
##                  Budismo                    Outra                  Nenhuma 
##                     0.68                     1.04                    16.40 
##                 Judaísmo                 Católica              Protestante 
##                     1.81                    23.85                    50.49 
##            Não se aplica 
##                     0.00
# Quantos são negros?

tabela3 <- table(questionario_social_survey$raca)
tabela3
## 
##         Outra         Negra        Branca Não se aplica 
##          1959          3129         16395             0
round(prop.table(tabela3)*100,2)
## 
##         Outra         Negra        Branca Não se aplica 
##          9.12         14.57         76.32          0.00

Gráfico de barras

#------------------------------------------------------------
# Gráfico de barras
#--------------------------------------------------------------

barplot(tabela1)

tabela1
## 
##  Sem resposta   Nunca casou   Separado(a) Divorciado(a)      Viúvo(a) 
##            17          5416           743          3383          1807 
##     Casado(a) 
##         10117
barras <- barplot(tabela1, main = "Gráfico 1 - Estado Civil",
        col = c("violetred","purple","lightblue","plum","peachpuff","orchid1"))

#Legenda
text(barras, 0 , tabela1,cex=0.9,pos=3,
     col = c("black"))

Conforme a base de dados fornecida, 21483 indivíduos responderam ao questionário, onde através do gráfico 1 podemos analisar que a maioria dos participantes são casados (10117), logo em seguida estão os que nunca se casaram (5416), seguido dos que são divorciados (3383), os viúvos (1807), os que são separados (743) e por fim aquelas que não informaram o estado civil (17).

Gráfico de pizza

#----------------------------------------------
#Gráfico de pizza
#---------------------------------------------------
pie(tabela3,col= c("yellowgreen","tomato2","lightsteelblue","brown"), main = "Gráfico 2 - Raça")

Através do gráfico 2, nota-se que há uma predominância de pessoas brancas na área de estudo, seguida de proporções menores de indivíduos negros e de outras raças não informadas.