load("C:/Users/welington/Desktop/POSCIVIL/Base_de_dados-master/questionario_social_survey.RData")
tabela1<-table(questionario_social_survey$idade)
tabela1
## 
##  18  19  20  21  22  23  24  25  26  27  28  29  30  31  32  33  34  35  36  37 
##  91 249 251 278 298 361 344 396 400 385 387 376 433 407 445 425 425 417 428 438 
##  38  39  40  41  42  43  44  45  46  47  48  49  50  51  52  53  54  55  56  57 
## 426 415 452 434 405 448 432 404 422 435 424 417 430 390 400 396 387 365 384 321 
##  58  59  60  61  62  63  64  65  66  67  68  69  70  71  72  73  74  75  76  77 
## 326 323 338 307 310 292 253 259 231 271 205 201 213 206 189 152 180 179 171 137 
##  78  79  80  81  82  83  84  85  86  87  88  89 
## 150 135 127 119 105  99 100  75  74  54  57 148
options(scipen =999)
prop.table(tabela1)*100
## 
##        18        19        20        21        22        23        24        25 
## 0.4250946 1.1631709 1.1725137 1.2986406 1.3920680 1.6863643 1.6069510 1.8498622 
##        26        27        28        29        30        31        32        33 
## 1.8685477 1.7984771 1.8078199 1.7564348 2.0227029 1.9012473 2.0787593 1.9853319 
##        34        35        36        37        38        39        40        41 
## 1.9853319 1.9479609 1.9993460 2.0460597 1.9900033 1.9386182 2.1114589 2.0273742 
##        42        43        44        45        46        47        48        49 
## 1.8919045 2.0927734 2.0180315 1.8872331 1.9713178 2.0320456 1.9806605 1.9479609 
##        50        51        52        53        54        55        56        57 
## 2.0086887 1.8218340 1.8685477 1.8498622 1.8078199 1.7050498 1.7938058 1.4995095 
##        58        59        60        61        62        63        64        65 
## 1.5228664 1.5088522 1.5789228 1.4341103 1.4481244 1.3640398 1.1818564 1.2098846 
##        66        67        68        69        70        71        72        73 
## 1.0790863 1.2659410 0.9576307 0.9389452 0.9950016 0.9623021 0.8828888 0.7100481 
##        74        75        76        77        78        79        80        81 
## 0.8408465 0.8361751 0.7988041 0.6399776 0.7007054 0.6306348 0.5932639 0.5558929 
##        82        83        84        85        86        87        88        89 
## 0.4904938 0.4624655 0.4671369 0.3503527 0.3456813 0.2522539 0.2662680 0.6913626
round(prop.table(tabela1)*100,2)
## 
##   18   19   20   21   22   23   24   25   26   27   28   29   30   31   32   33 
## 0.43 1.16 1.17 1.30 1.39 1.69 1.61 1.85 1.87 1.80 1.81 1.76 2.02 1.90 2.08 1.99 
##   34   35   36   37   38   39   40   41   42   43   44   45   46   47   48   49 
## 1.99 1.95 2.00 2.05 1.99 1.94 2.11 2.03 1.89 2.09 2.02 1.89 1.97 2.03 1.98 1.95 
##   50   51   52   53   54   55   56   57   58   59   60   61   62   63   64   65 
## 2.01 1.82 1.87 1.85 1.81 1.71 1.79 1.50 1.52 1.51 1.58 1.43 1.45 1.36 1.18 1.21 
##   66   67   68   69   70   71   72   73   74   75   76   77   78   79   80   81 
## 1.08 1.27 0.96 0.94 1.00 0.96 0.88 0.71 0.84 0.84 0.80 0.64 0.70 0.63 0.59 0.56 
##   82   83   84   85   86   87   88   89 
## 0.49 0.46 0.47 0.35 0.35 0.25 0.27 0.69
tabela2<-table(questionario_social_survey$raca)
tabela3<-table(questionario_social_survey$renda)
tabela4<-table(questionario_social_survey$estado_civil)

Gráfico de Pizza

pie(tabela2,main = "Gráfico 1 ")

pie(tabela4,main = "Gráfico 2 - Estado Civil")

Pode-se observar nos gráficos acima que as amostras coletadas são de indivíduos da raça branca e sua maior parte, depois vem a raça negra, seguido de outras.

Temos no gráfico 2 ESTADO cIVIL, Onde o maior percentual é de casados,depois dos solteiros,em seguida temos Divorciados e viuvos, na menor parte temos os separados.

Podemos concluir que a raça branca é prodominante.No entanto, temos nesta relação a possível mistura entre brancos e pardos, dando maior percentual a essa classe, os negros vem em segundo lugar.