########################################################
# sessão da tarde, 5a-feira 21 de julho
#
# tem que installar o pacote dplyr, se não for instalado 
# > install.packages('dplyr')
########################################################

library(dplyr)
## 
## Attaching package: 'dplyr'
## The following objects are masked from 'package:stats':
## 
##     filter, lag
## The following objects are masked from 'package:base':
## 
##     intersect, setdiff, setequal, union
# commandos do dplyr

# filter :  selecionar obervações / linhas
# select :  selecionar colunas/variáveis
# mutate : criar novas variáveis
# arrange: ordenar linhas
# group_by + summarize : aggregar linhas

url = 'http://ufrn.schmert.net/dados/munic2010.csv'

D = read.csv(url, stringsAsFactors=FALSE)

# quais são os munic no estado de RJ com mais do que 1000 mulheres na faixa etária 20-24?

filter( D, sigla == 'RJ', Mu20 > 1000)
##       X      id                 munic sigla     reg
## 1  3182 3300456          Belford Roxo    RJ Sudeste
## 2  3190 3301009 Campos dos Goytacazes    RJ Sudeste
## 3  3198 3301702       Duque de Caxias    RJ Sudeste
## 4  3210 3302403                 Macaé    RJ Sudeste
## 5  3221 3303302               Niterói    RJ Sudeste
## 6  3223 3303500           Nova Iguaçu    RJ Sudeste
## 7  3228 3303906            Petrópolis    RJ Sudeste
## 8  3241 3304557        Rio de Janeiro    RJ Sudeste
## 9  3246 3304904           São Gonçalo    RJ Sudeste
## 10 3248 3305109    São João de Meriti    RJ Sudeste
## 11 3265 3306305         Volta Redonda    RJ Sudeste
##                               meso                      micro  Mu15  Mu20
## 1  Metropolitana do Rio de Janeiro             Rio de Janeiro  2353  2067
## 2                 Norte Fluminense      Campos dos Goytacazes  2169  2060
## 3  Metropolitana do Rio de Janeiro             Rio de Janeiro  4083  3843
## 4                 Norte Fluminense                      Macaé   941  1044
## 5  Metropolitana do Rio de Janeiro             Rio de Janeiro  1801  2053
## 6  Metropolitana do Rio de Janeiro             Rio de Janeiro  3913  3456
## 7  Metropolitana do Rio de Janeiro                    Serrana  1292  1194
## 8  Metropolitana do Rio de Janeiro             Rio de Janeiro 25301 26638
## 9  Metropolitana do Rio de Janeiro             Rio de Janeiro  4339  4349
## 10 Metropolitana do Rio de Janeiro             Rio de Janeiro  2107  2013
## 11                  Sul Fluminense Vale do Paraíba Fluminense  1114  1125
##     Mu25  Mu30  Mu35  Mu40  Mu45 Cr15 Cr20 Cr25 Cr30 Cr35 Cr40 Cr45
## 1   2070  2084  1936  1873  1685  128  198  181  108   72   12   10
## 2   2079  1969  1748  1758  1747   91  160  169  109   59   17    4
## 3   3827  3855  3509  3368  3081  204  317  313  221  121   50    4
## 4   1142  1009   834   766   732   55   94   88   53   28   14    1
## 5   2243  2122  1917  1914  2032   50   93  103  136   69   19    3
## 6   3489  3497  3273  3184  2924  212  294  273  187  106   37    6
## 7   1201  1220  1179  1233  1171   56   77   82   55   40   15    4
## 8  28809 27942 25573 24417 24692 1078 1764 2030 1616  908  319   58
## 9   4585  4620  4259  4154  3960  182  351  274  223   91   39   10
## 10  2020  2018  1862  1843  1742   84  172  161  120   46   10    3
## 11  1162  1092   979  1031  1117   63   70   81   69   27   12    0
# quantos munic não têm nenhum nasc de mulh 20-24?

filter( D, Cr20 == 0)
##        X      id                       munic sigla          reg
## 1    346 1704600            Chapada de Areia    TO        Norte
## 2    398 1715507          Oliveira de Fátima    TO        Norte
## 3    794 2206308                 Miguel Leão    PI     Nordeste
## 4   1183 2410009                      Pilões    RN     Nordeste
## 5   1257 2501153           Areia de Baraúnas    PB     Nordeste
## 6   1375 2510659                      Parari    PB     Nordeste
## 7   1462 2517100                      Várzea    PB     Nordeste
## 8   1917 2907400                  Catolândia    BA     Nordeste
## 9   2255 3101300                      Alagoa    MG      Sudeste
## 10  2278 3103306                   Aracitaba    MG      Sudeste
## 11  2284 3103801                      Arapuá    MG      Sudeste
## 12  2302 3105509         Barão de Monte Alto    MG      Sudeste
## 13  2317 3107000                   Biquinhas    MG      Sudeste
## 14  2385 3113107                   Caranaíba    MG      Sudeste
## 15  2403 3114808                   Carvalhos    MG      Sudeste
## 16  2404 3114907                 Casa Grande    MG      Sudeste
## 17  2407 3115201 Conceição da Barra de Minas    MG      Sudeste
## 18  2446 3118502                  Consolação    MG      Sudeste
## 19  2459 3119807               Córrego Danta    MG      Sudeste
## 20  2504 3123502                Douradoquara    MG      Sudeste
## 21  2517 3124609               Estrela Dalva    MG      Sudeste
## 22  2536 3126406            Fortuna de Minas    MG      Sudeste
## 23  2552 3127370                   Goiabeira    MG      Sudeste
## 24  2559 3127909                    Grupiara    MG      Sudeste
## 25  2614 3132800       Itambé do Mato Dentro    MG      Sudeste
## 26  2652 3136108                    Joanésia    MG      Sudeste
## 27  2771 3145406                      Olaria    MG      Sudeste
## 28  2773 3145505             Olímpio Noronha    MG      Sudeste
## 29  2797 3147501                    Passabém    MG      Sudeste
## 30  2800 3147808                 Passa-Vinte    MG      Sudeste
## 31  2812 3148806               Pedra do Anta    MG      Sudeste
## 32  2820 3149507                     Pequeri    MG      Sudeste
## 33  2869 3153806                   Queluzito    MG      Sudeste
## 34  2876 3154408                 Ressaquinha    MG      Sudeste
## 35  2926 3158706         Santana do Garambéu    MG      Sudeste
## 36  2943 3160207     Santo Antônio do Itambé    MG      Sudeste
## 37  2969 3162302            São João da Mata    MG      Sudeste
## 38  3003 3164803  São Sebastião do Rio Preto    MG      Sudeste
## 39  3015 3165602              Senador Cortes    MG      Sudeste
## 40  3017 3165800          Senador José Bento    MG      Sudeste
## 41  3030 3167004                    Serranos    MG      Sudeste
## 42  3035 3167509               Simão Pereira    MG      Sudeste
## 43  3070 3170479             Uruana de Minas    MG      Sudeste
## 44  3083 3171105                   Veríssimo    MG      Sudeste
## 45  3084 3171154               Vermelho Novo    MG      Sudeste
## 46  3267 3500204                      Adolfo    SP      Sudeste
## 47  3275 3500808           Alfredo Marcondes    SP      Sudeste
## 48  3280 3501202            Álvares Florence    SP      Sudeste
## 49  3304 3503356                   Arco-Íris    SP      Sudeste
## 50  3311 3503950                     Aspásia    SP      Sudeste
## 51  3335 3506201              Bento de Abreu    SP      Sudeste
## 52  3347 3507209                        Borá    SP      Sudeste
## 53  3348 3507308                    Boracéia    SP      Sudeste
## 54  3423 3514205                Dolcinópolis    SP      Sudeste
## 55  3431 3514924                   Elisiário    SP      Sudeste
## 56  3432 3514957                     Embaúba    SP      Sudeste
## 57  3445 3515657                      Fernão    SP      Sudeste
## 58  3447 3515806                  Flora Rica    SP      Sudeste
## 59  3448 3515905                     Floreal    SP      Sudeste
## 60  3454 3516507            Gabriel Monteiro    SP      Sudeste
## 61  3470 3518008             Guarani d'Oeste    SP      Sudeste
## 62  3583 3528205                   Macedônia    SP      Sudeste
## 63  3590 3528858                   Marapoama    SP      Sudeste
## 64  3593 3529104                 Marinópolis    SP      Sudeste
## 65  3598 3529609                   Meridiano    SP      Sudeste
## 66  3636 3532868               Nova Castilho    SP      Sudeste
## 67  3669 3535903                   Paranapuã    SP      Sudeste
## 68  3677 3536570                 Paulistânia    SP      Sudeste
## 69  3716 3540309               Pontes Gestal    SP      Sudeste
## 70  3723 3540853                    Pracinha    SP      Sudeste
## 71  3727 3541109            Presidente Alves    SP      Sudeste
## 72  3755 3543600                     Rifaina    SP      Sudeste
## 73  3817 3549300      São João do Pau d'Alho    SP      Sudeste
## 74  3837 3551207                    Sarutaiá    SP      Sudeste
## 75  3875 3554607                     Timburi    SP      Sudeste
## 76  3885 3555307                   Turmalina    SP      Sudeste
## 77  3890 3555703              União Paulista    SP      Sudeste
## 78  3892 3555901                         Uru    SP      Sudeste
## 79  4007 4107124             Diamante do Sul    PR          Sul
## 80  4014 4107520              Esperança Nova    PR          Sul
## 81  4016 4107546      Espigão Alto do Iguaçu    PR          Sul
## 82  4023 4107801                      Floraí    PR          Sul
## 83  4041 4109005                   Guapirama    PR          Sul
## 84  4042 4109104                   Guaporema    PR          Sul
## 85  4085 4112603               Jardim Olinda    PR          Sul
## 86  4097 4113429                Lidianópolis    PR          Sul
## 87  4132 4116000                   Miraselva    PR          Sul
## 88  4136 4116307              Munhoz de Melo    PR          Sul
## 89  4182 4119657                Pitangueiras    PR          Sul
## 90  4197 4120655           Quarto Centenário    PR          Sul
## 91  4234 4123600                  Santa Inês    PR          Sul
## 92  4245 4124202      Santo Antônio do Caiuá    PR          Sul
## 93  4317 4200606                Águas Mornas    SC          Sul
## 94  4319 4200754             Alto Bela Vista    SC          Sul
## 95  4330 4201604               Arroio Trinta    SC          Sul
## 96  4331 4201653                    Arvoredo    SC          Sul
## 97  4340 4202099                Barra Bonita    SC          Sul
## 98  4343 4202156                    Belmonte    SC          Sul
## 99  4350 4202537                   Bom Jesus    SC          Sul
## 100 4351 4202578          Bom Jesus do Oeste    SC          Sul
## 101 4373 4204152                 Celso Ramos    SC          Sul
## 102 4375 4204194         Chapadão do Lageado    SC          Sul
## 103 4386 4204756                    Cunhataí    SC          Sul
## 104 4391 4205159             Doutor Pedrinho    SC          Sul
## 105 4393 4205191                        Ermo    SC          Sul
## 106 4396 4205357              Flor do Sertão    SC          Sul
## 107 4398 4205431              Formosa do Sul    SC          Sul
## 108 4402 4205605                      Galvão    SC          Sul
## 109 4416 4206801                     Ibicaré    SC          Sul
## 110 4424 4207577                      Iomerê    SC          Sul
## 111 4429 4207759                  Iraceminha    SC          Sul
## 112 4444 4208955                Jardinópolis    SC          Sul
## 113 4448 4209177                       Jupiá    SC          Sul
## 114 4452 4209458              Lajeado Grande    SC          Sul
## 115 4463 4210209               Major Gercino    SC          Sul
## 116 4467 4210555                      Marema    SC          Sul
## 117 4469 4210704                 Matos Costa    SC          Sul
## 118 4483 4211652              Novo Horizonte    SC          Sul
## 119 4487 4211850                  Ouro Verde    SC          Sul
## 120 4488 4211876                       Paial    SC          Sul
## 121 4507 4213153             Planalto Alegre    SC          Sul
## 122 4516 4213906  Presidente Castello Branco    SC          Sul
## 123 4518 4214102            Presidente Nereu    SC          Sul
## 124 4519 4214151                    Princesa    SC          Sul
## 125 4529 4215059                  Rio Rufino    SC          Sul
## 126 4538 4215554                Santa Helena    SC          Sul
## 127 4562 4217105                São Martinho    SC          Sul
## 128 4563 4217154     São Miguel da Boa Vista    SC          Sul
## 129 4565 4217253      São Pedro de Alcântara    SC          Sul
## 130 4575 4217956                   Tigrinhos    SC          Sul
## 131 4600 4219606                   Xavantina    SC          Sul
## 132 4609 4300455                     Alegria    RS          Sul
## 133 4610 4300471  Almirante Tamandaré do Sul    RS          Sul
## 134 4612 4300554                 Alto Alegre    RS          Sul
## 135 4613 4300570                  Alto Feliz    RS          Sul
## 136 4617 4300661              André da Rocha    RS          Sul
## 137 4620 4300851                    Arambaré    RS          Sul
## 138 4621 4300877                     Araricá    RS          Sul
## 139 4625 4301073             Arroio do Padre    RS          Sul
## 140 4631 4301552                       Áurea    RS          Sul
## 141 4641 4301925           Barra do Rio Azul    RS          Sul
## 142 4644 4302055    Benjamin Constant do Sul    RS          Sul
## 143 4646 4302154       Boa Vista das Missões    RS          Sul
## 144 4648 4302220        Boa Vista do Cadeado    RS          Sul
## 145 4650 4302253            Boa Vista do Sul    RS          Sul
## 146 4653 4302378               Bom Progresso    RS          Sul
## 147 4657 4302584                      Bozano    RS          Sul
## 148 4667 4303400                     Caiçara    RS          Sul
## 149 4669 4303558                     Camargo    RS          Sul
## 150 4683 4304614             Canudos do Vale    RS          Sul
## 151 4690 4304697                     Capitão    RS          Sul
## 152 4696 4304952                    Caseiros    RS          Sul
## 153 4714 4305603                    Colorado    RS          Sul
## 154 4717 4305835              Coqueiro Baixo    RS          Sul
## 155 4718 4305850            Coqueiros do Sul    RS          Sul
## 156 4721 4305934               Coronel Pilar    RS          Sul
## 157 4738 4306551      Dom Pedro de Alcântara    RS          Sul
## 158 4742 4306759              Doutor Ricardo    RS          Sul
## 159 4748 4306957           Entre Rios do Sul    RS          Sul
## 160 4753 4307203                Erval Grande    RS          Sul
## 161 4767 4308052                Faxinalzinho    RS          Sul
## 162 4771 4308250            Floriano Peixoto    RS          Sul
## 163 4773 4308409                 Formigueiro    RS          Sul
## 164 4789 4309258                     Guabiju    RS          Sul
## 165 4794 4309571                   Herveiras    RS          Sul
## 166 4805 4310306                    Ilópolis    RS          Sul
## 167 4807 4310363                   Imigrante    RS          Sul
## 168 4811 4310462             Ipiranga do Sul    RS          Sul
## 169 4817 4310652                       Itati    RS          Sul
## 170 4819 4310751                       Ivorá    RS          Sul
## 171 4821 4310850                  Jaboticaba    RS          Sul
## 172 4823 4310900                   Jacutinga    RS          Sul
## 173 4830 4311239         Lagoa Bonita do Sul    RS          Sul
## 174 4832 4311270       Lagoa dos Três Cantos    RS          Sul
## 175 4839 4311643                  Linha Nova    RS          Sul
## 176 4842 4311734                   Mampituba    RS          Sul
## 177 4845 4311791                      Maratá    RS          Sul
## 178 4849 4312005                Mariano Moro    RS          Sul
## 179 4852 4312138             Mato Castelhano    RS          Sul
## 180 4853 4312153                 Mato Leitão    RS          Sul
## 181 4858 4312351                    Montauri    RS          Sul
## 182 4860 4312385           Monte Belo do Sul    RS          Sul
## 183 4862 4312427                     Mormaço    RS          Sul
## 184 4865 4312476                Morro Reuter    RS          Sul
## 185 4869 4312625                   Muliterno    RS          Sul
## 186 4876 4312955              Nova Boa Vista    RS          Sul
## 187 4877 4313003                Nova Bréscia    RS          Sul
## 188 4878 4313011             Nova Candelária    RS          Sul
## 189 4881 4313086                  Nova Pádua    RS          Sul
## 190 4882 4313102                  Nova Palma    RS          Sul
## 191 4886 4313359            Nova Roma do Sul    RS          Sul
## 192 4890 4313425                Novo Machado    RS          Sul
## 193 4903 4314035                 Pareci Novo    RS          Sul
## 194 4912 4314308                    Pejuçara    RS          Sul
## 195 4915 4314456                      Pinhal    RS          Sul
## 196 4916 4314464             Pinhal da Serra    RS          Sul
## 197 4935 4315172              Protásio Alves    RS          Sul
## 198 4939 4315321                    Quevedos    RS          Sul
## 199 4940 4315354          Quinze de Novembro    RS          Sul
## 200 4942 4315453                     Relvado    RS          Sul
## 201 4950 4315958                     Rolador    RS          Sul
## 202 4956 4316428             Sagrada Família    RS          Sul
## 203 4959 4316477        Salvador das Missões    RS          Sul
## 204 4963 4316733        Santa Cecília do Sul    RS          Sul
## 205 4968 4316972      Santa Margarida do Sul    RS          Sul
## 206 4972 4317251                Santa Tereza    RS          Sul
## 207 4976 4317558      Santo Antônio do Palma    RS          Sul
## 208 4979 4317756   Santo Antônio do Planalto    RS          Sul
## 209 4982 4317954       Santo Expedito do Sul    RS          Sul
## 210 4990 4318432        São João do Polêsine    RS          Sul
## 211 4992 4318457        São José das Missões    RS          Sul
## 212 4995 4318499        São José do Inhacorá    RS          Sul
## 213 4998 4318614             São José do Sul    RS          Sul
## 214 4999 4318622       São José dos Ausentes    RS          Sul
## 215 5005 4319125       São Martinho da Serra    RS          Sul
## 216 5011 4319372          São Pedro do Butiá    RS          Sul
## 217 5016 4319711         São Valentim do Sul    RS          Sul
## 218 5018 4319752               São Vendelino    RS          Sul
## 219 5026 4320305                     Selbach    RS          Sul
## 220 5030 4320453                       Sério    RS          Sul
## 221 5052 4321493                      Toropi    RS          Sul
## 222 5056 4321634                Três Arroios    RS          Sul
## 223 5067 4322186              Tupanci do Sul    RS          Sul
## 224 5072 4322343                   Ubiretama    RS          Sul
## 225 5073 4322350              União da Serra    RS          Sul
## 226 5074 4322376                   Unistalda    RS          Sul
## 227 5088 4323200               Victor Graeff    RS          Sul
## 228 5094 4323606       Vista Alegre do Prata    RS          Sul
## 229 5095 4323705                Vista Gaúcha    RS          Sul
## 230 5096 4323754         Vitória das Missões    RS          Sul
## 231 5097 4323770                   Westfalia    RS          Sul
## 232 5187 5101209                  Araguainha    MT Centro-Oeste
## 233 5269 5106703                Ponte Branca    MT Centro-Oeste
## 234 5285 5107297            São José do Povo    MT Centro-Oeste
## 235 5326 5200506                    Aloândia    GO Centro-Oeste
## 236 5327 5200555              Alto Horizonte    GO Centro-Oeste
## 237 5334 5201207                  Anhanguera    GO Centro-Oeste
## 238 5337 5201454       Aparecida do Rio Doce    GO Centro-Oeste
## 239 5339 5201603                       Araçu    GO Centro-Oeste
## 240 5347 5203104                      Baliza    GO Centro-Oeste
## 241 5354 5203609                Brazabrantes    GO Centro-Oeste
## 242 5357 5203939             Buriti de Goiás    GO Centro-Oeste
## 243 5396 5207105                     Diorama    GO Centro-Oeste
## 244 5400 5207501            Estrela do Norte    GO Centro-Oeste
## 245 5442 5211602                   Ivolândia    GO Centro-Oeste
## 246 5450 5212253                 Lagoa Santa    GO Centro-Oeste
## 247 5462 5213400                     Moiporá    GO Centro-Oeste
## 248 5477 5214804                 Nova Aurora    GO Centro-Oeste
## 249 5497 5216452                  Perolândia    GO Centro-Oeste
## 250 5554 5221577                    Uirapuru    GO Centro-Oeste
##                                 meso                      micro Mu15 Mu20
## 1             Ocidental do Tocantins                Rio Formoso    6    4
## 2             Ocidental do Tocantins                Rio Formoso    4    4
## 3             Centro-Norte Piauiense                   Teresina    6    6
## 4                     Oeste Potiguar             Pau dos Ferros   17   16
## 5                   Sertão Paraibano                      Patos   12    9
## 6                          Borborema           Cariri Ocidental    6    4
## 7                          Borborema Seridó Ocidental Paraibano   10   11
## 8               Extremo Oeste Baiano                  Barreiras   12    9
## 9              Sul/Sudoeste de Minas               São Lourenço   12    8
## 10                      Zona da Mata               Juiz de Fora    9    6
## 11  Triângulo Mineiro/Alto Paranaíba             Patos de Minas   12    7
## 12                      Zona da Mata                     Muriaé   31   21
## 13                   Central Mineira                Três Marias   13    9
## 14               Campo das Vertentes                  Barbacena   15   13
## 15             Sul/Sudoeste de Minas                Andrelândia   22   18
## 16   Metropolitana de Belo Horizonte       Conselheiro Lafaiete    9    8
## 17               Campo das Vertentes           São João Del Rei   17   17
## 18             Sul/Sudoeste de Minas                    Itajubá    8    6
## 19                    Oeste de Minas                       Piuí   13   12
## 20  Triângulo Mineiro/Alto Paranaíba                 Patrocínio    7    7
## 21                      Zona da Mata                 Cataguases   13    9
## 22   Metropolitana de Belo Horizonte                Sete Lagoas   13   11
## 23                  Vale do Rio Doce                    Aimorés   15   13
## 24  Triângulo Mineiro/Alto Paranaíba                 Patrocínio    5    7
## 25   Metropolitana de Belo Horizonte   Conceição do Mato Dentro   11    7
## 26                  Vale do Rio Doce                   Ipatinga   24   18
## 27                      Zona da Mata               Juiz de Fora    8    5
## 28             Sul/Sudoeste de Minas               São Lourenço   11    9
## 29   Metropolitana de Belo Horizonte   Conceição do Mato Dentro   10    8
## 30             Sul/Sudoeste de Minas                Andrelândia   11    6
## 31                      Zona da Mata                     Viçosa   17   13
## 32                      Zona da Mata               Juiz de Fora   15   12
## 33   Metropolitana de Belo Horizonte       Conselheiro Lafaiete    9    6
## 34               Campo das Vertentes                  Barbacena   24   17
## 35               Campo das Vertentes           São João Del Rei    9   10
## 36   Metropolitana de Belo Horizonte   Conceição do Mato Dentro   24   17
## 37             Sul/Sudoeste de Minas      Santa Rita do Sapucaí   12   12
## 38   Metropolitana de Belo Horizonte   Conceição do Mato Dentro    6    5
## 39                      Zona da Mata               Juiz de Fora   11    8
## 40             Sul/Sudoeste de Minas               Pouso Alegre    7    4
## 41             Sul/Sudoeste de Minas                Andrelândia   10    8
## 42                      Zona da Mata               Juiz de Fora   12   10
## 43                 Noroeste de Minas                       Unaí   19    9
## 44  Triângulo Mineiro/Alto Paranaíba                    Uberaba   16   13
## 45                      Zona da Mata                 Ponte Nova   23   18
## 46             São José do Rio Preto      São José do Rio Preto   15   15
## 47               Presidente Prudente        Presidente Prudente   14   15
## 48             São José do Rio Preto                Votuporanga   15   13
## 49                           Marília                       Tupã    8    8
## 50             São José do Rio Preto                      Jales    9    7
## 51                         Araçatuba                  Araçatuba   12   10
## 52                             Assis                      Assis    3    2
## 53                             Bauru                        Jaú   20   18
## 54             São José do Rio Preto                      Jales    8    7
## 55             São José do Rio Preto                  Catanduva   12   13
## 56             São José do Rio Preto                  Catanduva   10   10
## 57                           Marília                    Marília    5    7
## 58               Presidente Prudente                 Adamantina    7    7
## 59             São José do Rio Preto                  Auriflama   12   10
## 60                         Araçatuba                    Birigui   10    9
## 61             São José do Rio Preto              Fernandópolis    8    7
## 62             São José do Rio Preto              Fernandópolis   15   12
## 63             São José do Rio Preto             Novo Horizonte   10   11
## 64             São José do Rio Preto                      Jales   10    8
## 65             São José do Rio Preto              Fernandópolis   16   16
## 66             São José do Rio Preto                  Auriflama    5    4
## 67             São José do Rio Preto                      Jales   16   14
## 68                             Bauru                      Bauru    7    6
## 69             São José do Rio Preto                Votuporanga   11    9
## 70               Presidente Prudente                 Adamantina    8    6
## 71                             Bauru                      Bauru   17   18
## 72                    Ribeirão Preto                     Franca   15   11
## 73               Presidente Prudente                    Dracena    8    7
## 74                             Assis                   Ourinhos   17   14
## 75                             Assis                   Ourinhos   11   10
## 76             São José do Rio Preto              Fernandópolis   10    6
## 77             São José do Rio Preto                  Nhandeara    6    6
## 78                             Bauru                      Bauru    5    5
## 79                  Oeste Paranaense                   Cascavel   17   14
## 80               Noroeste Paranaense                   Umuarama    9    5
## 81             Centro-Sul Paranaense                 Guarapuava   24   17
## 82          Norte Central Paranaense                     Floraí   25   19
## 83         Norte Pioneiro Paranaense             Wenceslau Braz   21   17
## 84               Noroeste Paranaense                   Cianorte   12    8
## 85               Noroeste Paranaense                  Paranavaí    7    5
## 86          Norte Central Paranaense                   Ivaiporã   20   14
## 87          Norte Central Paranaense                   Porecatu    8    7
## 88          Norte Central Paranaense                    Astorga   19   13
## 89          Norte Central Paranaense                   Londrina   13   11
## 90       Centro Ocidental Paranaense                    Goioerê   26   22
## 91          Norte Central Paranaense                    Astorga    8    6
## 92               Noroeste Paranaense                  Paranavaí   12   11
## 93              Grande Florianópolis                  Tabuleiro   29   26
## 94                 Oeste Catarinense                  Concórdia    8    6
## 95                 Oeste Catarinense                    Joaçaba   16   13
## 96                 Oeste Catarinense                  Concórdia   10    9
## 97                 Oeste Catarinense        São Miguel do Oeste   10    5
## 98                 Oeste Catarinense        São Miguel do Oeste   13    9
## 99                 Oeste Catarinense                    Xanxerê   15   10
## 100                Oeste Catarinense                    Chapecó    9    8
## 101                          Serrana            Campos de Lages   13   11
## 102                   Vale do Itajaí                 Ituporanga   14   10
## 103                Oeste Catarinense                    Chapecó    9    6
## 104                   Vale do Itajaí                   Blumenau   16   14
## 105                  Sul Catarinense                  Araranguá   10    7
## 106                Oeste Catarinense                    Chapecó    7    5
## 107                Oeste Catarinense                    Chapecó   15    9
## 108                Oeste Catarinense                    Xanxerê   18   14
## 109                Oeste Catarinense                    Joaçaba   12   11
## 110                Oeste Catarinense                    Joaçaba   12   10
## 111                Oeste Catarinense                    Chapecó   19   13
## 112                Oeste Catarinense                    Chapecó    9    6
## 113                Oeste Catarinense                    Xanxerê   10    7
## 114                Oeste Catarinense                    Xanxerê    8    6
## 115             Grande Florianópolis                    Tijucas   16   14
## 116                Oeste Catarinense                    Xanxerê   11    6
## 117                Oeste Catarinense                    Joaçaba   15   10
## 118                Oeste Catarinense                    Chapecó   11    6
## 119                Oeste Catarinense                    Xanxerê   11   10
## 120                Oeste Catarinense                  Concórdia    8    5
## 121                Oeste Catarinense                    Chapecó   12   10
## 122                Oeste Catarinense                  Concórdia    8    5
## 123                   Vale do Itajaí                 Rio do Sul   11    9
## 124                Oeste Catarinense        São Miguel do Oeste   15   13
## 125                          Serrana            Campos de Lages   13    8
## 126                Oeste Catarinense        São Miguel do Oeste   11   10
## 127                  Sul Catarinense                    Tubarão   14   13
## 128                Oeste Catarinense                    Chapecó    9    6
## 129             Grande Florianópolis              Florianópolis   15   13
## 130                Oeste Catarinense                    Chapecó    9    6
## 131                Oeste Catarinense                  Concórdia   17   16
## 132           Noroeste Rio-grandense                       Ijuí   17   12
## 133           Noroeste Rio-grandense                  Carazinho    8    7
## 134           Noroeste Rio-grandense                  Cruz Alta    8    6
## 135    Metropolitana de Porto Alegre                 Montenegro   12   10
## 136           Nordeste Rio-grandense                    Guaporé    4    4
## 137    Metropolitana de Porto Alegre                    Camaquã   13   13
## 138    Metropolitana de Porto Alegre               Porto Alegre   19   21
## 139            Sudeste Rio-grandense                    Pelotas   11    9
## 140           Noroeste Rio-grandense                    Erechim   13   11
## 141           Noroeste Rio-grandense                    Erechim    8    7
## 142           Noroeste Rio-grandense                    Erechim   13    8
## 143           Noroeste Rio-grandense                  Carazinho   11    8
## 144           Noroeste Rio-grandense                  Cruz Alta   10    8
## 145           Nordeste Rio-grandense              Caxias do Sul    9    7
## 146           Noroeste Rio-grandense                Três Passos   11    8
## 147           Noroeste Rio-grandense                       Ijuí    8    9
## 148           Noroeste Rio-grandense       Frederico Westphalen   24   18
## 149           Noroeste Rio-grandense                Passo Fundo   12    9
## 150    Centro Oriental Rio-grandense            Lajeado-Estrela    6    6
## 151    Centro Oriental Rio-grandense            Lajeado-Estrela   11    8
## 152           Noroeste Rio-grandense                Passo Fundo   11    9
## 153           Noroeste Rio-grandense               Não-Me-Toque   15   14
## 154    Centro Oriental Rio-grandense            Lajeado-Estrela    5    2
## 155           Noroeste Rio-grandense                  Carazinho    9    7
## 156           Nordeste Rio-grandense              Caxias do Sul    4    4
## 157    Metropolitana de Porto Alegre                     Osório   11    8
## 158    Centro Oriental Rio-grandense            Lajeado-Estrela   10    7
## 159           Noroeste Rio-grandense                    Erechim   14   10
## 160           Noroeste Rio-grandense                    Erechim   25   21
## 161           Noroeste Rio-grandense                    Erechim   13    8
## 162           Noroeste Rio-grandense                    Erechim    7    5
## 163   Centro Ocidental Rio-grandense              Restinga Seca   31   24
## 164           Nordeste Rio-grandense                    Guaporé    8    5
## 165    Centro Oriental Rio-grandense          Santa Cruz do Sul   15   10
## 166           Nordeste Rio-grandense                    Guaporé   21   15
## 167    Centro Oriental Rio-grandense            Lajeado-Estrela   10   10
## 168           Noroeste Rio-grandense                    Erechim    9    7
## 169    Metropolitana de Porto Alegre                     Osório    9    7
## 170   Centro Ocidental Rio-grandense              Restinga Seca    9    8
## 171           Noroeste Rio-grandense                  Carazinho   18   12
## 172           Noroeste Rio-grandense                    Erechim   19   12
## 173    Centro Oriental Rio-grandense          Santa Cruz do Sul   12    7
## 174           Noroeste Rio-grandense               Não-Me-Toque    6    6
## 175    Metropolitana de Porto Alegre                 Montenegro    6    6
## 176    Metropolitana de Porto Alegre                     Osório   13   12
## 177    Metropolitana de Porto Alegre                 Montenegro   11    6
## 178           Noroeste Rio-grandense                    Erechim    9    7
## 179           Noroeste Rio-grandense                Passo Fundo    8    9
## 180    Centro Oriental Rio-grandense          Santa Cruz do Sul   14   17
## 181           Nordeste Rio-grandense                    Guaporé    5    5
## 182           Nordeste Rio-grandense              Caxias do Sul   10   10
## 183           Noroeste Rio-grandense                   Soledade   11   10
## 184    Metropolitana de Porto Alegre             Gramado-Canela   23   23
## 185           Noroeste Rio-grandense                Passo Fundo    9    8
## 186           Noroeste Rio-grandense                  Carazinho    8    7
## 187    Centro Oriental Rio-grandense            Lajeado-Estrela   13   10
## 188           Noroeste Rio-grandense                Três Passos   13    8
## 189           Nordeste Rio-grandense              Caxias do Sul    9    8
## 190   Centro Ocidental Rio-grandense              Restinga Seca   28   27
## 191           Nordeste Rio-grandense              Caxias do Sul   15    8
## 192           Noroeste Rio-grandense                 Santa Rosa   16   10
## 193    Metropolitana de Porto Alegre                 Montenegro   15   15
## 194           Noroeste Rio-grandense                       Ijuí   19   15
## 195           Noroeste Rio-grandense                  Carazinho   13   10
## 196           Nordeste Rio-grandense                    Vacaria   10    7
## 197           Nordeste Rio-grandense                    Guaporé    7    6
## 198   Centro Ocidental Rio-grandense                   Santiago   13   10
## 199           Noroeste Rio-grandense                  Cruz Alta   15   13
## 200    Centro Oriental Rio-grandense            Lajeado-Estrela    8    6
## 201           Noroeste Rio-grandense               Santo Ângelo   11    6
## 202           Noroeste Rio-grandense                  Carazinho   12    8
## 203           Noroeste Rio-grandense                Cerro Largo   10    8
## 204           Noroeste Rio-grandense                Passo Fundo    7    5
## 205           Sudoeste Rio-grandense           Campanha Central    9    7
## 206           Nordeste Rio-grandense              Caxias do Sul    5    6
## 207           Noroeste Rio-grandense                Passo Fundo   11    8
## 208           Noroeste Rio-grandense                  Carazinho    7    8
## 209           Noroeste Rio-grandense                  Sananduva   10    8
## 210   Centro Ocidental Rio-grandense              Restinga Seca   13   10
## 211           Noroeste Rio-grandense                  Carazinho   12    6
## 212           Noroeste Rio-grandense                 Santa Rosa   10    8
## 213    Metropolitana de Porto Alegre                 Montenegro    8    8
## 214           Nordeste Rio-grandense                    Vacaria   17   13
## 215   Centro Ocidental Rio-grandense                Santa Maria   14    8
## 216           Noroeste Rio-grandense                Cerro Largo   13   10
## 217           Nordeste Rio-grandense                    Guaporé    8    7
## 218    Metropolitana de Porto Alegre                 Montenegro   10    7
## 219           Noroeste Rio-grandense               Não-Me-Toque   19   20
## 220    Centro Oriental Rio-grandense            Lajeado-Estrela   10    6
## 221   Centro Ocidental Rio-grandense                Santa Maria   11   10
## 222           Noroeste Rio-grandense                    Erechim   12    8
## 223           Noroeste Rio-grandense                  Sananduva    6    4
## 224           Noroeste Rio-grandense               Santo Ângelo    9    6
## 225           Nordeste Rio-grandense                    Guaporé    5    4
## 226   Centro Ocidental Rio-grandense                   Santiago   11    7
## 227           Noroeste Rio-grandense               Não-Me-Toque   13   10
## 228           Nordeste Rio-grandense                    Guaporé    5    4
## 229           Noroeste Rio-grandense                Três Passos   12   10
## 230           Noroeste Rio-grandense               Santo Ângelo   13    9
## 231    Centro Oriental Rio-grandense            Lajeado-Estrela   10   10
## 232           Sudeste Mato-grossense                    Tesouro    4    2
## 233           Sudeste Mato-grossense                    Tesouro   10    5
## 234           Sudeste Mato-grossense               Rondonópolis   15   12
## 235                       Sul Goiano                 Meia Ponte    8    6
## 236                     Norte Goiano                  Porangatu   21   23
## 237                       Sul Goiano                    Catalão    4    3
## 238                       Sul Goiano          Sudoeste de Goiás   12   10
## 239                    Centro Goiano                   Anápolis   18   11
## 240                  Noroeste Goiano                  Aragarças   18   13
## 241                    Centro Goiano                   Anápolis   15   13
## 242                    Centro Goiano                    Anicuns   11   10
## 243                  Noroeste Goiano                  Aragarças   11   10
## 244                     Norte Goiano                  Porangatu   15   13
## 245                    Centro Goiano                      Iporá   11    9
## 246                       Sul Goiano               Quirinópolis    5    5
## 247                    Centro Goiano                      Iporá    6    5
## 248                       Sul Goiano                    Catalão    7    8
## 249                       Sul Goiano          Sudoeste de Goiás   15   10
## 250                  Noroeste Goiano     São Miguel do Araguaia   12    9
##     Mu25 Mu30 Mu35 Mu40 Mu45 Cr15 Cr20 Cr25 Cr30 Cr35 Cr40 Cr45
## 1      5    6    4    5    3    0    0    0    1    0    0    0
## 2      5    5    3    3    1    0    0    1    0    0    0    0
## 3      6    5    5    3    4    0    0    1    0    0    0    0
## 4     16   15   10   11   12    2    0    1    0    1    0    0
## 5      8    7    6    7    6    1    0    1    0    0    0    0
## 6      5    3    5    4    5    0    0    1    0    0    0    0
## 7     11    8    9    9    8    1    0    1    1    0    0    0
## 8     13    9    8    7    6    1    0    0    1    0    0    0
## 9      8    8    7   11   12    0    0    1    1    1    0    0
## 10     6    7    6   10    8    0    0    0    0    0    1    0
## 11     9   10   13   12   10    0    0    0    0    0    0    0
## 12    19   19   20   20   21    1    0    2    0    0    0    0
## 13     9    8   10   10   12    0    0    1    0    1    0    0
## 14    12   12   13   13   12    0    0    2    0    0    0    0
## 15    13   15   16   18   21    0    0    1    1    1    0    0
## 16     9   10    9    9    8    0    0    1    1    0    0    0
## 17    15   16   15   16   13    1    0    1    1    0    1    0
## 18     5    6    5    6    6    0    0    0    0    0    0    0
## 19    11   10   13   11   14    1    0    1    1    0    0    0
## 20     6    7    7    8    7    0    0    1    0    0    0    0
## 21     9    7   10    9    8    1    0    0    0    0    0    0
## 22    10   11   11    8    9    1    0    1    1    0    0    0
## 23    12   12   12   11   10    2    0    2    0    0    0    0
## 24     5    4    5    5    5    0    0    0    0    1    0    0
## 25     6    7    7    9    8    1    0    1    0    0    0    0
## 26    18   20   18   18   18    2    0    3    1    1    1    0
## 27     7    7    8    7    8    1    0    0    1    0    0    0
## 28     9   10    9    9    9    0    0    1    0    0    0    0
## 29     6    5    6    5    5    0    0    1    0    0    0    0
## 30     7    8    7    9    8    0    0    0    1    0    1    0
## 31    10   13   12   11   11    0    0    1    0    1    1    0
## 32    13   11   10   13   11    1    0    2    1    0    1    0
## 33     4    7    7    8    6    0    0    0    1    0    0    0
## 34    17   18   19   19   16    2    0    0    0    1    0    0
## 35     8   10    8    7    6    0    0    0    1    0    0    0
## 36    15   13   11   12   11    1    0    1    1    0    1    0
## 37    11    7   11   11   11    0    0    1    1    0    0    0
## 38     5    6    7    6    6    0    0    0    0    0    0    0
## 39     7    7    8    7    7    0    0    1    1    0    0    0
## 40     5    7    7    7    7    0    0    0    0    0    0    0
## 41     9    7    7    6    8    1    0    1    0    0    0    0
## 42     9   12    8   11   10    0    0    1    0    1    0    0
## 43    12   13   11   11   10    2    0    0    1    0    1    0
## 44    11   12   14   12   10    1    0    0    1    0    0    0
## 45    19   21   17   14   14    0    0    2    1    0    0    0
## 46    14   12   13   15   14    0    0    1    0    1    0    0
## 47    13   14   13   15   15    0    0    2    0    1    0    0
## 48    12   12   14   17   17    0    0    1    1    0    0    0
## 49     8    7    6    8    6    0    0    0    0    0    0    0
## 50     5    5    7    8    7    0    0    0    1    0    0    0
## 51    11   11   12   10    8    1    0    2    0    1    0    0
## 52     4    4    2    3    4    0    0    0    0    0    0    0
## 53    17   16   16   15   15    2    0    2    0    1    0    0
## 54     6    9    9    7    8    0    0    0    1    0    0    0
## 55    13   14   12    9   10    0    0    1    0    0    0    0
## 56    11    9    8   10    9    0    0    1    0    0    0    0
## 57     6    5    6    6    5    0    0    0    0    0    0    0
## 58     6    5    6    8    7    0    0    1    0    0    0    0
## 59     9   10   12   12   14    1    0    1    0    0    0    0
## 60    10    9   12   12   12    0    0    1    1    0    0    0
## 61     8    7    7    9    9    0    0    1    0    0    0    0
## 62    15   14   13   15   14    0    0    2    0    0    0    0
## 63    12    9   12   10   10    1    0    1    1    1    0    0
## 64     8    8   10    9    7    0    0    1    0    0    0    0
## 65    15   16   15   14   16    0    0    1    1    0    1    0
## 66     5    4    6    5    3    1    0    1    0    0    0    0
## 67    14   15   15   15   12    1    0    1    0    0    0    0
## 68     7    7    7    7    5    0    0    0    0    0    0    0
## 69     9   10    8   10   11    1    0    0    0    0    0    0
## 70     6    6    6    5    4    0    0    0    1    0    0    0
## 71    17   17   16   14   15    1    0    2    1    0    1    0
## 72    14   15   12   14   12    2    0    0    1    0    0    0
## 73     7    7    8    8    7    0    0    0    0    0    0    0
## 74    14   11   14   13   11    1    0    2    0    1    0    0
## 75     7    9    8   10   11    1    0    1    0    0    0    0
## 76     5    5    8    8   10    0    0    0    0    0    0    0
## 77     7    7    6    5    5    0    0    1    0    0    0    0
## 78     6    5    4    4    6    0    0    1    0    0    0    0
## 79    12   13   12   12   12    1    0    1    0    1    0    0
## 80     7    7    9    8    7    0    0    1    0    0    0    0
## 81    14   15   16   15   15    3    0    1    0    1    0    0
## 82    17   17   20   22   20    0    0    1    1    0    1    0
## 83    13   14   14   18   14    1    0    1    1    1    0    0
## 84     9    8    7    9    8    0    0    1    0    1    0    0
## 85     6    5    6    7    6    0    0    1    0    0    0    0
## 86    12   12   17   18   14    1    0    2    2    0    0    0
## 87     8    7    7    7    5    0    0    1    0    0    0    0
## 88    12   11   15   15   15    0    0    0    0    0    0    0
## 89     9   11   12   12    9    0    0    1    1    1    0    0
## 90    16   18   22   22   17    2    0    1    1    0    0    0
## 91     6    7    7    8    8    0    0    0    0    0    0    0
## 92     9   11    9   12   11    1    0    2    0    1    0    0
## 93    19   19   21   23   20    1    0    1    1    0    0    0
## 94     6    6    7    8    8    0    0    1    0    0    0    0
## 95    12   13   13   14   15    0    0    2    1    1    0    0
## 96     7    7    7    8    9    1    0    1    1    0    0    0
## 97     5    5    8    6    6    1    0    0    0    0    0    0
## 98     8   10    9   10   10    1    0    1    0    0    0    0
## 99    10   10    8   10   10    0    0    1    0    0    0    0
## 100    7    7    8    8    7    0    0    1    1    1    0    0
## 101   10    8   10   11   10    0    0    2    1    0    0    0
## 102   11   10    9   11    8    1    0    0    1    0    1    0
## 103    6    6    6    8    8    0    0    1    1    0    0    0
## 104   13   12   14   17   10    1    0    2    0    0    1    0
## 105    8    7    8    6    7    1    0    1    1    1    0    0
## 106    5    5    6    5    6    1    0    0    0    1    0    0
## 107    8   10    9    9   10    1    0    1    1    0    0    0
## 108   14   11   13   13   14    1    0    1    1    1    0    0
## 109   12   11   10   11   13    0    0    2    1    0    0    0
## 110   10    9   10   11   11    0    0    1    0    0    0    0
## 111   13   15   15   16   17    1    0    1    1    0    0    0
## 112    6    5    5    8    8    0    0    0    1    0    0    0
## 113    6    8    8    9    8    1    0    1    1    0    0    0
## 114    5    5    5    6    6    0    0    0    1    0    0    0
## 115   13   10   12   10   12    1    0    1    1    0    0    0
## 116    8    7    8   10    9    0    0    1    0    0    0    0
## 117   11    9   10   10    8    2    0    1    1    0    0    0
## 118    8    8    9   11   11    0    0    1    1    1    1    0
## 119    9    8    9    9    8    0    0    1    0    0    0    0
## 120    5    6    6    5    6    0    0    1    0    0    0    0
## 121    9    7    9   10   12    0    0    0    0    0    0    0
## 122    6    5    7    7    6    0    0    1    0    0    0    0
## 123    8    6    8    9    8    0    0    1    0    0    0    0
## 124   10   10    8    8   10    0    0    0    1    1    0    0
## 125    8    8    9   10    8    1    0    0    1    0    1    0
## 126    7    7    8    9   10    1    0    0    0    0    0    0
## 127   11    9   12   11   12    0    0    1    0    1    0    0
## 128    5    5    6    6    9    0    0    0    0    0    0    0
## 129   14   13    9   16   13    0    0    1    1    0    0    0
## 130    5    5    6    5    8    0    0    0    1    0    0    0
## 131   14   16   12   15   17    1    0    1    1    1    0    0
## 132   11   11   13   14   21    0    0    0    1    1    0    0
## 133    8    8    7    9    6    0    0    0    1    0    0    0
## 134    6    5    5    9    8    0    0    1    1    0    0    0
## 135   11   10   12   13   11    0    0    1    1    0    0    0
## 136    3    4    3    4    5    0    0    0    1    0    0    0
## 137   11   10   14   12   16    0    0    0    1    0    0    0
## 138   21   19   16   20   18    0    0    2    1    0    1    0
## 139   10   10   10    6    9    0    0    2    0    0    0    0
## 140   11   13   14   14   15    1    0    0    0    0    1    0
## 141    5    7    5    7    9    0    0    1    1    0    0    0
## 142    8    5    6    7    9    0    0    1    1    0    0    0
## 143    8    8    7    8   10    0    0    0    1    0    0    0
## 144    9    9    7   12    8    1    0    0    0    0    1    0
## 145    9    8   11   10   11    0    0    1    1    1    0    0
## 146    7    6    8    8   10    0    0    1    0    0    0    0
## 147    6    8    8    8    8    0    0    0    1    0    0    0
## 148   14   16   15   18   18    2    0    1    0    0    0    0
## 149    9    8   10   12   10    1    0    0    1    1    0    0
## 150    6    6    6    7    6    0    0    1    0    0    0    0
## 151   10    8    8    8    9    0    0    1    0    1    0    0
## 152    9   10   11   14   10    1    0    0    1    0    0    0
## 153   10   11   12   16   15    0    0    1    1    0    0    0
## 154    4    4    4    5    5    0    0    0    1    0    0    0
## 155    6    7    9    9   10    0    0    0    1    1    0    0
## 156    5    4    5    6    6    0    0    0    1    0    0    0
## 157    8    9    7   11   10    0    0    2    0    0    0    0
## 158    5    6    7    8    7    1    0    0    1    0    0    0
## 159    9    9   10   13   11    1    0    0    0    0    0    0
## 160   16   14   16   18   21    2    0    1    1    1    1    0
## 161    8    8    9    9   10    0    0    0    0    0    0    0
## 162    6    5    5    6    9    0    0    0    1    0    0    0
## 163   22   19   22   25   26    0    0    2    3    2    0    0
## 164    3    5    6    5    8    0    0    1    0    0    0    0
## 165   11   11   11    9   10    1    0    2    1    1    0    0
## 166   15   14   14   14   15    1    0    1    2    0    0    0
## 167   11    9   10   11    9    0    0    1    0    1    0    0
## 168    6    6    7   10    8    0    0    1    0    1    0    0
## 169    9    7    9    9   11    0    0    1    0    0    0    0
## 170    6    7    6    5    8    0    0    1    0    0    0    0
## 171   14   12   17   15   16    1    0    1    0    1    1    0
## 172   13   11   11   16   15    1    0    1    1    1    1    0
## 173   10    8   10   10    9    1    0    2    1    0    0    0
## 174    6    5    5    6    7    0    0    0    0    0    0    0
## 175    6    5    5    6    6    0    0    0    0    1    0    0
## 176   11    9    8   11   13    1    0    0    0    0    0    0
## 177    9    8    9    8   10    0    0    1    0    0    0    0
## 178    7    7    7    8   11    0    0    1    1    0    0    0
## 179    8    8    9    8   10    0    0    1    1    1    0    0
## 180   15   15   15   14   16    0    0    0    1    0    0    0
## 181    4    3    6    5    6    0    0    0    0    0    0    0
## 182    9    6    8    9   10    0    0    1    0    1    0    0
## 183    9   10   10   10   11    0    0    1    2    0    0    0
## 184   23   24   25   22   24    0    0    1    1    0    0    0
## 185    7    4    6    6    8    0    0    0    0    0    0    0
## 186    7    5    7    7   10    0    0    1    0    0    0    0
## 187    9   10   11   10   11    0    0    0    1    0    0    0
## 188    9   10    9    9   12    0    0    0    1    0    0    0
## 189    8    7    6    9   11    0    0    1    1    0    0    0
## 190   26   20   18   23   24    1    0    2    2    1    0    0
## 191   12   11   11   16   13    0    0    1    1    0    0    0
## 192   10   11   13   16   17    0    0    0    0    1    0    0
## 193   13   13   12   13   15    0    0    0    0    0    0    0
## 194   12   15   13   15   17    2    0    1    1    0    0    0
## 195    9    8   10   10   11    0    0    2    1    1    0    0
## 196    6    8    5    7    8    0    0    2    1    0    0    0
## 197    5    6    6   10    7    0    0    0    0    0    0    0
## 198    9   10    9    9   10    0    0    2    0    0    0    0
## 199   12   13   12   13   14    0    0    1    1    1    0    0
## 200    6    5    7    7    8    0    0    1    1    1    1    0
## 201    8    6    8    9   10    0    0    1    0    0    0    0
## 202   10    8    8   10   10    0    0    0    1    0    1    0
## 203    8    8    8   13   12    1    0    1    0    0    0    0
## 204    4    6    7    7    6    0    0    0    1    1    0    0
## 205    6    7    9    9    7    1    0    0    0    0    0    0
## 206    5    5    4    6    6    0    0    0    1    0    0    0
## 207    7    7    7    7    8    0    0    1    1    0    0    0
## 208    7    7    6    9    9    0    0    0    0    0    0    0
## 209    6    6    9   10   10    0    0    1    0    0    0    0
## 210   10    7    7    9   11    1    0    0    0    0    0    0
## 211   10    7    9   11   10    0    0    1    0    1    0    0
## 212    6    8    7    7    9    1    0    0    0    0    0    0
## 213    7    6    7    6    7    0    0    1    1    0    0    0
## 214   12   11   11   13   13    2    0    1    1    1    0    0
## 215   12    9   12   10   10    1    0    1    0    1    0    0
## 216   10    8   10   10   12    0    0    1    0    1    0    0
## 217    9    5    6    8    8    0    0    1    0    0    0    0
## 218    7    9    7    9    8    0    0    0    1    1    0    0
## 219   18   14   17   21   24    0    0    2    1    2    0    0
## 220    6    7    7    8    9    0    0    1    1    1    0    0
## 221    9   10   11   10    9    1    0    0    0    1    0    0
## 222    8    8   10   12   14    0    0    1    0    0    0    0
## 223    3    4    6    7    7    0    0    0    0    0    0    0
## 224    6    8    8   11    9    0    0    0    0    1    0    0
## 225    3    2    4    5    5    0    0    0    0    0    0    0
## 226    8    7    8    9   10    0    0    1    1    1    0    0
## 227   10   10   10   14   10    0    0    2    0    1    0    0
## 228    4    5    4    6    6    0    0    0    0    0    0    0
## 229    9    9   10   11   13    2    0    1    1    0    0    0
## 230    9   11   13   11   14    0    0    0    2    1    0    0
## 231   11    9    9   11   10    0    0    1    1    0    0    0
## 232    4    5    5    6    3    0    0    0    0    0    0    0
## 233    6    8    5    6    7    1    0    0    1    0    0    0
## 234   11   12   14   12   12    0    0    0    0    0    0    0
## 235    6    7   10    8    7    0    0    1    0    0    0    0
## 236   20   19   22   16   11    1    0    1    0    0    0    0
## 237    4    4    4    4    3    1    0    0    0    0    0    0
## 238   10    9   10   10    7    1    0    1    0    0    0    0
## 239   12   17   16   16   14    1    0    0    0    1    0    0
## 240   11   13   15   14   12    1    0    1    0    0    0    0
## 241   12   13   12   15   10    1    0    2    0    0    0    0
## 242   11    9   10   12   11    1    0    1    0    0    0    0
## 243    9    9   11   10   10    1    0    1    0    1    0    0
## 244   11   12   15   13   12    0    0    2    0    0    0    0
## 245    9   10   11   11   10    1    0    0    0    0    0    0
## 246    5    6    4    5    6    0    0    0    0    0    0    0
## 247    6    7    6    7    8    0    0    1    0    0    0    0
## 248    8    9    7    7    7    0    0    1    1    0    0    0
## 249   13   13   11   10   11    1    0    2    1    0    0    0
## 250   10   12   12   11   10    1    0    0    0    0    0    0
Assis = filter(D, micro == 'Assis')

#####################################3
# SELECT

select(Assis, munic, sigla, Mu20, Cr20)
##                    munic sigla Mu20 Cr20
## 1                  Assis    SP  433   24
## 2                   Borá    SP    2    0
## 3  Campos Novos Paulista    SP   16    2
## 4           Cândido Mota    SP  137   15
## 5               Cruzália    SP    9    1
## 6               Florínia    SP   10    1
## 7              Ibirarema    SP   25    1
## 8                   Iepê    SP   31    4
## 9                Lutécia    SP   12    2
## 10               Maracaí    SP   61    5
## 11                Nantes    SP   13    2
## 12              Palmital    SP   86    6
## 13    Paraguaçu Paulista    SP  179   21
## 14    Pedrinhas Paulista    SP   13    1
## 15               Platina    SP   12    1
## 16                 Quatá    SP   55    4
## 17                Tarumã    SP   63    6
x = select(Assis, munic, sigla, Mu20, Cr20)

select(x, -sigla)
##                    munic Mu20 Cr20
## 1                  Assis  433   24
## 2                   Borá    2    0
## 3  Campos Novos Paulista   16    2
## 4           Cândido Mota  137   15
## 5               Cruzália    9    1
## 6               Florínia   10    1
## 7              Ibirarema   25    1
## 8                   Iepê   31    4
## 9                Lutécia   12    2
## 10               Maracaí   61    5
## 11                Nantes   13    2
## 12              Palmital   86    6
## 13    Paraguaçu Paulista  179   21
## 14    Pedrinhas Paulista   13    1
## 15               Platina   12    1
## 16                 Quatá   55    4
## 17                Tarumã   63    6
############################################
# MUTATE

mutate(Assis,  f20 = Cr20/Mu20)
##       X      id                 munic sigla     reg  meso micro Mu15 Mu20
## 1  3312 3504008                 Assis    SP Sudeste Assis Assis  390  433
## 2  3347 3507209                  Borá    SP Sudeste Assis Assis    3    2
## 3  3377 3509809 Campos Novos Paulista    SP Sudeste Assis Assis   19   16
## 4  3380 3510005          Cândido Mota    SP Sudeste Assis Assis  131  137
## 5  3413 3513306              Cruzália    SP Sudeste Assis Assis   10    9
## 6  3450 3516101              Florínia    SP Sudeste Assis Assis   13   10
## 7  3489 3519501             Ibirarema    SP Sudeste Assis Assis   33   25
## 8  3493 3519907                  Iepê    SP Sudeste Assis Assis   36   31
## 9  3580 3527900               Lutécia    SP Sudeste Assis Assis   13   12
## 10 3589 3528809               Maracaí    SP Sudeste Assis Assis   57   61
## 11 3626 3532157                Nantes    SP Sudeste Assis Assis   12   13
## 12 3663 3535309              Palmital    SP Sudeste Assis Assis   84   86
## 13 3665 3535507    Paraguaçu Paulista    SP Sudeste Assis Assis  191  179
## 14 3684 3537156    Pedrinhas Paulista    SP Sudeste Assis Assis   12   13
## 15 3709 3539707               Platina    SP Sudeste Assis Assis   12   12
## 16 3734 3541703                 Quatá    SP Sudeste Assis Assis   59   55
## 17 3868 3553955                Tarumã    SP Sudeste Assis Assis   59   63
##    Mu25 Mu30 Mu35 Mu40 Mu45 Cr15 Cr20 Cr25 Cr30 Cr35 Cr40 Cr45        f20
## 1   400  402  367  381  370    7   24   37   28   14    4    0 0.05542725
## 2     4    4    2    3    4    0    0    0    0    0    0    0 0.00000000
## 3    18   16   16   17   15    3    2    1    1    0    0    0 0.12500000
## 4   118  116  112  119  113   11   15   14    5    7    0    0 0.10948905
## 5     7    9    8   10   11    0    1    0    1    0    0    0 0.11111111
## 6    11   11   10   11   11    0    1    1    0    0    0    0 0.10000000
## 7    27   26   23   29   22    1    1    2    3    1    0    0 0.04000000
## 8    29   29   27   30   29    4    4    1    2    1    0    0 0.12903226
## 9    11   10    9   11    9    0    2    0    0    0    0    0 0.16666667
## 10   58   53   50   52   48    2    5    5    3    1    0    0 0.08196721
## 11   10   11   12   11    7    1    2    1    1    0    0    0 0.15384615
## 12   82   84   80   78   80    2    6   11    6    0    0    3 0.06976744
## 13  173  164  164  156  147    7   21   15    6    3    1    0 0.11731844
## 14   10   12   12   12   12    0    1    1    1    1    0    0 0.07692308
## 15   13   14   12   11   10    1    1    1    1    1    0    0 0.08333333
## 16   54   56   50   49   42    7    4    6    3    2    0    0 0.07272727
## 17   56   53   57   49   48    4    6    5    4    2    0    0 0.09523810
#########################################
# PIPE

D = read.csv(url, stringsAsFactors=FALSE) %>% 
  filter(sigla=='RJ') %>%
  select(munic, sigla, Mu20, Cr20) %>%
  mutate(f20 = Cr20 / Mu20)

################################################
# group_by e summarize

D = read.csv( url, stringsAsFactors=FALSE) %>%
  group_by(reg) %>%
  summarize( M = sum(Mu20),  C = sum(Cr20))

# quantas mulheres 15-49, por estado?

D = read.csv( url, stringsAsFactors=FALSE) %>%
  group_by(sigla) %>%
  summarize( M = sum(Mu15+Mu20+Mu25+Mu30+Mu35+Mu40+Mu45) ) %>%
  data.frame


D
##    sigla       M
## 1     AC   20630
## 2     AL   91199
## 3     AM   98480
## 4     AP   19605
## 5     BA  412540
## 6     CE  249569
## 7     DF   84207
## 8     ES  104263
## 9     GO  181463
## 10    MA  185347
## 11    MG  570315
## 12    MS   71627
## 13    MT   89937
## 14    PA  215981
## 15    PB  109312
## 16    PE  261348
## 17    PI   90119
## 18    PR  306758
## 19    RJ  468001
## 20    RN   94274
## 21    RO   46435
## 22    RR   12774
## 23    RS  302166
## 24    SC  185691
## 25    SE   62433
## 26    SP 1228418
## 27    TO   39505
########################################
# ARRANGE

D = read.csv( url, stringsAsFactors=FALSE) %>%
  group_by(sigla) %>%
  summarize( M = sum(Mu15+Mu20+Mu25+Mu30+Mu35+Mu40+Mu45) ) %>%
  data.frame %>%
  arrange(M)

D
##    sigla       M
## 1     RR   12774
## 2     AP   19605
## 3     AC   20630
## 4     TO   39505
## 5     RO   46435
## 6     SE   62433
## 7     MS   71627
## 8     DF   84207
## 9     MT   89937
## 10    PI   90119
## 11    AL   91199
## 12    RN   94274
## 13    AM   98480
## 14    ES  104263
## 15    PB  109312
## 16    GO  181463
## 17    MA  185347
## 18    SC  185691
## 19    PA  215981
## 20    CE  249569
## 21    PE  261348
## 22    RS  302166
## 23    PR  306758
## 24    BA  412540
## 25    RJ  468001
## 26    MG  570315
## 27    SP 1228418
D = read.csv( url, stringsAsFactors=FALSE) %>%
  group_by(sigla) %>%
  summarize( M = sum(Mu15+Mu20+Mu25+Mu30+Mu35+Mu40+Mu45) ) %>%
  data.frame %>%
  arrange(-M)

D
##    sigla       M
## 1     SP 1228418
## 2     MG  570315
## 3     RJ  468001
## 4     BA  412540
## 5     PR  306758
## 6     RS  302166
## 7     PE  261348
## 8     CE  249569
## 9     PA  215981
## 10    SC  185691
## 11    MA  185347
## 12    GO  181463
## 13    PB  109312
## 14    ES  104263
## 15    AM   98480
## 16    RN   94274
## 17    AL   91199
## 18    PI   90119
## 19    MT   89937
## 20    DF   84207
## 21    MS   71627
## 22    SE   62433
## 23    RO   46435
## 24    TO   39505
## 25    AC   20630
## 26    AP   19605
## 27    RR   12774
######################################################################
# Análise Bayesiana para um estado: f20
#
# a priori           theta ~ Beta(17, 180 )
# verossimilhança :  Cr20  ~ Binomial( Mu20, theta)

theta = seq(0, .50,  .001)
densidade.a.priori = dbeta( theta , 17, 180)

######################################################################
# Pará
PA = read.csv(url, stringsAsFactors=FALSE) %>% 
  filter(sigla=='PA') %>%
  select(munic, sigla, Mu20, Cr20) %>%
  mutate(f20 = Cr20 / Mu20)

graphics.off()
windows(record=TRUE)

for (i in 1:nrow(PA)) {
  plot( theta, densidade.a.priori, type='l', col='red',  main=PA$munic[i], 
        ylim=c(0,35))
  
  lines( theta, dbeta(theta, 17+PA$Cr20[i], 180+PA$Mu20[i] - PA$Cr20[i] ),
         col='seagreen', lwd=3)
  
  abline( v= PA$f20[i])
  
}