praticas_ integrativas.ipynb

{
 "cells": [
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "A saúde pública no Brasil é sempre alvo de debates e preocupações. Qual o tamanho de rede de saúde pública? E quantos médicos? Há verba? Quais os atendimentos que o SUS oferece e aonde estão? "
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 1,
   "metadata": {},
   "outputs": [
    {
     "name": "stderr",
     "output_type": "stream",
     "text": [
      "\n",
      "Attaching package: 'dplyr'\n",
      "\n",
      "The following objects are masked from 'package:stats':\n",
      "\n",
      "    filter, lag\n",
      "\n",
      "The following objects are masked from 'package:base':\n",
      "\n",
      "    intersect, setdiff, setequal, union\n",
      "\n"
     ]
    }
   ],
   "source": [
    "library(dplyr)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 2,
   "metadata": {},
   "outputs": [],
   "source": [
    "library(rmarkdown)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 3,
   "metadata": {},
   "outputs": [
    {
     "name": "stderr",
     "output_type": "stream",
     "text": [
      "Warning message:\n",
      "\"unable to access index for repository http://www.stats.ox.ac.uk/pub/RWin/bin/windows/contrib/3.5:\n",
      "  não foi possível abrir a URL 'http://www.stats.ox.ac.uk/pub/RWin/bin/windows/contrib/3.5/PACKAGES'\""
     ]
    },
    {
     "name": "stdout",
     "output_type": "stream",
     "text": [
      "package 'rworldmap' successfully unpacked and MD5 sums checked\n",
      "\n",
      "The downloaded binary packages are in\n",
      "\tC:\\Users\\Rosangela\\AppData\\Local\\Temp\\RtmpERSwut\\downloaded_packages\n"
     ]
    }
   ],
   "source": [
    "install.packages('rworldmap')"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 4,
   "metadata": {},
   "outputs": [
    {
     "name": "stderr",
     "output_type": "stream",
     "text": [
      "Loading required package: sp\n",
      "### Welcome to rworldmap ###\n",
      "For a short introduction type : \t vignette('rworldmap')\n"
     ]
    }
   ],
   "source": [
    "library(rworldmap)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 5,
   "metadata": {},
   "outputs": [
    {
     "name": "stderr",
     "output_type": "stream",
     "text": [
      "-- Attaching packages --------------------------------------- tidyverse 1.2.1 --\n",
      "v ggplot2 3.0.0     v readr   1.1.1\n",
      "v tibble  1.4.2     v purrr   0.2.5\n",
      "v tidyr   0.8.1     v stringr 1.3.1\n",
      "v ggplot2 3.0.0     v forcats 0.3.0\n",
      "-- Conflicts ------------------------------------------ tidyverse_conflicts() --\n",
      "x dplyr::filter() masks stats::filter()\n",
      "x dplyr::lag()    masks stats::lag()\n"
     ]
    }
   ],
   "source": [
    "library(tidyverse)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 10,
   "metadata": {},
   "outputs": [],
   "source": [
    "#carregar dados do Brasil, estados, municípios, população referente aos últimos 20 anos. Os cálculos levam em conta natalidade, \n",
    "#mortalidade e migração populacional.\n",
    "\n",
    "brasil <- read.csv2('brazil-population-1998-2017.csv', header = TRUE, encoding='utf8')  "
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 11,
   "metadata": {},
   "outputs": [
    {
     "data": {
      "text/html": [
       "<table>\n",
       "<thead><tr><th scope=col>code</th><th scope=col>city</th><th scope=col>state</th><th scope=col>abbreviation</th><th scope=col>region</th><th scope=col>lat</th><th scope=col>long</th><th scope=col>year</th><th scope=col>population</th></tr></thead>\n",
       "<tbody>\n",
       "\t<tr><td>110001               </td><td>Alta Floresta D'Oeste</td><td>RondÃ´nia            </td><td>RO                   </td><td>NORTE                </td><td>-11.9283             </td><td>-61.9953             </td><td>2014                 </td><td>25652                </td></tr>\n",
       "\t<tr><td>110001               </td><td>Alta Floresta D'Oeste</td><td>RondÃ´nia            </td><td>RO                   </td><td>NORTE                </td><td>-11.9283             </td><td>-61.9953             </td><td>2015                 </td><td>25578                </td></tr>\n",
       "\t<tr><td>110001               </td><td>Alta Floresta D'Oeste</td><td>RondÃ´nia            </td><td>RO                   </td><td>NORTE                </td><td>-11.9283             </td><td>-61.9953             </td><td>2011                 </td><td>24228                </td></tr>\n",
       "\t<tr><td>110001               </td><td>Alta Floresta D'Oeste</td><td>RondÃ´nia            </td><td>RO                   </td><td>NORTE                </td><td>-11.9283             </td><td>-61.9953             </td><td>2009                 </td><td>24354                </td></tr>\n",
       "\t<tr><td>110001               </td><td>Alta Floresta D'Oeste</td><td>RondÃ´nia            </td><td>RO                   </td><td>NORTE                </td><td>-11.9283             </td><td>-61.9953             </td><td>2006                 </td><td>29005                </td></tr>\n",
       "\t<tr><td>110001               </td><td>Alta Floresta D'Oeste</td><td>RondÃ´nia            </td><td>RO                   </td><td>NORTE                </td><td>-11.9283             </td><td>-61.9953             </td><td>2016                 </td><td>25506                </td></tr>\n",
       "</tbody>\n",
       "</table>\n"
      ],
      "text/latex": [
       "\\begin{tabular}{r|lllllllll}\n",
       " code & city & state & abbreviation & region & lat & long & year & population\\\\\n",
       "\\hline\n",
       "\t 110001                & Alta Floresta D'Oeste & RondÃ´nia             & RO                    & NORTE                 & -11.9283              & -61.9953              & 2014                  & 25652                \\\\\n",
       "\t 110001                & Alta Floresta D'Oeste & RondÃ´nia             & RO                    & NORTE                 & -11.9283              & -61.9953              & 2015                  & 25578                \\\\\n",
       "\t 110001                & Alta Floresta D'Oeste & RondÃ´nia             & RO                    & NORTE                 & -11.9283              & -61.9953              & 2011                  & 24228                \\\\\n",
       "\t 110001                & Alta Floresta D'Oeste & RondÃ´nia             & RO                    & NORTE                 & -11.9283              & -61.9953              & 2009                  & 24354                \\\\\n",
       "\t 110001                & Alta Floresta D'Oeste & RondÃ´nia             & RO                    & NORTE                 & -11.9283              & -61.9953              & 2006                  & 29005                \\\\\n",
       "\t 110001                & Alta Floresta D'Oeste & RondÃ´nia             & RO                    & NORTE                 & -11.9283              & -61.9953              & 2016                  & 25506                \\\\\n",
       "\\end{tabular}\n"
      ],
      "text/markdown": [
       "\n",
       "code | city | state | abbreviation | region | lat | long | year | population | \n",
       "|---|---|---|---|---|---|\n",
       "| 110001                | Alta Floresta D'Oeste | RondÃ´nia             | RO                    | NORTE                 | -11.9283              | -61.9953              | 2014                  | 25652                 | \n",
       "| 110001                | Alta Floresta D'Oeste | RondÃ´nia             | RO                    | NORTE                 | -11.9283              | -61.9953              | 2015                  | 25578                 | \n",
       "| 110001                | Alta Floresta D'Oeste | RondÃ´nia             | RO                    | NORTE                 | -11.9283              | -61.9953              | 2011                  | 24228                 | \n",
       "| 110001                | Alta Floresta D'Oeste | RondÃ´nia             | RO                    | NORTE                 | -11.9283              | -61.9953              | 2009                  | 24354                 | \n",
       "| 110001                | Alta Floresta D'Oeste | RondÃ´nia             | RO                    | NORTE                 | -11.9283              | -61.9953              | 2006                  | 29005                 | \n",
       "| 110001                | Alta Floresta D'Oeste | RondÃ´nia             | RO                    | NORTE                 | -11.9283              | -61.9953              | 2016                  | 25506                 | \n",
       "\n",
       "\n"
      ],
      "text/plain": [
       "  code   city                  state     abbreviation region lat      long    \n",
       "1 110001 Alta Floresta D'Oeste RondÃ´nia RO           NORTE  -11.9283 -61.9953\n",
       "2 110001 Alta Floresta D'Oeste RondÃ´nia RO           NORTE  -11.9283 -61.9953\n",
       "3 110001 Alta Floresta D'Oeste RondÃ´nia RO           NORTE  -11.9283 -61.9953\n",
       "4 110001 Alta Floresta D'Oeste RondÃ´nia RO           NORTE  -11.9283 -61.9953\n",
       "5 110001 Alta Floresta D'Oeste RondÃ´nia RO           NORTE  -11.9283 -61.9953\n",
       "6 110001 Alta Floresta D'Oeste RondÃ´nia RO           NORTE  -11.9283 -61.9953\n",
       "  year population\n",
       "1 2014 25652     \n",
       "2 2015 25578     \n",
       "3 2011 24228     \n",
       "4 2009 24354     \n",
       "5 2006 29005     \n",
       "6 2016 25506     "
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "head(brasil)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 10,
   "metadata": {},
   "outputs": [],
   "source": [
    "#codificacao <- locale(encoding = \"ASCII\")"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 11,
   "metadata": {},
   "outputs": [],
   "source": [
    "#brasil <- read_csv2('brazil-population-1998-2017.csv', locale = codificacao)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 12,
   "metadata": {},
   "outputs": [],
   "source": [
    "brasil <- brasil %>%\n",
    "  filter(year == 2017) %>%\n",
    "  select(code, city, state, region, population) %>%\n",
    "  distinct()"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 13,
   "metadata": {},
   "outputs": [
    {
     "data": {
      "text/html": [
       "<table>\n",
       "<thead><tr><th scope=col>code</th><th scope=col>city</th><th scope=col>state</th><th scope=col>region</th><th scope=col>population</th></tr></thead>\n",
       "<tbody>\n",
       "\t<tr><td>110001               </td><td>Alta Floresta D'Oeste</td><td>RondÃ´nia            </td><td>NORTE                </td><td> 25437               </td></tr>\n",
       "\t<tr><td>110002               </td><td>Ariquemes            </td><td>RondÃ´nia            </td><td>NORTE                </td><td>107345               </td></tr>\n",
       "\t<tr><td>110003               </td><td>Cabixi               </td><td>RondÃ´nia            </td><td>NORTE                </td><td>  6224               </td></tr>\n",
       "\t<tr><td>110004               </td><td>Cacoal               </td><td>RondÃ´nia            </td><td>NORTE                </td><td> 88507               </td></tr>\n",
       "\t<tr><td>110005               </td><td>Cerejeiras           </td><td>RondÃ´nia            </td><td>NORTE                </td><td> 17934               </td></tr>\n",
       "\t<tr><td>110006               </td><td>Colorado do Oeste    </td><td>RondÃ´nia            </td><td>NORTE                </td><td> 18467               </td></tr>\n",
       "</tbody>\n",
       "</table>\n"
      ],
      "text/latex": [
       "\\begin{tabular}{r|lllll}\n",
       " code & city & state & region & population\\\\\n",
       "\\hline\n",
       "\t 110001                & Alta Floresta D'Oeste & RondÃ´nia             & NORTE                 &  25437               \\\\\n",
       "\t 110002                & Ariquemes             & RondÃ´nia             & NORTE                 & 107345               \\\\\n",
       "\t 110003                & Cabixi                & RondÃ´nia             & NORTE                 &   6224               \\\\\n",
       "\t 110004                & Cacoal                & RondÃ´nia             & NORTE                 &  88507               \\\\\n",
       "\t 110005                & Cerejeiras            & RondÃ´nia             & NORTE                 &  17934               \\\\\n",
       "\t 110006                & Colorado do Oeste     & RondÃ´nia             & NORTE                 &  18467               \\\\\n",
       "\\end{tabular}\n"
      ],
      "text/markdown": [
       "\n",
       "code | city | state | region | population | \n",
       "|---|---|---|---|---|---|\n",
       "| 110001                | Alta Floresta D'Oeste | RondÃ´nia             | NORTE                 |  25437                | \n",
       "| 110002                | Ariquemes             | RondÃ´nia             | NORTE                 | 107345                | \n",
       "| 110003                | Cabixi                | RondÃ´nia             | NORTE                 |   6224                | \n",
       "| 110004                | Cacoal                | RondÃ´nia             | NORTE                 |  88507                | \n",
       "| 110005                | Cerejeiras            | RondÃ´nia             | NORTE                 |  17934                | \n",
       "| 110006                | Colorado do Oeste     | RondÃ´nia             | NORTE                 |  18467                | \n",
       "\n",
       "\n"
      ],
      "text/plain": [
       "  code   city                  state     region population\n",
       "1 110001 Alta Floresta D'Oeste RondÃ´nia NORTE   25437    \n",
       "2 110002 Ariquemes             RondÃ´nia NORTE  107345    \n",
       "3 110003 Cabixi                RondÃ´nia NORTE    6224    \n",
       "4 110004 Cacoal                RondÃ´nia NORTE   88507    \n",
       "5 110005 Cerejeiras            RondÃ´nia NORTE   17934    \n",
       "6 110006 Colorado do Oeste     RondÃ´nia NORTE   18467    "
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "head(brasil)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 15,
   "metadata": {},
   "outputs": [],
   "source": [
    "write.csv2(brasil, 'brasil-2017.csv', row.names = FALSE)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 16,
   "metadata": {},
   "outputs": [],
   "source": [
    "# estabelecimentos de saúde\n",
    "estabelecimentos <- read.csv2('tbEstabelecimento201809.csv', head=T, sep=';', dec=',', na='')"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 17,
   "metadata": {
    "scrolled": false
   },
   "outputs": [
    {
     "data": {
      "text/html": [
       "<table>\n",
       "<thead><tr><th scope=col>CO_UNIDADE</th><th scope=col>CO_CNES</th><th scope=col>NU_CNPJ_MANTENEDORA</th><th scope=col>TP_PFPJ</th><th scope=col>NIVEL_DEP</th><th scope=col>NO_RAZAO_SOCIAL</th><th scope=col>NO_FANTASIA</th><th scope=col>NO_LOGRADOURO</th><th scope=col>NU_ENDERECO</th><th scope=col>NO_COMPLEMENTO</th><th scope=col>...</th><th scope=col>TO_CHAR.DT_ATU_GEO..DD.MM.YYYY..</th><th scope=col>NO_USUARIO_GEO</th><th scope=col>CO_NATUREZA_JUR</th><th scope=col>TP_ESTAB_SEMPRE_ABERTO</th><th scope=col>ST_GERACREDITO_GERENTE_SGIF</th><th scope=col>ST_CONEXAO_INTERNET</th><th scope=col>CO_TIPO_UNIDADE</th><th scope=col>NO_FANTASIA_ABREV</th><th scope=col>TP_GESTAO</th><th scope=col>TO_CHAR.DT_ATUALIZACAO_ORIGEM..DD.MM.YYYY..</th></tr></thead>\n",
       "<tbody>\n",
       "\t<tr><td>2928707453280                                    </td><td>7453280                                          </td><td>1.382548e+13                                     </td><td>3                                                </td><td>3                                                </td><td>PREFEITURA MUNICIPAL DE SANTO ANTONIO DE JESUS   </td><td>POSTO DE SAUDE MINA DO SAPE                      </td><td>COMUNIDADE MINA DO SAPE                          </td><td>S/N                                              </td><td>CASA                                             </td><td>...                                              </td><td>NA                                               </td><td>NA                                               </td><td>1244                                             </td><td>NA                                               </td><td>NA                                               </td><td>N                                                </td><td>NA                                               </td><td>NA                                               </td><td>M                                                </td><td>03/04/2014                                       </td></tr>\n",
       "\t<tr><td>2301307450184                                    </td><td>7450184                                          </td><td>7.539984e+12                                     </td><td>3                                                </td><td>3                                                </td><td>PREFEITURA MUNICIPAL DE SAUDE                    </td><td>ACADEMIA DA SAUDE DE ARARIPE                     </td><td>AV ELISIO ALVES DE ALENCAR                       </td><td>S/N                                              </td><td>NA                                               </td><td>...                                              </td><td>04/09/2018                                       </td><td>0130ARA                                          </td><td>1244                                             </td><td>N                                                </td><td>NA                                               </td><td>S                                                </td><td>NA                                               </td><td>NA                                               </td><td>M                                                </td><td>02/04/2014                                       </td></tr>\n",
       "\t<tr><td>2307307462956                                    </td><td>7462956                                          </td><td>          NA                                     </td><td>1                                                </td><td>1                                                </td><td>CONSULTORIO DE PSICOLOGIA FLAVIA GONCALVES MACEDO</td><td>CONSULTORIO DE PSICOLOGIA FLAVIA GONCALVES MACEDO</td><td>RUA DA CONCEICAO                                 </td><td>818                                              </td><td>NA                                               </td><td>...                                              </td><td>27/12/2017                                       </td><td>GORETTI                                          </td><td>4000                                             </td><td>N                                                </td><td>NA                                               </td><td>S                                                </td><td>NA                                               </td><td>NA                                               </td><td>M                                                </td><td>02/04/2014                                       </td></tr>\n",
       "\t<tr><td>2313407462476                                    </td><td>7462476                                          </td><td>7.735178e+12                                     </td><td>3                                                </td><td>3                                                </td><td>PREFEITURA MUNICIPAL DE TIANGUA                  </td><td>U B S DA FAMILIA VALDO DOURADO NUNES             </td><td>SITIO ITAGUARUNA                                 </td><td>S/N                                              </td><td>NA                                               </td><td>...                                              </td><td>NA                                               </td><td>NA                                               </td><td>1244                                             </td><td>N                                                </td><td>NA                                               </td><td>N                                                </td><td>NA                                               </td><td>NA                                               </td><td>M                                                </td><td>02/04/2014                                       </td></tr>\n",
       "\t<tr><td>2510107416490                                    </td><td>7416490                                          </td><td>8.739625e+12                                     </td><td>3                                                </td><td>3                                                </td><td>PREFEITURA MUNICIPAL DE NOVA FLORESTA            </td><td>NUCLEO DE APOIO A SAUDE DA FAMILIA NASF 2        </td><td>RUA BENEDITO MARINHO                             </td><td>S/N                                              </td><td>NA                                               </td><td>...                                              </td><td>16/01/2018                                       </td><td>FCES                                             </td><td>1244                                             </td><td>N                                                </td><td>NA                                               </td><td>S                                                </td><td>NA                                               </td><td>NA                                               </td><td>M                                                </td><td>02/04/2014                                       </td></tr>\n",
       "\t<tr><td>2515937462123                                    </td><td>7462123                                          </td><td>1.612771e+12                                     </td><td>3                                                </td><td>3                                                </td><td>PREFEITURA MUNICIPAL DE SERTAOZINHO              </td><td>AMIGO DO PEITO DE SERTAOZINHO PB                 </td><td>RUA DIRSON ANDRADE                               </td><td>103                                              </td><td>NA                                               </td><td>...                                              </td><td>NA                                               </td><td>NA                                               </td><td>1244                                             </td><td>N                                                </td><td>NA                                               </td><td>N                                                </td><td>NA                                               </td><td>NA                                               </td><td>M                                                </td><td>02/04/2014                                       </td></tr>\n",
       "</tbody>\n",
       "</table>\n"
      ],
      "text/latex": [
       "\\begin{tabular}{r|lllllllllllllllllllllllllllllllllllllllllllllllllll}\n",
       " CO\\_UNIDADE & CO\\_CNES & NU\\_CNPJ\\_MANTENEDORA & TP\\_PFPJ & NIVEL\\_DEP & NO\\_RAZAO\\_SOCIAL & NO\\_FANTASIA & NO\\_LOGRADOURO & NU\\_ENDERECO & NO\\_COMPLEMENTO & ... & TO\\_CHAR.DT\\_ATU\\_GEO..DD.MM.YYYY.. & NO\\_USUARIO\\_GEO & CO\\_NATUREZA\\_JUR & TP\\_ESTAB\\_SEMPRE\\_ABERTO & ST\\_GERACREDITO\\_GERENTE\\_SGIF & ST\\_CONEXAO\\_INTERNET & CO\\_TIPO\\_UNIDADE & NO\\_FANTASIA\\_ABREV & TP\\_GESTAO & TO\\_CHAR.DT\\_ATUALIZACAO\\_ORIGEM..DD.MM.YYYY..\\\\\n",
       "\\hline\n",
       "\t 2928707453280                                     & 7453280                                           & 1.382548e+13                                      & 3                                                 & 3                                                 & PREFEITURA MUNICIPAL DE SANTO ANTONIO DE JESUS    & POSTO DE SAUDE MINA DO SAPE                       & COMUNIDADE MINA DO SAPE                           & S/N                                               & CASA                                              & ...                                               & NA                                                & NA                                                & 1244                                              & NA                                                & NA                                                & N                                                 & NA                                                & NA                                                & M                                                 & 03/04/2014                                       \\\\\n",
       "\t 2301307450184                                     & 7450184                                           & 7.539984e+12                                      & 3                                                 & 3                                                 & PREFEITURA MUNICIPAL DE SAUDE                     & ACADEMIA DA SAUDE DE ARARIPE                      & AV ELISIO ALVES DE ALENCAR                        & S/N                                               & NA                                                & ...                                               & 04/09/2018                                        & 0130ARA                                           & 1244                                              & N                                                 & NA                                                & S                                                 & NA                                                & NA                                                & M                                                 & 02/04/2014                                       \\\\\n",
       "\t 2307307462956                                     & 7462956                                           &           NA                                      & 1                                                 & 1                                                 & CONSULTORIO DE PSICOLOGIA FLAVIA GONCALVES MACEDO & CONSULTORIO DE PSICOLOGIA FLAVIA GONCALVES MACEDO & RUA DA CONCEICAO                                  & 818                                               & NA                                                & ...                                               & 27/12/2017                                        & GORETTI                                           & 4000                                              & N                                                 & NA                                                & S                                                 & NA                                                & NA                                                & M                                                 & 02/04/2014                                       \\\\\n",
       "\t 2313407462476                                     & 7462476                                           & 7.735178e+12                                      & 3                                                 & 3                                                 & PREFEITURA MUNICIPAL DE TIANGUA                   & U B S DA FAMILIA VALDO DOURADO NUNES              & SITIO ITAGUARUNA                                  & S/N                                               & NA                                                & ...                                               & NA                                                & NA                                                & 1244                                              & N                                                 & NA                                                & N                                                 & NA                                                & NA                                                & M                                                 & 02/04/2014                                       \\\\\n",
       "\t 2510107416490                                     & 7416490                                           & 8.739625e+12                                      & 3                                                 & 3                                                 & PREFEITURA MUNICIPAL DE NOVA FLORESTA             & NUCLEO DE APOIO A SAUDE DA FAMILIA NASF 2         & RUA BENEDITO MARINHO                              & S/N                                               & NA                                                & ...                                               & 16/01/2018                                        & FCES                                              & 1244                                              & N                                                 & NA                                                & S                                                 & NA                                                & NA                                                & M                                                 & 02/04/2014                                       \\\\\n",
       "\t 2515937462123                                     & 7462123                                           & 1.612771e+12                                      & 3                                                 & 3                                                 & PREFEITURA MUNICIPAL DE SERTAOZINHO               & AMIGO DO PEITO DE SERTAOZINHO PB                  & RUA DIRSON ANDRADE                                & 103                                               & NA                                                & ...                                               & NA                                                & NA                                                & 1244                                              & N                                                 & NA                                                & N                                                 & NA                                                & NA                                                & M                                                 & 02/04/2014                                       \\\\\n",
       "\\end{tabular}\n"
      ],
      "text/markdown": [
       "\n",
       "CO_UNIDADE | CO_CNES | NU_CNPJ_MANTENEDORA | TP_PFPJ | NIVEL_DEP | NO_RAZAO_SOCIAL | NO_FANTASIA | NO_LOGRADOURO | NU_ENDERECO | NO_COMPLEMENTO | ... | TO_CHAR.DT_ATU_GEO..DD.MM.YYYY.. | NO_USUARIO_GEO | CO_NATUREZA_JUR | TP_ESTAB_SEMPRE_ABERTO | ST_GERACREDITO_GERENTE_SGIF | ST_CONEXAO_INTERNET | CO_TIPO_UNIDADE | NO_FANTASIA_ABREV | TP_GESTAO | TO_CHAR.DT_ATUALIZACAO_ORIGEM..DD.MM.YYYY.. | \n",
       "|---|---|---|---|---|---|\n",
       "| 2928707453280                                     | 7453280                                           | 1.382548e+13                                      | 3                                                 | 3                                                 | PREFEITURA MUNICIPAL DE SANTO ANTONIO DE JESUS    | POSTO DE SAUDE MINA DO SAPE                       | COMUNIDADE MINA DO SAPE                           | S/N                                               | CASA                                              | ...                                               | NA                                                | NA                                                | 1244                                              | NA                                                | NA                                                | N                                                 | NA                                                | NA                                                | M                                                 | 03/04/2014                                        | \n",
       "| 2301307450184                                     | 7450184                                           | 7.539984e+12                                      | 3                                                 | 3                                                 | PREFEITURA MUNICIPAL DE SAUDE                     | ACADEMIA DA SAUDE DE ARARIPE                      | AV ELISIO ALVES DE ALENCAR                        | S/N                                               | NA                                                | ...                                               | 04/09/2018                                        | 0130ARA                                           | 1244                                              | N                                                 | NA                                                | S                                                 | NA                                                | NA                                                | M                                                 | 02/04/2014                                        | \n",
       "| 2307307462956                                     | 7462956                                           |           NA                                      | 1                                                 | 1                                                 | CONSULTORIO DE PSICOLOGIA FLAVIA GONCALVES MACEDO | CONSULTORIO DE PSICOLOGIA FLAVIA GONCALVES MACEDO | RUA DA CONCEICAO                                  | 818                                               | NA                                                | ...                                               | 27/12/2017                                        | GORETTI                                           | 4000                                              | N                                                 | NA                                                | S                                                 | NA                                                | NA                                                | M                                                 | 02/04/2014                                        | \n",
       "| 2313407462476                                     | 7462476                                           | 7.735178e+12                                      | 3                                                 | 3                                                 | PREFEITURA MUNICIPAL DE TIANGUA                   | U B S DA FAMILIA VALDO DOURADO NUNES              | SITIO ITAGUARUNA                                  | S/N                                               | NA                                                | ...                                               | NA                                                | NA                                                | 1244                                              | N                                                 | NA                                                | N                                                 | NA                                                | NA                                                | M                                                 | 02/04/2014                                        | \n",
       "| 2510107416490                                     | 7416490                                           | 8.739625e+12                                      | 3                                                 | 3                                                 | PREFEITURA MUNICIPAL DE NOVA FLORESTA             | NUCLEO DE APOIO A SAUDE DA FAMILIA NASF 2         | RUA BENEDITO MARINHO                              | S/N                                               | NA                                                | ...                                               | 16/01/2018                                        | FCES                                              | 1244                                              | N                                                 | NA                                                | S                                                 | NA                                                | NA                                                | M                                                 | 02/04/2014                                        | \n",
       "| 2515937462123                                     | 7462123                                           | 1.612771e+12                                      | 3                                                 | 3                                                 | PREFEITURA MUNICIPAL DE SERTAOZINHO               | AMIGO DO PEITO DE SERTAOZINHO PB                  | RUA DIRSON ANDRADE                                | 103                                               | NA                                                | ...                                               | NA                                                | NA                                                | 1244                                              | N                                                 | NA                                                | N                                                 | NA                                                | NA                                                | M                                                 | 02/04/2014                                        | \n",
       "\n",
       "\n"
      ],
      "text/plain": [
       "  CO_UNIDADE    CO_CNES NU_CNPJ_MANTENEDORA TP_PFPJ NIVEL_DEP\n",
       "1 2928707453280 7453280 1.382548e+13        3       3        \n",
       "2 2301307450184 7450184 7.539984e+12        3       3        \n",
       "3 2307307462956 7462956           NA        1       1        \n",
       "4 2313407462476 7462476 7.735178e+12        3       3        \n",
       "5 2510107416490 7416490 8.739625e+12        3       3        \n",
       "6 2515937462123 7462123 1.612771e+12        3       3        \n",
       "  NO_RAZAO_SOCIAL                                  \n",
       "1 PREFEITURA MUNICIPAL DE SANTO ANTONIO DE JESUS   \n",
       "2 PREFEITURA MUNICIPAL DE SAUDE                    \n",
       "3 CONSULTORIO DE PSICOLOGIA FLAVIA GONCALVES MACEDO\n",
       "4 PREFEITURA MUNICIPAL DE TIANGUA                  \n",
       "5 PREFEITURA MUNICIPAL DE NOVA FLORESTA            \n",
       "6 PREFEITURA MUNICIPAL DE SERTAOZINHO              \n",
       "  NO_FANTASIA                                       NO_LOGRADOURO             \n",
       "1 POSTO DE SAUDE MINA DO SAPE                       COMUNIDADE MINA DO SAPE   \n",
       "2 ACADEMIA DA SAUDE DE ARARIPE                      AV ELISIO ALVES DE ALENCAR\n",
       "3 CONSULTORIO DE PSICOLOGIA FLAVIA GONCALVES MACEDO RUA DA CONCEICAO          \n",
       "4 U B S DA FAMILIA VALDO DOURADO NUNES              SITIO ITAGUARUNA          \n",
       "5 NUCLEO DE APOIO A SAUDE DA FAMILIA NASF 2         RUA BENEDITO MARINHO      \n",
       "6 AMIGO DO PEITO DE SERTAOZINHO PB                  RUA DIRSON ANDRADE        \n",
       "  NU_ENDERECO NO_COMPLEMENTO ... TO_CHAR.DT_ATU_GEO..DD.MM.YYYY..\n",
       "1 S/N         CASA           ... NA                              \n",
       "2 S/N         NA             ... 04/09/2018                      \n",
       "3 818         NA             ... 27/12/2017                      \n",
       "4 S/N         NA             ... NA                              \n",
       "5 S/N         NA             ... 16/01/2018                      \n",
       "6 103         NA             ... NA                              \n",
       "  NO_USUARIO_GEO CO_NATUREZA_JUR TP_ESTAB_SEMPRE_ABERTO\n",
       "1 NA             1244            NA                    \n",
       "2 0130ARA        1244            N                     \n",
       "3 GORETTI        4000            N                     \n",
       "4 NA             1244            N                     \n",
       "5 FCES           1244            N                     \n",
       "6 NA             1244            N                     \n",
       "  ST_GERACREDITO_GERENTE_SGIF ST_CONEXAO_INTERNET CO_TIPO_UNIDADE\n",
       "1 NA                          N                   NA             \n",
       "2 NA                          S                   NA             \n",
       "3 NA                          S                   NA             \n",
       "4 NA                          N                   NA             \n",
       "5 NA                          S                   NA             \n",
       "6 NA                          N                   NA             \n",
       "  NO_FANTASIA_ABREV TP_GESTAO TO_CHAR.DT_ATUALIZACAO_ORIGEM..DD.MM.YYYY..\n",
       "1 NA                M         03/04/2014                                 \n",
       "2 NA                M         02/04/2014                                 \n",
       "3 NA                M         02/04/2014                                 \n",
       "4 NA                M         02/04/2014                                 \n",
       "5 NA                M         02/04/2014                                 \n",
       "6 NA                M         02/04/2014                                 "
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "head(estabelecimentos)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 18,
   "metadata": {},
   "outputs": [],
   "source": [
    "estabelecimentos_reduced <- subset(estabelecimentos, \n",
    "                                   select = c('CO_UNIDADE','CO_CNES', \n",
    "                                              'TP_UNIDADE', \n",
    "                                              'CO_MUNICIPIO_GESTOR', 'TP_GESTAO'))"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 19,
   "metadata": {},
   "outputs": [
    {
     "data": {
      "text/html": [
       "<table>\n",
       "<thead><tr><th scope=col>CO_UNIDADE</th><th scope=col>CO_CNES</th><th scope=col>TP_UNIDADE</th><th scope=col>CO_MUNICIPIO_GESTOR</th><th scope=col>TP_GESTAO</th></tr></thead>\n",
       "<tbody>\n",
       "\t<tr><td>2928707453280</td><td>7453280      </td><td> 1           </td><td>292870       </td><td>M            </td></tr>\n",
       "\t<tr><td>2301307450184</td><td>7450184      </td><td>74           </td><td>230130       </td><td>M            </td></tr>\n",
       "\t<tr><td>2307307462956</td><td>7462956      </td><td>22           </td><td>230730       </td><td>M            </td></tr>\n",
       "\t<tr><td>2313407462476</td><td>7462476      </td><td> 2           </td><td>231340       </td><td>M            </td></tr>\n",
       "\t<tr><td>2510107416490</td><td>7416490      </td><td>71           </td><td>251010       </td><td>M            </td></tr>\n",
       "\t<tr><td>2515937462123</td><td>7462123      </td><td>36           </td><td>251593       </td><td>M            </td></tr>\n",
       "</tbody>\n",
       "</table>\n"
      ],
      "text/latex": [
       "\\begin{tabular}{r|lllll}\n",
       " CO\\_UNIDADE & CO\\_CNES & TP\\_UNIDADE & CO\\_MUNICIPIO\\_GESTOR & TP\\_GESTAO\\\\\n",
       "\\hline\n",
       "\t 2928707453280 & 7453280       &  1            & 292870        & M            \\\\\n",
       "\t 2301307450184 & 7450184       & 74            & 230130        & M            \\\\\n",
       "\t 2307307462956 & 7462956       & 22            & 230730        & M            \\\\\n",
       "\t 2313407462476 & 7462476       &  2            & 231340        & M            \\\\\n",
       "\t 2510107416490 & 7416490       & 71            & 251010        & M            \\\\\n",
       "\t 2515937462123 & 7462123       & 36            & 251593        & M            \\\\\n",
       "\\end{tabular}\n"
      ],
      "text/markdown": [
       "\n",
       "CO_UNIDADE | CO_CNES | TP_UNIDADE | CO_MUNICIPIO_GESTOR | TP_GESTAO | \n",
       "|---|---|---|---|---|---|\n",
       "| 2928707453280 | 7453280       |  1            | 292870        | M             | \n",
       "| 2301307450184 | 7450184       | 74            | 230130        | M             | \n",
       "| 2307307462956 | 7462956       | 22            | 230730        | M             | \n",
       "| 2313407462476 | 7462476       |  2            | 231340        | M             | \n",
       "| 2510107416490 | 7416490       | 71            | 251010        | M             | \n",
       "| 2515937462123 | 7462123       | 36            | 251593        | M             | \n",
       "\n",
       "\n"
      ],
      "text/plain": [
       "  CO_UNIDADE    CO_CNES TP_UNIDADE CO_MUNICIPIO_GESTOR TP_GESTAO\n",
       "1 2928707453280 7453280  1         292870              M        \n",
       "2 2301307450184 7450184 74         230130              M        \n",
       "3 2307307462956 7462956 22         230730              M        \n",
       "4 2313407462476 7462476  2         231340              M        \n",
       "5 2510107416490 7416490 71         251010              M        \n",
       "6 2515937462123 7462123 36         251593              M        "
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "head(estabelecimentos_reduced)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 20,
   "metadata": {},
   "outputs": [],
   "source": [
    "#write.csv2(estabelecimentos, 'estabelecimentos_red.csv', row.names = FALSE)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 21,
   "metadata": {},
   "outputs": [],
   "source": [
    "estabelecimentos_reduced <- merge(estabelecimentos_reduced, brasil, \n",
    "                                  by.x = 'CO_MUNICIPIO_GESTOR', \n",
    "                                  by.y='code', \n",
    "                                  all.x=TRUE)\n"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 22,
   "metadata": {},
   "outputs": [
    {
     "data": {
      "text/html": [
       "<table>\n",
       "<thead><tr><th scope=col>CO_MUNICIPIO_GESTOR</th><th scope=col>CO_UNIDADE</th><th scope=col>CO_CNES</th><th scope=col>TP_UNIDADE</th><th scope=col>TP_GESTAO</th><th scope=col>city</th><th scope=col>state</th><th scope=col>region</th><th scope=col>population</th></tr></thead>\n",
       "<tbody>\n",
       "\t<tr><td>110001               </td><td>1100017030908        </td><td>7030908              </td><td> 1                   </td><td>M                    </td><td>Alta Floresta D'Oeste</td><td>RondÃ´nia            </td><td>NORTE                </td><td>25437                </td></tr>\n",
       "\t<tr><td>110001               </td><td>1100012369966        </td><td>2369966              </td><td> 2                   </td><td>M                    </td><td>Alta Floresta D'Oeste</td><td>RondÃ´nia            </td><td>NORTE                </td><td>25437                </td></tr>\n",
       "\t<tr><td>110001               </td><td>1100013283577        </td><td>3283577              </td><td>70                   </td><td>M                    </td><td>Alta Floresta D'Oeste</td><td>RondÃ´nia            </td><td>NORTE                </td><td>25437                </td></tr>\n",
       "\t<tr><td>110001               </td><td>1100016348289        </td><td>6348289              </td><td>22                   </td><td>M                    </td><td>Alta Floresta D'Oeste</td><td>RondÃ´nia            </td><td>NORTE                </td><td>25437                </td></tr>\n",
       "\t<tr><td>110001               </td><td>1100012679477        </td><td>2679477              </td><td> 5                   </td><td>M                    </td><td>Alta Floresta D'Oeste</td><td>RondÃ´nia            </td><td>NORTE                </td><td>25437                </td></tr>\n",
       "\t<tr><td>110001               </td><td>1100012516500        </td><td>2516500              </td><td> 5                   </td><td>M                    </td><td>Alta Floresta D'Oeste</td><td>RondÃ´nia            </td><td>NORTE                </td><td>25437                </td></tr>\n",
       "</tbody>\n",
       "</table>\n"
      ],
      "text/latex": [
       "\\begin{tabular}{r|lllllllll}\n",
       " CO\\_MUNICIPIO\\_GESTOR & CO\\_UNIDADE & CO\\_CNES & TP\\_UNIDADE & TP\\_GESTAO & city & state & region & population\\\\\n",
       "\\hline\n",
       "\t 110001                & 1100017030908         & 7030908               &  1                    & M                     & Alta Floresta D'Oeste & RondÃ´nia             & NORTE                 & 25437                \\\\\n",
       "\t 110001                & 1100012369966         & 2369966               &  2                    & M                     & Alta Floresta D'Oeste & RondÃ´nia             & NORTE                 & 25437                \\\\\n",
       "\t 110001                & 1100013283577         & 3283577               & 70                    & M                     & Alta Floresta D'Oeste & RondÃ´nia             & NORTE                 & 25437                \\\\\n",
       "\t 110001                & 1100016348289         & 6348289               & 22                    & M                     & Alta Floresta D'Oeste & RondÃ´nia             & NORTE                 & 25437                \\\\\n",
       "\t 110001                & 1100012679477         & 2679477               &  5                    & M                     & Alta Floresta D'Oeste & RondÃ´nia             & NORTE                 & 25437                \\\\\n",
       "\t 110001                & 1100012516500         & 2516500               &  5                    & M                     & Alta Floresta D'Oeste & RondÃ´nia             & NORTE                 & 25437                \\\\\n",
       "\\end{tabular}\n"
      ],
      "text/markdown": [
       "\n",
       "CO_MUNICIPIO_GESTOR | CO_UNIDADE | CO_CNES | TP_UNIDADE | TP_GESTAO | city | state | region | population | \n",
       "|---|---|---|---|---|---|\n",
       "| 110001                | 1100017030908         | 7030908               |  1                    | M                     | Alta Floresta D'Oeste | RondÃ´nia             | NORTE                 | 25437                 | \n",
       "| 110001                | 1100012369966         | 2369966               |  2                    | M                     | Alta Floresta D'Oeste | RondÃ´nia             | NORTE                 | 25437                 | \n",
       "| 110001                | 1100013283577         | 3283577               | 70                    | M                     | Alta Floresta D'Oeste | RondÃ´nia             | NORTE                 | 25437                 | \n",
       "| 110001                | 1100016348289         | 6348289               | 22                    | M                     | Alta Floresta D'Oeste | RondÃ´nia             | NORTE                 | 25437                 | \n",
       "| 110001                | 1100012679477         | 2679477               |  5                    | M                     | Alta Floresta D'Oeste | RondÃ´nia             | NORTE                 | 25437                 | \n",
       "| 110001                | 1100012516500         | 2516500               |  5                    | M                     | Alta Floresta D'Oeste | RondÃ´nia             | NORTE                 | 25437                 | \n",
       "\n",
       "\n"
      ],
      "text/plain": [
       "  CO_MUNICIPIO_GESTOR CO_UNIDADE    CO_CNES TP_UNIDADE TP_GESTAO\n",
       "1 110001              1100017030908 7030908  1         M        \n",
       "2 110001              1100012369966 2369966  2         M        \n",
       "3 110001              1100013283577 3283577 70         M        \n",
       "4 110001              1100016348289 6348289 22         M        \n",
       "5 110001              1100012679477 2679477  5         M        \n",
       "6 110001              1100012516500 2516500  5         M        \n",
       "  city                  state     region population\n",
       "1 Alta Floresta D'Oeste RondÃ´nia NORTE  25437     \n",
       "2 Alta Floresta D'Oeste RondÃ´nia NORTE  25437     \n",
       "3 Alta Floresta D'Oeste RondÃ´nia NORTE  25437     \n",
       "4 Alta Floresta D'Oeste RondÃ´nia NORTE  25437     \n",
       "5 Alta Floresta D'Oeste RondÃ´nia NORTE  25437     \n",
       "6 Alta Floresta D'Oeste RondÃ´nia NORTE  25437     "
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "head(estabelecimentos_reduced)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 23,
   "metadata": {},
   "outputs": [],
   "source": [
    "write.csv2(estabelecimentos_reduced, 'unidades_saude_brasil.csv', row.names = FALSE)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 24,
   "metadata": {},
   "outputs": [],
   "source": [
    "# código do tipo de gestão\n",
    "gestao <- read.csv2('tbGestao201809.csv', header = TRUE)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 25,
   "metadata": {},
   "outputs": [
    {
     "data": {
      "text/html": [
       "<table>\n",
       "<thead><tr><th scope=col>CO_GESTAO</th><th scope=col>DS_GESTAO</th><th scope=col>TP_PROG</th></tr></thead>\n",
       "<tbody>\n",
       "\t<tr><td>1                 </td><td>ATENCAO BASICA    </td><td>1                 </td></tr>\n",
       "\t<tr><td>2                 </td><td>MEDIA COMPLEXIDADE</td><td>1                 </td></tr>\n",
       "\t<tr><td>3                 </td><td>INTERNACAO        </td><td>2                 </td></tr>\n",
       "\t<tr><td>4                 </td><td>ALTA COMPLEXIDADE </td><td>1                 </td></tr>\n",
       "\t<tr><td>5                 </td><td>MEDIA COMPLEXIDADE</td><td>2                 </td></tr>\n",
       "\t<tr><td>6                 </td><td>ALTA COMPLEXIDADE </td><td>2                 </td></tr>\n",
       "</tbody>\n",
       "</table>\n"
      ],
      "text/latex": [
       "\\begin{tabular}{r|lll}\n",
       " CO\\_GESTAO & DS\\_GESTAO & TP\\_PROG\\\\\n",
       "\\hline\n",
       "\t 1                  & ATENCAO BASICA     & 1                 \\\\\n",
       "\t 2                  & MEDIA COMPLEXIDADE & 1                 \\\\\n",
       "\t 3                  & INTERNACAO         & 2                 \\\\\n",
       "\t 4                  & ALTA COMPLEXIDADE  & 1                 \\\\\n",
       "\t 5                  & MEDIA COMPLEXIDADE & 2                 \\\\\n",
       "\t 6                  & ALTA COMPLEXIDADE  & 2                 \\\\\n",
       "\\end{tabular}\n"
      ],
      "text/markdown": [
       "\n",
       "CO_GESTAO | DS_GESTAO | TP_PROG | \n",
       "|---|---|---|---|---|---|\n",
       "| 1                  | ATENCAO BASICA     | 1                  | \n",
       "| 2                  | MEDIA COMPLEXIDADE | 1                  | \n",
       "| 3                  | INTERNACAO         | 2                  | \n",
       "| 4                  | ALTA COMPLEXIDADE  | 1                  | \n",
       "| 5                  | MEDIA COMPLEXIDADE | 2                  | \n",
       "| 6                  | ALTA COMPLEXIDADE  | 2                  | \n",
       "\n",
       "\n"
      ],
      "text/plain": [
       "  CO_GESTAO DS_GESTAO          TP_PROG\n",
       "1 1         ATENCAO BASICA     1      \n",
       "2 2         MEDIA COMPLEXIDADE 1      \n",
       "3 3         INTERNACAO         2      \n",
       "4 4         ALTA COMPLEXIDADE  1      \n",
       "5 5         MEDIA COMPLEXIDADE 2      \n",
       "6 6         ALTA COMPLEXIDADE  2      "
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "head(gestao)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 26,
   "metadata": {},
   "outputs": [],
   "source": [
    "estab_gestao <- read.csv2('rlEstabProgFundo201809.csv', header = TRUE)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 28,
   "metadata": {},
   "outputs": [
    {
     "data": {
      "text/html": [
       "<table>\n",
       "<thead><tr><th scope=col>CO_UNIDADE</th><th scope=col>CO_ATIVIDADE</th><th scope=col>TP_ESTADUAL_MUNICIPAL</th><th scope=col>TO_CHAR.DT_ATUALIZACAO..DD.MM.YYYY..</th><th scope=col>CO_USUARIO</th><th scope=col>TO_CHAR.DT_ATUALIZACAO_ORIGEM..DD.MM.YYYY..</th></tr></thead>\n",
       "<tbody>\n",
       "\t<tr><td>4201709209662</td><td>0            </td><td>2            </td><td>08/09/2017   </td><td>SAUDE        </td><td>NA           </td></tr>\n",
       "\t<tr><td>3104809174745</td><td>0            </td><td>2            </td><td>18/10/2017   </td><td>SCNES        </td><td>NA           </td></tr>\n",
       "\t<tr><td>1502939210164</td><td>0            </td><td>2            </td><td>01/10/2018   </td><td>12345        </td><td>NA           </td></tr>\n",
       "\t<tr><td>5004309224769</td><td>0            </td><td>2            </td><td>02/02/2018   </td><td>SAUDE        </td><td>NA           </td></tr>\n",
       "\t<tr><td>5218309194819</td><td>0            </td><td>2            </td><td>29/04/2017   </td><td>CNESP        </td><td>NA           </td></tr>\n",
       "\t<tr><td>3107109237380</td><td>0            </td><td>2            </td><td>24/04/2018   </td><td>CLAUDIO      </td><td>NA           </td></tr>\n",
       "</tbody>\n",
       "</table>\n"
      ],
      "text/latex": [
       "\\begin{tabular}{r|llllll}\n",
       " CO\\_UNIDADE & CO\\_ATIVIDADE & TP\\_ESTADUAL\\_MUNICIPAL & TO\\_CHAR.DT\\_ATUALIZACAO..DD.MM.YYYY.. & CO\\_USUARIO & TO\\_CHAR.DT\\_ATUALIZACAO\\_ORIGEM..DD.MM.YYYY..\\\\\n",
       "\\hline\n",
       "\t 4201709209662 & 0             & 2             & 08/09/2017    & SAUDE         & NA           \\\\\n",
       "\t 3104809174745 & 0             & 2             & 18/10/2017    & SCNES         & NA           \\\\\n",
       "\t 1502939210164 & 0             & 2             & 01/10/2018    & 12345         & NA           \\\\\n",
       "\t 5004309224769 & 0             & 2             & 02/02/2018    & SAUDE         & NA           \\\\\n",
       "\t 5218309194819 & 0             & 2             & 29/04/2017    & CNESP         & NA           \\\\\n",
       "\t 3107109237380 & 0             & 2             & 24/04/2018    & CLAUDIO       & NA           \\\\\n",
       "\\end{tabular}\n"
      ],
      "text/markdown": [
       "\n",
       "CO_UNIDADE | CO_ATIVIDADE | TP_ESTADUAL_MUNICIPAL | TO_CHAR.DT_ATUALIZACAO..DD.MM.YYYY.. | CO_USUARIO | TO_CHAR.DT_ATUALIZACAO_ORIGEM..DD.MM.YYYY.. | \n",
       "|---|---|---|---|---|---|\n",
       "| 4201709209662 | 0             | 2             | 08/09/2017    | SAUDE         | NA            | \n",
       "| 3104809174745 | 0             | 2             | 18/10/2017    | SCNES         | NA            | \n",
       "| 1502939210164 | 0             | 2             | 01/10/2018    | 12345         | NA            | \n",
       "| 5004309224769 | 0             | 2             | 02/02/2018    | SAUDE         | NA            | \n",
       "| 5218309194819 | 0             | 2             | 29/04/2017    | CNESP         | NA            | \n",
       "| 3107109237380 | 0             | 2             | 24/04/2018    | CLAUDIO       | NA            | \n",
       "\n",
       "\n"
      ],
      "text/plain": [
       "  CO_UNIDADE    CO_ATIVIDADE TP_ESTADUAL_MUNICIPAL\n",
       "1 4201709209662 0            2                    \n",
       "2 3104809174745 0            2                    \n",
       "3 1502939210164 0            2                    \n",
       "4 5004309224769 0            2                    \n",
       "5 5218309194819 0            2                    \n",
       "6 3107109237380 0            2                    \n",
       "  TO_CHAR.DT_ATUALIZACAO..DD.MM.YYYY.. CO_USUARIO\n",
       "1 08/09/2017                           SAUDE     \n",
       "2 18/10/2017                           SCNES     \n",
       "3 01/10/2018                           12345     \n",
       "4 02/02/2018                           SAUDE     \n",
       "5 29/04/2017                           CNESP     \n",
       "6 24/04/2018                           CLAUDIO   \n",
       "  TO_CHAR.DT_ATUALIZACAO_ORIGEM..DD.MM.YYYY..\n",
       "1 NA                                         \n",
       "2 NA                                         \n",
       "3 NA                                         \n",
       "4 NA                                         \n",
       "5 NA                                         \n",
       "6 NA                                         "
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "head(estab_gestao)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 27,
   "metadata": {},
   "outputs": [],
   "source": [
    "lista_estabelecimentos_gestao <- estab_gestao %>%\n",
    "                                 select(CO_UNIDADE, CO_ATIVIDADE) %>%\n",
    "                                 mutate(CO_CNES = substr(CO_UNIDADE, 7, 13))"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 28,
   "metadata": {},
   "outputs": [
    {
     "data": {
      "text/html": [
       "<table>\n",
       "<thead><tr><th scope=col>CO_UNIDADE</th><th scope=col>CO_ATIVIDADE</th><th scope=col>CO_CNES</th></tr></thead>\n",
       "<tbody>\n",
       "\t<tr><td>4201709209662</td><td>0            </td><td>9209662      </td></tr>\n",
       "\t<tr><td>3104809174745</td><td>0            </td><td>9174745      </td></tr>\n",
       "\t<tr><td>1502939210164</td><td>0            </td><td>9210164      </td></tr>\n",
       "\t<tr><td>5004309224769</td><td>0            </td><td>9224769      </td></tr>\n",
       "\t<tr><td>5218309194819</td><td>0            </td><td>9194819      </td></tr>\n",
       "\t<tr><td>3107109237380</td><td>0            </td><td>9237380      </td></tr>\n",
       "</tbody>\n",
       "</table>\n"
      ],
      "text/latex": [
       "\\begin{tabular}{r|lll}\n",
       " CO\\_UNIDADE & CO\\_ATIVIDADE & CO\\_CNES\\\\\n",
       "\\hline\n",
       "\t 4201709209662 & 0             & 9209662      \\\\\n",
       "\t 3104809174745 & 0             & 9174745      \\\\\n",
       "\t 1502939210164 & 0             & 9210164      \\\\\n",
       "\t 5004309224769 & 0             & 9224769      \\\\\n",
       "\t 5218309194819 & 0             & 9194819      \\\\\n",
       "\t 3107109237380 & 0             & 9237380      \\\\\n",
       "\\end{tabular}\n"
      ],
      "text/markdown": [
       "\n",
       "CO_UNIDADE | CO_ATIVIDADE | CO_CNES | \n",
       "|---|---|---|---|---|---|\n",
       "| 4201709209662 | 0             | 9209662       | \n",
       "| 3104809174745 | 0             | 9174745       | \n",
       "| 1502939210164 | 0             | 9210164       | \n",
       "| 5004309224769 | 0             | 9224769       | \n",
       "| 5218309194819 | 0             | 9194819       | \n",
       "| 3107109237380 | 0             | 9237380       | \n",
       "\n",
       "\n"
      ],
      "text/plain": [
       "  CO_UNIDADE    CO_ATIVIDADE CO_CNES\n",
       "1 4201709209662 0            9209662\n",
       "2 3104809174745 0            9174745\n",
       "3 1502939210164 0            9210164\n",
       "4 5004309224769 0            9224769\n",
       "5 5218309194819 0            9194819\n",
       "6 3107109237380 0            9237380"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "head(lista_estabelecimentos_gestao)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 35,
   "metadata": {},
   "outputs": [],
   "source": [
    "#estabelecimentos por nivel atencao\n",
    "\n",
    "estabelecimentos_nivel_atencao <- merge(estabelecimentos_reduced, \n",
    "                                        lista_estabelecimentos_gestao,\n",
    "                                        by = 'CO_CNES')"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 36,
   "metadata": {},
   "outputs": [
    {
     "data": {
      "text/html": [
       "<table>\n",
       "<thead><tr><th scope=col>CO_CNES</th><th scope=col>CO_MUNICIPIO_GESTOR</th><th scope=col>CO_UNIDADE.x</th><th scope=col>TP_UNIDADE</th><th scope=col>TP_GESTAO</th><th scope=col>city</th><th scope=col>state</th><th scope=col>region</th><th scope=col>population</th><th scope=col>CO_UNIDADE.y</th><th scope=col>CO_ATIVIDADE</th></tr></thead>\n",
       "<tbody>\n",
       "\t<tr><td>1000012          </td><td>431490           </td><td>4314901000012    </td><td>36               </td><td>M                </td><td>Porto Alegre     </td><td>Rio Grande do Sul</td><td>SUL              </td><td>1484941          </td><td>4314901000012    </td><td>2                </td></tr>\n",
       "\t<tr><td>1000667          </td><td>330455           </td><td>3304551000667    </td><td>22               </td><td>M                </td><td>Rio de Janeiro   </td><td>Rio de Janeiro   </td><td>SUDESTE          </td><td>6520266          </td><td>3304551000667    </td><td>2                </td></tr>\n",
       "\t<tr><td>1000675          </td><td>231270           </td><td>2312701000675    </td><td>22               </td><td>M                </td><td>Senador Pompeu   </td><td>CearÃ¡           </td><td>NORDESTE         </td><td>  26447          </td><td>2312701000675    </td><td>2                </td></tr>\n",
       "\t<tr><td>1000691          </td><td>330455           </td><td>3304551000691    </td><td>22               </td><td>M                </td><td>Rio de Janeiro   </td><td>Rio de Janeiro   </td><td>SUDESTE          </td><td>6520266          </td><td>3304551000691    </td><td>2                </td></tr>\n",
       "\t<tr><td>1000705          </td><td>330455           </td><td>3304551000705    </td><td>22               </td><td>M                </td><td>Rio de Janeiro   </td><td>Rio de Janeiro   </td><td>SUDESTE          </td><td>6520266          </td><td>3304551000705    </td><td>1                </td></tr>\n",
       "\t<tr><td>1000713          </td><td>330455           </td><td>3304551000713    </td><td>22               </td><td>M                </td><td>Rio de Janeiro   </td><td>Rio de Janeiro   </td><td>SUDESTE          </td><td>6520266          </td><td>3304551000713    </td><td>2                </td></tr>\n",
       "</tbody>\n",
       "</table>\n"
      ],
      "text/latex": [
       "\\begin{tabular}{r|lllllllllll}\n",
       " CO\\_CNES & CO\\_MUNICIPIO\\_GESTOR & CO\\_UNIDADE.x & TP\\_UNIDADE & TP\\_GESTAO & city & state & region & population & CO\\_UNIDADE.y & CO\\_ATIVIDADE\\\\\n",
       "\\hline\n",
       "\t 1000012           & 431490            & 4314901000012     & 36                & M                 & Porto Alegre      & Rio Grande do Sul & SUL               & 1484941           & 4314901000012     & 2                \\\\\n",
       "\t 1000667           & 330455            & 3304551000667     & 22                & M                 & Rio de Janeiro    & Rio de Janeiro    & SUDESTE           & 6520266           & 3304551000667     & 2                \\\\\n",
       "\t 1000675           & 231270            & 2312701000675     & 22                & M                 & Senador Pompeu    & CearÃ¡            & NORDESTE          &   26447           & 2312701000675     & 2                \\\\\n",
       "\t 1000691           & 330455            & 3304551000691     & 22                & M                 & Rio de Janeiro    & Rio de Janeiro    & SUDESTE           & 6520266           & 3304551000691     & 2                \\\\\n",
       "\t 1000705           & 330455            & 3304551000705     & 22                & M                 & Rio de Janeiro    & Rio de Janeiro    & SUDESTE           & 6520266           & 3304551000705     & 1                \\\\\n",
       "\t 1000713           & 330455            & 3304551000713     & 22                & M                 & Rio de Janeiro    & Rio de Janeiro    & SUDESTE           & 6520266           & 3304551000713     & 2                \\\\\n",
       "\\end{tabular}\n"
      ],
      "text/markdown": [
       "\n",
       "CO_CNES | CO_MUNICIPIO_GESTOR | CO_UNIDADE.x | TP_UNIDADE | TP_GESTAO | city | state | region | population | CO_UNIDADE.y | CO_ATIVIDADE | \n",
       "|---|---|---|---|---|---|\n",
       "| 1000012           | 431490            | 4314901000012     | 36                | M                 | Porto Alegre      | Rio Grande do Sul | SUL               | 1484941           | 4314901000012     | 2                 | \n",
       "| 1000667           | 330455            | 3304551000667     | 22                | M                 | Rio de Janeiro    | Rio de Janeiro    | SUDESTE           | 6520266           | 3304551000667     | 2                 | \n",
       "| 1000675           | 231270            | 2312701000675     | 22                | M                 | Senador Pompeu    | CearÃ¡            | NORDESTE          |   26447           | 2312701000675     | 2                 | \n",
       "| 1000691           | 330455            | 3304551000691     | 22                | M                 | Rio de Janeiro    | Rio de Janeiro    | SUDESTE           | 6520266           | 3304551000691     | 2                 | \n",
       "| 1000705           | 330455            | 3304551000705     | 22                | M                 | Rio de Janeiro    | Rio de Janeiro    | SUDESTE           | 6520266           | 3304551000705     | 1                 | \n",
       "| 1000713           | 330455            | 3304551000713     | 22                | M                 | Rio de Janeiro    | Rio de Janeiro    | SUDESTE           | 6520266           | 3304551000713     | 2                 | \n",
       "\n",
       "\n"
      ],
      "text/plain": [
       "  CO_CNES CO_MUNICIPIO_GESTOR CO_UNIDADE.x  TP_UNIDADE TP_GESTAO city          \n",
       "1 1000012 431490              4314901000012 36         M         Porto Alegre  \n",
       "2 1000667 330455              3304551000667 22         M         Rio de Janeiro\n",
       "3 1000675 231270              2312701000675 22         M         Senador Pompeu\n",
       "4 1000691 330455              3304551000691 22         M         Rio de Janeiro\n",
       "5 1000705 330455              3304551000705 22         M         Rio de Janeiro\n",
       "6 1000713 330455              3304551000713 22         M         Rio de Janeiro\n",
       "  state             region   population CO_UNIDADE.y  CO_ATIVIDADE\n",
       "1 Rio Grande do Sul SUL      1484941    4314901000012 2           \n",
       "2 Rio de Janeiro    SUDESTE  6520266    3304551000667 2           \n",
       "3 CearÃ¡            NORDESTE   26447    2312701000675 2           \n",
       "4 Rio de Janeiro    SUDESTE  6520266    3304551000691 2           \n",
       "5 Rio de Janeiro    SUDESTE  6520266    3304551000705 1           \n",
       "6 Rio de Janeiro    SUDESTE  6520266    3304551000713 2           "
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "head(estabelecimentos_nivel_atencao)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 37,
   "metadata": {},
   "outputs": [],
   "source": [
    "write.csv2(estabelecimentos_nivel_atencao, 'unidades_atencao.csv', row.names = FALSE)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 38,
   "metadata": {},
   "outputs": [
    {
     "data": {
      "text/html": [
       "364627"
      ],
      "text/latex": [
       "364627"
      ],
      "text/markdown": [
       "364627"
      ],
      "text/plain": [
       "[1] 364627"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "length(unique(lista_estabelecimentos_gestao$CO_UNIDADE))"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 39,
   "metadata": {},
   "outputs": [],
   "source": [
    "estabelecimentos_nivel_atencao <- merge(estabelecimentos_nivel_atencao, \n",
    "                                        gestao,\n",
    "                                        by.x = 'CO_ATIVIDADE',\n",
    "                                        by.y = 'CO_GESTAO')"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 40,
   "metadata": {},
   "outputs": [
    {
     "data": {
      "text/html": [
       "<table>\n",
       "<thead><tr><th scope=col>CO_ATIVIDADE</th><th scope=col>CO_CNES</th><th scope=col>CO_MUNICIPIO_GESTOR</th><th scope=col>CO_UNIDADE.x</th><th scope=col>TP_UNIDADE</th><th scope=col>TP_GESTAO</th><th scope=col>city</th><th scope=col>state</th><th scope=col>region</th><th scope=col>population</th><th scope=col>CO_UNIDADE.y</th><th scope=col>DS_GESTAO</th><th scope=col>TP_PROG</th></tr></thead>\n",
       "<tbody>\n",
       "\t<tr><td>0                     </td><td>9224793               </td><td>420910                </td><td>4209109224793         </td><td>83                    </td><td>M                     </td><td>Joinville             </td><td>Santa Catarina        </td><td>SUL                   </td><td>  577077              </td><td>4209109224793         </td><td>NAO SE APLICA         </td><td>0                     </td></tr>\n",
       "\t<tr><td>0                     </td><td>9173781               </td><td>432320                </td><td>4323209173781         </td><td>39                    </td><td>E                     </td><td>Victor Graeff         </td><td>Rio Grande do Sul     </td><td>SUL                   </td><td>    3051              </td><td>4323209173781         </td><td>NAO SE APLICA         </td><td>0                     </td></tr>\n",
       "\t<tr><td>0                     </td><td>9367810               </td><td>354870                </td><td>3548709367810         </td><td>39                    </td><td>M                     </td><td>SÃ£o Bernardo do Campo</td><td>SÃ£o Paulo            </td><td>SUDESTE               </td><td>  827437              </td><td>3548709367810         </td><td>NAO SE APLICA         </td><td>0                     </td></tr>\n",
       "\t<tr><td>0                     </td><td>9449353               </td><td>355030                </td><td>3550309449353         </td><td>22                    </td><td>M                     </td><td>SÃ£o Paulo            </td><td>SÃ£o Paulo            </td><td>SUDESTE               </td><td>12106920              </td><td>3550309449353         </td><td>NAO SE APLICA         </td><td>0                     </td></tr>\n",
       "\t<tr><td>0                     </td><td>9200681               </td><td>421930                </td><td>4219309200681         </td><td>22                    </td><td>M                     </td><td>Videira               </td><td>Santa Catarina        </td><td>SUL                   </td><td>   52066              </td><td>4219309200681         </td><td>NAO SE APLICA         </td><td>0                     </td></tr>\n",
       "\t<tr><td>0                     </td><td>9516034               </td><td>500295                </td><td>5002959516034         </td><td>22                    </td><td>M                     </td><td>ChapadÃ£o do Sul      </td><td>Mato Grosso do Sul    </td><td>CENTRO OESTE          </td><td>   23940              </td><td>5002959516034         </td><td>NAO SE APLICA         </td><td>0                     </td></tr>\n",
       "</tbody>\n",
       "</table>\n"
      ],
      "text/latex": [
       "\\begin{tabular}{r|lllllllllllll}\n",
       " CO\\_ATIVIDADE & CO\\_CNES & CO\\_MUNICIPIO\\_GESTOR & CO\\_UNIDADE.x & TP\\_UNIDADE & TP\\_GESTAO & city & state & region & population & CO\\_UNIDADE.y & DS\\_GESTAO & TP\\_PROG\\\\\n",
       "\\hline\n",
       "\t 0                      & 9224793                & 420910                 & 4209109224793          & 83                     & M                      & Joinville              & Santa Catarina         & SUL                    &   577077               & 4209109224793          & NAO SE APLICA          & 0                     \\\\\n",
       "\t 0                      & 9173781                & 432320                 & 4323209173781          & 39                     & E                      & Victor Graeff          & Rio Grande do Sul      & SUL                    &     3051               & 4323209173781          & NAO SE APLICA          & 0                     \\\\\n",
       "\t 0                      & 9367810                & 354870                 & 3548709367810          & 39                     & M                      & SÃ£o Bernardo do Campo & SÃ£o Paulo             & SUDESTE                &   827437               & 3548709367810          & NAO SE APLICA          & 0                     \\\\\n",
       "\t 0                      & 9449353                & 355030                 & 3550309449353          & 22                     & M                      & SÃ£o Paulo             & SÃ£o Paulo             & SUDESTE                & 12106920               & 3550309449353          & NAO SE APLICA          & 0                     \\\\\n",
       "\t 0                      & 9200681                & 421930                 & 4219309200681          & 22                     & M                      & Videira                & Santa Catarina         & SUL                    &    52066               & 4219309200681          & NAO SE APLICA          & 0                     \\\\\n",
       "\t 0                      & 9516034                & 500295                 & 5002959516034          & 22                     & M                      & ChapadÃ£o do Sul       & Mato Grosso do Sul     & CENTRO OESTE           &    23940               & 5002959516034          & NAO SE APLICA          & 0                     \\\\\n",
       "\\end{tabular}\n"
      ],
      "text/markdown": [
       "\n",
       "CO_ATIVIDADE | CO_CNES | CO_MUNICIPIO_GESTOR | CO_UNIDADE.x | TP_UNIDADE | TP_GESTAO | city | state | region | population | CO_UNIDADE.y | DS_GESTAO | TP_PROG | \n",
       "|---|---|---|---|---|---|\n",
       "| 0                      | 9224793                | 420910                 | 4209109224793          | 83                     | M                      | Joinville              | Santa Catarina         | SUL                    |   577077               | 4209109224793          | NAO SE APLICA          | 0                      | \n",
       "| 0                      | 9173781                | 432320                 | 4323209173781          | 39                     | E                      | Victor Graeff          | Rio Grande do Sul      | SUL                    |     3051               | 4323209173781          | NAO SE APLICA          | 0                      | \n",
       "| 0                      | 9367810                | 354870                 | 3548709367810          | 39                     | M                      | SÃ£o Bernardo do Campo | SÃ£o Paulo             | SUDESTE                |   827437               | 3548709367810          | NAO SE APLICA          | 0                      | \n",
       "| 0                      | 9449353                | 355030                 | 3550309449353          | 22                     | M                      | SÃ£o Paulo             | SÃ£o Paulo             | SUDESTE                | 12106920               | 3550309449353          | NAO SE APLICA          | 0                      | \n",
       "| 0                      | 9200681                | 421930                 | 4219309200681          | 22                     | M                      | Videira                | Santa Catarina         | SUL                    |    52066               | 4219309200681          | NAO SE APLICA          | 0                      | \n",
       "| 0                      | 9516034                | 500295                 | 5002959516034          | 22                     | M                      | ChapadÃ£o do Sul       | Mato Grosso do Sul     | CENTRO OESTE           |    23940               | 5002959516034          | NAO SE APLICA          | 0                      | \n",
       "\n",
       "\n"
      ],
      "text/plain": [
       "  CO_ATIVIDADE CO_CNES CO_MUNICIPIO_GESTOR CO_UNIDADE.x  TP_UNIDADE TP_GESTAO\n",
       "1 0            9224793 420910              4209109224793 83         M        \n",
       "2 0            9173781 432320              4323209173781 39         E        \n",
       "3 0            9367810 354870              3548709367810 39         M        \n",
       "4 0            9449353 355030              3550309449353 22         M        \n",
       "5 0            9200681 421930              4219309200681 22         M        \n",
       "6 0            9516034 500295              5002959516034 22         M        \n",
       "  city                   state              region       population\n",
       "1 Joinville              Santa Catarina     SUL            577077  \n",
       "2 Victor Graeff          Rio Grande do Sul  SUL              3051  \n",
       "3 SÃ£o Bernardo do Campo SÃ£o Paulo         SUDESTE        827437  \n",
       "4 SÃ£o Paulo             SÃ£o Paulo         SUDESTE      12106920  \n",
       "5 Videira                Santa Catarina     SUL             52066  \n",
       "6 ChapadÃ£o do Sul       Mato Grosso do Sul CENTRO OESTE    23940  \n",
       "  CO_UNIDADE.y  DS_GESTAO     TP_PROG\n",
       "1 4209109224793 NAO SE APLICA 0      \n",
       "2 4323209173781 NAO SE APLICA 0      \n",
       "3 3548709367810 NAO SE APLICA 0      \n",
       "4 3550309449353 NAO SE APLICA 0      \n",
       "5 4219309200681 NAO SE APLICA 0      \n",
       "6 5002959516034 NAO SE APLICA 0      "
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "head(estabelecimentos_nivel_atencao)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 37,
   "metadata": {},
   "outputs": [],
   "source": [
    "#write.csv2(estabelecimentos_nivel_atencao, 'nivel_atencao.csv', row.names = FALSE)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 41,
   "metadata": {},
   "outputs": [],
   "source": [
    "#estabelecimentos por nivel atencao sumarizado\n",
    "estabelecimentos_nivel_atencao_sumarizado <- estabelecimentos_nivel_atencao %>%\n",
    "                                             group_by(CO_CNES) %>%\n",
    "                                             summarise(total = n())"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 42,
   "metadata": {},
   "outputs": [
    {
     "data": {
      "text/html": [
       "<table>\n",
       "<thead><tr><th scope=col>n</th></tr></thead>\n",
       "<tbody>\n",
       "\t<tr><td>362445</td></tr>\n",
       "</tbody>\n",
       "</table>\n"
      ],
      "text/latex": [
       "\\begin{tabular}{r|l}\n",
       " n\\\\\n",
       "\\hline\n",
       "\t 362445\\\\\n",
       "\\end{tabular}\n"
      ],
      "text/markdown": [
       "\n",
       "n | \n",
       "|---|\n",
       "| 362445 | \n",
       "\n",
       "\n"
      ],
      "text/plain": [
       "  n     \n",
       "1 362445"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "count(estabelecimentos_nivel_atencao_sumarizado)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 47,
   "metadata": {},
   "outputs": [],
   "source": [
    "lista_estab_ab <- estab_gestao %>%\n",
    "  filter(CO_ATIVIDADE == 1) %>%\n",
    "  select(CO_UNIDADE) %>%\n",
    "  mutate(CO_CNES = substr(CO_UNIDADE, 7, 13))"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 48,
   "metadata": {},
   "outputs": [
    {
     "data": {
      "text/html": [
       "<table>\n",
       "<thead><tr><th scope=col>CO_UNIDADE</th><th scope=col>CO_CNES</th></tr></thead>\n",
       "<tbody>\n",
       "\t<tr><td>2800303598691</td><td>3598691      </td></tr>\n",
       "\t<tr><td>2800303590860</td><td>3590860      </td></tr>\n",
       "\t<tr><td>2800303598098</td><td>3598098      </td></tr>\n",
       "\t<tr><td>2800303598136</td><td>3598136      </td></tr>\n",
       "\t<tr><td>3538703594653</td><td>3594653      </td></tr>\n",
       "\t<tr><td>3538703594688</td><td>3594688      </td></tr>\n",
       "</tbody>\n",
       "</table>\n"
      ],
      "text/latex": [
       "\\begin{tabular}{r|ll}\n",
       " CO\\_UNIDADE & CO\\_CNES\\\\\n",
       "\\hline\n",
       "\t 2800303598691 & 3598691      \\\\\n",
       "\t 2800303590860 & 3590860      \\\\\n",
       "\t 2800303598098 & 3598098      \\\\\n",
       "\t 2800303598136 & 3598136      \\\\\n",
       "\t 3538703594653 & 3594653      \\\\\n",
       "\t 3538703594688 & 3594688      \\\\\n",
       "\\end{tabular}\n"
      ],
      "text/markdown": [
       "\n",
       "CO_UNIDADE | CO_CNES | \n",
       "|---|---|---|---|---|---|\n",
       "| 2800303598691 | 3598691       | \n",
       "| 2800303590860 | 3590860       | \n",
       "| 2800303598098 | 3598098       | \n",
       "| 2800303598136 | 3598136       | \n",
       "| 3538703594653 | 3594653       | \n",
       "| 3538703594688 | 3594688       | \n",
       "\n",
       "\n"
      ],
      "text/plain": [
       "  CO_UNIDADE    CO_CNES\n",
       "1 2800303598691 3598691\n",
       "2 2800303590860 3590860\n",
       "3 2800303598098 3598098\n",
       "4 2800303598136 3598136\n",
       "5 3538703594653 3594653\n",
       "6 3538703594688 3594688"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "#paged_table(lista_estab_ab)\n",
    "head(lista_estab_ab)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 42,
   "metadata": {},
   "outputs": [],
   "source": [
    "#write.csv2(lista_estab_ab, 'estab_ab.csv', row.names = FALSE)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 51,
   "metadata": {},
   "outputs": [],
   "source": [
    "estabelecimentos_nivel_atencao_regiao <- estabelecimentos_nivel_atencao %>%\n",
    "  group_by(state, TP_UNIDADE) %>%\n",
    "  summarise(total = n())"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 52,
   "metadata": {},
   "outputs": [
    {
     "data": {
      "text/html": [
       "<table>\n",
       "<thead><tr><th scope=col>state</th><th scope=col>TP_UNIDADE</th><th scope=col>total</th></tr></thead>\n",
       "<tbody>\n",
       "\t<tr><td>Acre</td><td> 1  </td><td> 77 </td></tr>\n",
       "\t<tr><td>Acre</td><td> 2  </td><td>314 </td></tr>\n",
       "\t<tr><td>Acre</td><td> 4  </td><td> 19 </td></tr>\n",
       "\t<tr><td>Acre</td><td> 5  </td><td> 49 </td></tr>\n",
       "\t<tr><td>Acre</td><td> 7  </td><td> 13 </td></tr>\n",
       "\t<tr><td>Acre</td><td>15  </td><td> 30 </td></tr>\n",
       "</tbody>\n",
       "</table>\n"
      ],
      "text/latex": [
       "\\begin{tabular}{r|lll}\n",
       " state & TP\\_UNIDADE & total\\\\\n",
       "\\hline\n",
       "\t Acre &  1   &  77 \\\\\n",
       "\t Acre &  2   & 314 \\\\\n",
       "\t Acre &  4   &  19 \\\\\n",
       "\t Acre &  5   &  49 \\\\\n",
       "\t Acre &  7   &  13 \\\\\n",
       "\t Acre & 15   &  30 \\\\\n",
       "\\end{tabular}\n"
      ],
      "text/markdown": [
       "\n",
       "state | TP_UNIDADE | total | \n",
       "|---|---|---|---|---|---|\n",
       "| Acre |  1   |  77  | \n",
       "| Acre |  2   | 314  | \n",
       "| Acre |  4   |  19  | \n",
       "| Acre |  5   |  49  | \n",
       "| Acre |  7   |  13  | \n",
       "| Acre | 15   |  30  | \n",
       "\n",
       "\n"
      ],
      "text/plain": [
       "  state TP_UNIDADE total\n",
       "1 Acre   1          77  \n",
       "2 Acre   2         314  \n",
       "3 Acre   4          19  \n",
       "4 Acre   5          49  \n",
       "5 Acre   7          13  \n",
       "6 Acre  15          30  "
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "head(estabelecimentos_nivel_atencao_regiao)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 53,
   "metadata": {},
   "outputs": [],
   "source": [
    "write.csv2(estabelecimentos_nivel_atencao_regiao, 'estabel_estado.csv', row.names = FALSE)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 54,
   "metadata": {},
   "outputs": [],
   "source": [
    "#recorte olhando apenas a Atenção Básica\n",
    "\n",
    "lista_estab_ab <- estab_gestao %>%\n",
    "  filter(CO_ATIVIDADE == 1) %>%\n",
    "  select(CO_UNIDADE) %>%\n",
    "  mutate(CO_CNES = substr(CO_UNIDADE, 7, 13))"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 55,
   "metadata": {},
   "outputs": [
    {
     "data": {
      "text/html": [
       "<table>\n",
       "<thead><tr><th scope=col>CO_UNIDADE</th><th scope=col>CO_CNES</th></tr></thead>\n",
       "<tbody>\n",
       "\t<tr><td>2800303598691</td><td>3598691      </td></tr>\n",
       "\t<tr><td>2800303590860</td><td>3590860      </td></tr>\n",
       "\t<tr><td>2800303598098</td><td>3598098      </td></tr>\n",
       "\t<tr><td>2800303598136</td><td>3598136      </td></tr>\n",
       "\t<tr><td>3538703594653</td><td>3594653      </td></tr>\n",
       "\t<tr><td>3538703594688</td><td>3594688      </td></tr>\n",
       "</tbody>\n",
       "</table>\n"
      ],
      "text/latex": [
       "\\begin{tabular}{r|ll}\n",
       " CO\\_UNIDADE & CO\\_CNES\\\\\n",
       "\\hline\n",
       "\t 2800303598691 & 3598691      \\\\\n",
       "\t 2800303590860 & 3590860      \\\\\n",
       "\t 2800303598098 & 3598098      \\\\\n",
       "\t 2800303598136 & 3598136      \\\\\n",
       "\t 3538703594653 & 3594653      \\\\\n",
       "\t 3538703594688 & 3594688      \\\\\n",
       "\\end{tabular}\n"
      ],
      "text/markdown": [
       "\n",
       "CO_UNIDADE | CO_CNES | \n",
       "|---|---|---|---|---|---|\n",
       "| 2800303598691 | 3598691       | \n",
       "| 2800303590860 | 3590860       | \n",
       "| 2800303598098 | 3598098       | \n",
       "| 2800303598136 | 3598136       | \n",
       "| 3538703594653 | 3594653       | \n",
       "| 3538703594688 | 3594688       | \n",
       "\n",
       "\n"
      ],
      "text/plain": [
       "  CO_UNIDADE    CO_CNES\n",
       "1 2800303598691 3598691\n",
       "2 2800303590860 3590860\n",
       "3 2800303598098 3598098\n",
       "4 2800303598136 3598136\n",
       "5 3538703594653 3594653\n",
       "6 3538703594688 3594688"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "head(lista_estab_ab)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 56,
   "metadata": {},
   "outputs": [],
   "source": [
    "estabelecimentos_ab <- subset(estabelecimentos_reduced, \n",
    "                              estabelecimentos_reduced$CO_CNES %in% lista_estab_ab$CO_CNES)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 57,
   "metadata": {},
   "outputs": [
    {
     "data": {
      "text/html": [
       "<table>\n",
       "<thead><tr><th></th><th scope=col>CO_MUNICIPIO_GESTOR</th><th scope=col>CO_UNIDADE</th><th scope=col>CO_CNES</th><th scope=col>TP_UNIDADE</th><th scope=col>TP_GESTAO</th><th scope=col>city</th><th scope=col>state</th><th scope=col>region</th><th scope=col>population</th></tr></thead>\n",
       "<tbody>\n",
       "\t<tr><th scope=row>1</th><td>110001               </td><td>1100017030908        </td><td>7030908              </td><td> 1                   </td><td>M                    </td><td>Alta Floresta D'Oeste</td><td>RondÃ´nia            </td><td>NORTE                </td><td>25437                </td></tr>\n",
       "\t<tr><th scope=row>2</th><td>110001               </td><td>1100012369966        </td><td>2369966              </td><td> 2                   </td><td>M                    </td><td>Alta Floresta D'Oeste</td><td>RondÃ´nia            </td><td>NORTE                </td><td>25437                </td></tr>\n",
       "\t<tr><th scope=row>3</th><td>110001               </td><td>1100013283577        </td><td>3283577              </td><td>70                   </td><td>M                    </td><td>Alta Floresta D'Oeste</td><td>RondÃ´nia            </td><td>NORTE                </td><td>25437                </td></tr>\n",
       "\t<tr><th scope=row>5</th><td>110001               </td><td>1100012679477        </td><td>2679477              </td><td> 5                   </td><td>M                    </td><td>Alta Floresta D'Oeste</td><td>RondÃ´nia            </td><td>NORTE                </td><td>25437                </td></tr>\n",
       "\t<tr><th scope=row>7</th><td>110001               </td><td>1100012497425        </td><td>2497425              </td><td> 1                   </td><td>M                    </td><td>Alta Floresta D'Oeste</td><td>RondÃ´nia            </td><td>NORTE                </td><td>25437                </td></tr>\n",
       "\t<tr><th scope=row>8</th><td>110001               </td><td>1100019390510        </td><td>9390510              </td><td>22                   </td><td>M                    </td><td>Alta Floresta D'Oeste</td><td>RondÃ´nia            </td><td>NORTE                </td><td>25437                </td></tr>\n",
       "</tbody>\n",
       "</table>\n"
      ],
      "text/latex": [
       "\\begin{tabular}{r|lllllllll}\n",
       "  & CO\\_MUNICIPIO\\_GESTOR & CO\\_UNIDADE & CO\\_CNES & TP\\_UNIDADE & TP\\_GESTAO & city & state & region & population\\\\\n",
       "\\hline\n",
       "\t1 & 110001                & 1100017030908         & 7030908               &  1                    & M                     & Alta Floresta D'Oeste & RondÃ´nia             & NORTE                 & 25437                \\\\\n",
       "\t2 & 110001                & 1100012369966         & 2369966               &  2                    & M                     & Alta Floresta D'Oeste & RondÃ´nia             & NORTE                 & 25437                \\\\\n",
       "\t3 & 110001                & 1100013283577         & 3283577               & 70                    & M                     & Alta Floresta D'Oeste & RondÃ´nia             & NORTE                 & 25437                \\\\\n",
       "\t5 & 110001                & 1100012679477         & 2679477               &  5                    & M                     & Alta Floresta D'Oeste & RondÃ´nia             & NORTE                 & 25437                \\\\\n",
       "\t7 & 110001                & 1100012497425         & 2497425               &  1                    & M                     & Alta Floresta D'Oeste & RondÃ´nia             & NORTE                 & 25437                \\\\\n",
       "\t8 & 110001                & 1100019390510         & 9390510               & 22                    & M                     & Alta Floresta D'Oeste & RondÃ´nia             & NORTE                 & 25437                \\\\\n",
       "\\end{tabular}\n"
      ],
      "text/markdown": [
       "\n",
       "| <!--/--> | CO_MUNICIPIO_GESTOR | CO_UNIDADE | CO_CNES | TP_UNIDADE | TP_GESTAO | city | state | region | population | \n",
       "|---|---|---|---|---|---|\n",
       "| 1 | 110001                | 1100017030908         | 7030908               |  1                    | M                     | Alta Floresta D'Oeste | RondÃ´nia             | NORTE                 | 25437                 | \n",
       "| 2 | 110001                | 1100012369966         | 2369966               |  2                    | M                     | Alta Floresta D'Oeste | RondÃ´nia             | NORTE                 | 25437                 | \n",
       "| 3 | 110001                | 1100013283577         | 3283577               | 70                    | M                     | Alta Floresta D'Oeste | RondÃ´nia             | NORTE                 | 25437                 | \n",
       "| 5 | 110001                | 1100012679477         | 2679477               |  5                    | M                     | Alta Floresta D'Oeste | RondÃ´nia             | NORTE                 | 25437                 | \n",
       "| 7 | 110001                | 1100012497425         | 2497425               |  1                    | M                     | Alta Floresta D'Oeste | RondÃ´nia             | NORTE                 | 25437                 | \n",
       "| 8 | 110001                | 1100019390510         | 9390510               | 22                    | M                     | Alta Floresta D'Oeste | RondÃ´nia             | NORTE                 | 25437                 | \n",
       "\n",
       "\n"
      ],
      "text/plain": [
       "  CO_MUNICIPIO_GESTOR CO_UNIDADE    CO_CNES TP_UNIDADE TP_GESTAO\n",
       "1 110001              1100017030908 7030908  1         M        \n",
       "2 110001              1100012369966 2369966  2         M        \n",
       "3 110001              1100013283577 3283577 70         M        \n",
       "5 110001              1100012679477 2679477  5         M        \n",
       "7 110001              1100012497425 2497425  1         M        \n",
       "8 110001              1100019390510 9390510 22         M        \n",
       "  city                  state     region population\n",
       "1 Alta Floresta D'Oeste RondÃ´nia NORTE  25437     \n",
       "2 Alta Floresta D'Oeste RondÃ´nia NORTE  25437     \n",
       "3 Alta Floresta D'Oeste RondÃ´nia NORTE  25437     \n",
       "5 Alta Floresta D'Oeste RondÃ´nia NORTE  25437     \n",
       "7 Alta Floresta D'Oeste RondÃ´nia NORTE  25437     \n",
       "8 Alta Floresta D'Oeste RondÃ´nia NORTE  25437     "
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "head(estabelecimentos_ab)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 58,
   "metadata": {},
   "outputs": [
    {
     "data": {
      "text/html": [
       "<table>\n",
       "<thead><tr><th scope=col>n</th></tr></thead>\n",
       "<tbody>\n",
       "\t<tr><td>160756</td></tr>\n",
       "</tbody>\n",
       "</table>\n"
      ],
      "text/latex": [
       "\\begin{tabular}{r|l}\n",
       " n\\\\\n",
       "\\hline\n",
       "\t 160756\\\\\n",
       "\\end{tabular}\n"
      ],
      "text/markdown": [
       "\n",
       "n | \n",
       "|---|\n",
       "| 160756 | \n",
       "\n",
       "\n"
      ],
      "text/plain": [
       "  n     \n",
       "1 160756"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "count(estabelecimentos_ab)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 51,
   "metadata": {},
   "outputs": [],
   "source": [
    "write.csv2(estabelecimentos_ab, 'unidades_ab.csv', row.names = FALSE)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 59,
   "metadata": {},
   "outputs": [],
   "source": [
    "#estabelecimentos_ab_regiao\n",
    "estabelecimentos_ab_regiao <- estabelecimentos_ab %>%\n",
    "  group_by(region) %>%\n",
    "  summarise(total = n())"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 60,
   "metadata": {},
   "outputs": [
    {
     "data": {
      "text/html": [
       "<table>\n",
       "<thead><tr><th scope=col>region</th><th scope=col>total</th></tr></thead>\n",
       "<tbody>\n",
       "\t<tr><td>CENTRO OESTE</td><td>13537       </td></tr>\n",
       "\t<tr><td>NORDESTE    </td><td>35859       </td></tr>\n",
       "\t<tr><td>NORTE       </td><td> 9591       </td></tr>\n",
       "\t<tr><td>SUDESTE     </td><td>68177       </td></tr>\n",
       "\t<tr><td>SUL         </td><td>33342       </td></tr>\n",
       "\t<tr><td>NA          </td><td>  250       </td></tr>\n",
       "</tbody>\n",
       "</table>\n"
      ],
      "text/latex": [
       "\\begin{tabular}{r|ll}\n",
       " region & total\\\\\n",
       "\\hline\n",
       "\t CENTRO OESTE & 13537       \\\\\n",
       "\t NORDESTE     & 35859       \\\\\n",
       "\t NORTE        &  9591       \\\\\n",
       "\t SUDESTE      & 68177       \\\\\n",
       "\t SUL          & 33342       \\\\\n",
       "\t NA           &   250       \\\\\n",
       "\\end{tabular}\n"
      ],
      "text/markdown": [
       "\n",
       "region | total | \n",
       "|---|---|---|---|---|---|\n",
       "| CENTRO OESTE | 13537        | \n",
       "| NORDESTE     | 35859        | \n",
       "| NORTE        |  9591        | \n",
       "| SUDESTE      | 68177        | \n",
       "| SUL          | 33342        | \n",
       "| NA           |   250        | \n",
       "\n",
       "\n"
      ],
      "text/plain": [
       "  region       total\n",
       "1 CENTRO OESTE 13537\n",
       "2 NORDESTE     35859\n",
       "3 NORTE         9591\n",
       "4 SUDESTE      68177\n",
       "5 SUL          33342\n",
       "6 NA             250"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "head(estabelecimentos_ab_regiao)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 61,
   "metadata": {},
   "outputs": [],
   "source": [
    "estabelecimentos_ab_regiao <- estabelecimentos_ab %>%\n",
    "  group_by(city) %>%\n",
    "  summarise(total = n())"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 63,
   "metadata": {},
   "outputs": [
    {
     "data": {
      "text/html": [
       "<table>\n",
       "<thead><tr><th scope=col>city</th><th scope=col>total</th></tr></thead>\n",
       "<tbody>\n",
       "\t<tr><td>Ã‚ngulo            </td><td> 3                 </td></tr>\n",
       "\t<tr><td>Ã“bidos            </td><td>24                 </td></tr>\n",
       "\t<tr><td>Ã“leo              </td><td> 4                 </td></tr>\n",
       "\t<tr><td>Ã‰rico Cardoso     </td><td>12                 </td></tr>\n",
       "\t<tr><td>Ãgua Azul do Norte</td><td>14                 </td></tr>\n",
       "\t<tr><td>Ãgua Boa          </td><td>24                 </td></tr>\n",
       "</tbody>\n",
       "</table>\n"
      ],
      "text/latex": [
       "\\begin{tabular}{r|ll}\n",
       " city & total\\\\\n",
       "\\hline\n",
       "\t Ã‚ngulo             &  3                 \\\\\n",
       "\t Ã“bidos             & 24                 \\\\\n",
       "\t Ã“leo               &  4                 \\\\\n",
       "\t Ã‰rico Cardoso      & 12                 \\\\\n",
       "\t Ãgua Azul do Norte & 14                 \\\\\n",
       "\t Ãgua Boa           & 24                 \\\\\n",
       "\\end{tabular}\n"
      ],
      "text/markdown": [
       "\n",
       "city | total | \n",
       "|---|---|---|---|---|---|\n",
       "| Ã‚ngulo             |  3                  | \n",
       "| Ã“bidos             | 24                  | \n",
       "| Ã“leo               |  4                  | \n",
       "| Ã‰rico Cardoso      | 12                  | \n",
       "| Ãgua Azul do Norte | 14                  | \n",
       "| Ãgua Boa           | 24                  | \n",
       "\n",
       "\n"
      ],
      "text/plain": [
       "  city                total\n",
       "1 Ã‚ngulo              3   \n",
       "2 Ã“bidos             24   \n",
       "3 Ã“leo                4   \n",
       "4 Ã‰rico Cardoso      12   \n",
       "5 Ã\\201gua Azul do Norte 14   \n",
       "6 Ã\\201gua Boa           24   "
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "head(estabelecimentos_ab_regiao)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 64,
   "metadata": {},
   "outputs": [],
   "source": [
    "write.csv2(estabelecimentos_ab_regiao, 'atencao_basica_city.csv', row.names = FALSE)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 65,
   "metadata": {},
   "outputs": [],
   "source": [
    "#estabelecimentos_ab_estado\n",
    "estabelecimentos_ab_estados <- estabelecimentos_ab %>%\n",
    "  group_by(state) %>%\n",
    "  summarise(total = n())"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 56,
   "metadata": {},
   "outputs": [
    {
     "data": {
      "text/html": [
       "<table>\n",
       "<thead><tr><th scope=col>state</th><th scope=col>total</th></tr></thead>\n",
       "<tbody>\n",
       "\t<tr><td>Acre    </td><td> 607    </td></tr>\n",
       "\t<tr><td>Alagoas </td><td>1737    </td></tr>\n",
       "\t<tr><td>AmapÃ¡  </td><td> 402    </td></tr>\n",
       "\t<tr><td>Amazonas</td><td>1521    </td></tr>\n",
       "\t<tr><td>Bahia   </td><td>9086    </td></tr>\n",
       "\t<tr><td>CearÃ¡  </td><td>3989    </td></tr>\n",
       "</tbody>\n",
       "</table>\n"
      ],
      "text/latex": [
       "\\begin{tabular}{r|ll}\n",
       " state & total\\\\\n",
       "\\hline\n",
       "\t Acre     &  607    \\\\\n",
       "\t Alagoas  & 1737    \\\\\n",
       "\t AmapÃ¡   &  402    \\\\\n",
       "\t Amazonas & 1521    \\\\\n",
       "\t Bahia    & 9086    \\\\\n",
       "\t CearÃ¡   & 3989    \\\\\n",
       "\\end{tabular}\n"
      ],
      "text/markdown": [
       "\n",
       "state | total | \n",
       "|---|---|---|---|---|---|\n",
       "| Acre     |  607     | \n",
       "| Alagoas  | 1737     | \n",
       "| AmapÃ¡   |  402     | \n",
       "| Amazonas | 1521     | \n",
       "| Bahia    | 9086     | \n",
       "| CearÃ¡   | 3989     | \n",
       "\n",
       "\n"
      ],
      "text/plain": [
       "  state    total\n",
       "1 Acre      607 \n",
       "2 Alagoas  1737 \n",
       "3 AmapÃ¡    402 \n",
       "4 Amazonas 1521 \n",
       "5 Bahia    9086 \n",
       "6 CearÃ¡   3989 "
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "head(estabelecimentos_ab_estados)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 66,
   "metadata": {},
   "outputs": [],
   "source": [
    "write.csv2(estabelecimentos_ab_estados, 'estados_ab.csv', row.names = FALSE)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 67,
   "metadata": {},
   "outputs": [
    {
     "name": "stderr",
     "output_type": "stream",
     "text": [
      "Warning message in eval(expr, envir, enclos):\n",
      "\"NAs introduzidos por coerção\""
     ]
    }
   ],
   "source": [
    "#estabelecimentos lat_long\n",
    "estabelecimentos$NU_LONGITUDE <- as.numeric(as.character(estabelecimentos$NU_LONGITUDE))\n",
    "estabelecimentos$NU_LATITUDE <- as.numeric(as.character(estabelecimentos$NU_LATITUDE))"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 68,
   "metadata": {},
   "outputs": [
    {
     "data": {
      "text/plain": [
       "   Min. 1st Qu.  Median    Mean 3rd Qu.    Max.    NA's \n",
       " -72.90  -51.17  -47.87  -47.43  -43.74   57.39  278785 "
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    },
    {
     "data": {
      "text/plain": [
       "   Min. 1st Qu.  Median    Mean 3rd Qu.    Max.    NA's \n",
       " -33.73  -23.91  -22.11  -20.04  -16.75   31.37  278785 "
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "#estabelecimentos sumarizando lat_long\n",
    "summary(estabelecimentos$NU_LONGITUDE)\n",
    "summary(estabelecimentos$NU_LATITUDE)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 69,
   "metadata": {},
   "outputs": [
    {
     "name": "stderr",
     "output_type": "stream",
     "text": [
      "Warning message:\n",
      "\"unable to access index for repository http://www.stats.ox.ac.uk/pub/RWin/bin/windows/contrib/3.5:\n",
      "  não foi possível abrir a URL 'http://www.stats.ox.ac.uk/pub/RWin/bin/windows/contrib/3.5/PACKAGES'\""
     ]
    },
    {
     "name": "stdout",
     "output_type": "stream",
     "text": [
      "package 'rworldxtra' successfully unpacked and MD5 sums checked\n",
      "\n",
      "The downloaded binary packages are in\n",
      "\tC:\\Users\\Rosangela\\AppData\\Local\\Temp\\RtmpERSwut\\downloaded_packages\n"
     ]
    }
   ],
   "source": [
    "install.packages('rworldxtra')"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 70,
   "metadata": {},
   "outputs": [],
   "source": [
    "library(rworldxtra)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 71,
   "metadata": {},
   "outputs": [],
   "source": [
    "mapa_estabelecimentos <- getMap(resolution = 'high')"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 72,
   "metadata": {},
   "outputs": [
    {
     "data": {
      "image/png": "iVBORw0KGgoAAAANSUhEUgAAA0gAAANICAMAAADKOT/pAAAACVBMVEUAAAD/AAD///9nGWQe\nAAAACXBIWXMAABJ0AAASdAHeZh94AAAgAElEQVR4nO2di6Kjqg6Ghfd/6JlVzQ3CzQKCzX/2\n6axaBKT5TIhoD28ymb7W8XQHTKY3yEAymTrIQDKZOshAMpk6yEAymTrIQDKZOshAMpk6yEAy\nmTrIQDKZOshAMpk6yEAymTrIQDKZOshAMpk6yEAymTrIQDKZOshAMpk6yEAymTrIQDKZOshA\nMpk6yEAymTrIQDKZOshAMpk6yEAymTrIQDKZOshAMpk6yEAymTrIQDKZOshAMpk6yEAymTrI\nQDKZOshAMpk6yEAymTrIQDKZOshAMpk6yEAymTrIQDKZOshAMpk6yEAymTrIQDKZOshAMpk6\nyEAymTrIQDKZOshAMpk6yEAymTrIQDKZOshAMpk6yEAymTrIQDKZOshAMpk6yEAymTrIQDKZ\nOshAMpk6yEAymTrIQDKZOshAMpk6yEAymTrIQDKZOshAMpk6yEAymTrIQDKZOshAMpk6yEAy\nmTrIQDKZOshAMpk6yEAymTrIQDKZOshAMpk6yEAymTrIQDKZOshAMpk6yEAymTrIQDKZOshA\nMpk6yEAymTrIQDKZOshAMpk6yEAymTrIQDKZOshAMpk6yEAymTrIQDKZOshAMpk6yEAymTrI\nQDKZOshAMpk6yEAymTrIQDKZOshAMpk6yEAymTrIQDKZOshAMpk6yEAymTrIQDKZOshAMpk6\nyEAymTrIQDKZOshAMpk66AUgHROP4cnhqmpbDMYLvtxt9IaxnnkMD45X1QlDgvSGb3cTvWCo\n55rLkyTVlDnS70wD9YKRnmwtzxlnRcNH0LsXfL2baP+Rnm7YyfZCK57WcG4fc0pztP8wz7eU\nI2r3ODXYbu/UfbzhK95B+4/yA0dwMgP4HLMm+HdrNqc0QS8Y4/mHcBxonJGRDuvNFzi84Ete\nXi8Y48VOuKN680W9+V0XG79N9YZBXOoYBpnlV9UqMShtUcJTU7veMH4rGcGwvnwHEv11IiM3\nnJt+nSfn3Bd7v2LgFjqIcVOkb/YNLi4dUcYxWfZ35K7/39Qrhm2dgxiZ/P5i12jfHC6/6Zcc\ne72jNwzZQt/7yJ58kbVrAem8HHa7rV1lIC11/hzalduVN+0YX27+Cf08SGt944PXCN2s/gZI\nkHy41+CO+vU50lJf9vC+3Kq/jaNo5dOdJnfUz2ft1jmE8UY3F6Qv2vw5vWCUljlnzujHvXWr\nDYXj0qsM79p6wyitcgxT+sGmMLV7NPRLLbrK+C6tNwzSKscwxzXS0p76HarrbtpsYnrBGC1z\nCJM6Qj6psvz3vmuZIV5XLxiiZQ5h1mTtiP6oK/5FwWXmocvqDQO0zDGs5pIa16FmCy4zyIvq\nDeOzyjHM6scR/Jsq1upG7LalL/SG0VnlGCaZWmVk196b3mD+lN4wNqscwxRDg0acc3NBakkU\n/qDeMDSrfL8zL8hWrAzrDZJfZ6QX1BtGZpWvd3A3/taCcY6OAknNw1JR/pfW3rXpDcOyyjGM\n7cfHBzGQjiJIrS1UgbTMaC+mNwzLKscwtB/uk8kGdD4gHS5/o2trEzU7HOsM91p6w6gscwzj\nOvIHzd+/6IPOOVIu0GrvTD1Iy4z4OnrBkKwTtQ8EKbqDE+6eSbY5BKTrsczrDPky2n9EFvpa\nW5ZZN9/coOfp0hwNu+HiMJ+kaPsBWen8WN+Plkk7HKB6B2fXZaYtq2BXGfNV9ILxWOcQGohW\nH8AffO4r3G3q83sgVbokAynWC8ZjS5dUWnl6UXS7yaEeyS7OxnrBaOwJUm7padMRdSSp8ldq\nr7VCqwz6GnrBaCz0rJsmkA7Yh55mf6OanEtrVrULNJcU6g2DsQ5IjQhc/xz4zyE+YHLpZ0X1\nTTeU98ISq4x5rO8erHVPyw5Gm1Y5jLZ+xKUPffufYSSMI23OQ0gSvwxzp4EJ+vJRj/e06mC0\naZnvtNE1Jh4iF249GdJJ6rm0obyXeHzkosbz7cOH72nNsWjVMiD18UkNIGWfht8/4cA/XGjQ\nhQyk21rpK23sSuySlAlfEqTCZKC/TzqSb9aRgXRXK3H0vUvSdM6RImxc4VaKey6p/rOlxp1k\nc6SbWguktu5UlgWKnNj02T1LUkNPavbZAyTL2t3SMqlv1ACQfBSxnHm8Ekg3rgxkiocfrTbw\nT2r/sVgOpDvXkvL6nGElSKd7cgWQfPstrdl7BQvvf1n7j8ViHDV2p6b0BQ3+jf8SX982UVPY\nfvAlp+3HYm+Oasb/IkjMkRwk8iomA53mbPaDL1ltPxaLHUBrd+pAcii2iT0LpVuf2m5dX+wk\n9qg2H4rFJkg3elPe4y+qc7BIyOGyu+ITIm/1qm2hxFKD/6z2Hor9OarZ52SIJcBh0lSZ5O0C\nkvrBUqP/rDYfiqVAuteZCpDcyRFEdP760x91JHWZI+kfrDT8z2rvkVjLI928m6O4D3kkB6uF\nTndUCVLTLfBtH6w0/M9q55FYCyN9vWnlbnnhAiFHKbzPsobuIDVytFZE8Ki2HYhjpVvMSUPS\nDVfWDsI7+H+tQ6rvVZoj9ZP6fMf7telAXLdmL9j7MU8KxgQD5cCbrDh/b8RRLKZz5B9YHLqq\nFjTFGuWfZfWoBlyS/Yi7Iy9/m6K5Uxydo4Ij9ZNPR+q94su1oinmddBzbNZU6yKh+vJsldD1\n7O/6VoJ3+KCIw1OWpC2yM5C41rXHlNb0Q1ztP0xU6V/llaTqlQ2fJsJ3osUj/3t8iRkSezWt\nbpSRlsfI3+5jaa9rjSoH6RZJ2l6cY3rKa7q89/CLTRt8HzO03TDs0OGbfSzs5nCNHXmDhsT2\nof2pNU/R3pEp/WnffTIe68cIE7TdEOzQ4WEg0XJvcEv3XJJeIEqFFgNO/JWmHb6VsdpuBFbv\n8PmE+RtXk4rWGNyQdCJ1bxldaq9GJK7fDTSX5Ne3y0iLf2cnRUMuJjntPr576+g6DeLpEl3z\nXbhv1HYjsCZI9CBvz5LLtftWndH5/Uhs55quQXb75tPF0106X9e+GjFJ+w3Ait8ZnJLxtSXi\nqlzZ4OAlaLlc/UErQQDaTmMIc6Qlv5S52msAVr0Ue6Avut7em7rklLhqU3RmLKldvU+9zsWz\nlm3YDKRjicuxShfgfM/e11dXVyx1+bOWo6EylLYCaYG+sl+klJLwtLikWpD00C53Zhlv3mLS\n9tsobXTwK3xRlV0YAJL2yOJcDTNcRLD8e4Uv6DHtdOwLhA+1HajvasOS1dSzt8IqaFXCWEXR\n5uNfz4Pa69gfJ6kaj6qSvexdDssxayppIDFtduxPd7cnSD0zkBWrFvorzn88/fU8qK0O/fnc\nUD1IFVd4Oo4+yytMHKHoFtmtrKmvdjr0Be6K7QVST4iwzmP6qSaYtu1kTL210bGHt8k80ofa\nctle9jgfaMuF5g+N7MVGxtRd+xw7zSh2AClTtgtEjv6RrU5VkJLfx5j6a49jD07hz3War1cr\nF27aXC9Yvnr9IOa31X3TEQ7z4xPYR7X+sWtm+/BXVk3SId7wha1fiH5QFv73lMRjjZ6evj6s\n5Y898fU8/aVVti8Xiva5wIM/SsEf4vCI+K+t/zhHa4N0Tov0Lh4PrwSvXizE/u1z/RXnR86v\nANIZ2/06R0uDVPpuHr0zsyntgFFdH5CCZ4E/GNsBzove3jJRKx99Rd+e+PYab40Tl0q7dBdz\nZfLnMJ8QPP715x3S2iBVrlebKrhl4t7zTfr0gaXqHs3aQfvX9b1HO/K0lj76OpKGdwNbYs5l\n6XGbrQWWnDyupY9+NZCmtbSZjiOdFPoVLX30jSnm6+2wQ1p6rB5ULrn6M1r68Gsve/IZyzHu\nEbpLj9VzOiy284sbR+1Xw+HptHxAbWZEpRvruoJ0uqRfR2npQ2/qnPwuRxzX0mM1X2cWnvzR\nzWc1v0RLH/gXnRvxjS49VtN1Lp114XP3H+zRo1r6wL/p3IBIo766p6/uTNDn+tH14+p0vH1W\nE+6olQ/662/kKZCeXm8wQydC5+XYP8fkPq/n84tWNqpRWviYO5zZ+j5Qp7aeUb8JuZSf+2Dj\nP+x8/vDwl1/aqIZp3WPugdGBty/00MMgreXnHP46hvv8QNKZwbv8kl+M+glaFqQ+/gge89Al\n+dALpHs2tthvHx8XR38IHZ9p0gE4Xb7paPit6P216rH26RdbGtejwloa877jpmdZDaQDfomC\n38vxoemAFeHuhy4uLXqUvUaf36HawyfVkpTxOXeBWAukg352CW7X9fiQfyc6u6iJddaiRzkg\nP9CFzQ6V3AZipTkSOy9h9htoCkCiIXM0r3qfXg5S8GMrnSu8pfueZSEbZBzJ8XDB/1mnnXsz\nSYuCNIikJZzSSp7lnsRarGA4gBN2Ey9ueDNJi4LUcY56JP7uUuEtbWhJwRNVrwuv5eUjn+UP\nHp/W8mKW1gWpW02pN7dr7FDHVgpNnygqofTJiZ9PDTtikl6F05pW0bFXR/LN3QrXHLJxcgFJ\nByxfOIqBA4L0lwkPSdo/xOVa0ypGgTT1uuxL5M4nE9Pv1x74kL5g1UjsYf4WDv29Hn//RiC9\niqQlraLrSV+6pIkXk14iuEpEK7zZvZPcI2lcnLt9Vj4oID35cMveWs4o+l4LjyqzSVKrMiAd\nIUcRGJ/lD6cLUzj61PuS89JyR9G3Q1FtXTBdbtCGCnyJFyBdCxnptlgdpHOp4zlgGkmvWUG0\n3GEMBsn3yAguN2hjFXL0gcPDw5gRE/aKOnGDChSP9JpnPSx3CONBwuly72rnaX7iGOY011pV\neAQXxyCcI/35G76cgTybRtLuMK3X/a49SlT25Unw6UF7JN11NnrecYQDKMZR4u08y3h7ehUh\nHjw4fP6ZobeetglFw3Lf8qN9SZq9Dhy80efP47NYofy0pvP+2T+vJFySlx6J3X3hwLntGekt\n2Oc5IH31iKL7u/ZQsBh0fHPn/85rq3Q77EeJu2H/LhyFV2BVjNx1QECSN5B6qecwZkG6384C\nIH3/m5d1JILXcPTzZtein1MHK8P0ubkvyiyIsI5d5AW3dM3CtiRpvS5P4uibhp4etB6/MIZc\nlEqdTujvMUHXWh/JMAZwtMV9nnbnZGAHbYVwQV/O9UR+25tq1+uygVQWGOU3FVyeJEvS5fs+\ncdfZ5hH6n4P9/qWn/EK8sg5COUERO5ArheG+zQQ9pPW63HFZw6iGHh80ZoP39geDLtTCbily\nn0mPMiO6Hh/kzutKV62BI7raiZwRo8jBTKnTRfPZWq/H0x5Dd/vixeNj9sGIGGgmis1V8jvz\nW/I83BAhixxnVOfgWUIcH/GHl1Mk3n9s7ARpy3zDgh3u1KVyNXfPfI+PGfqj4FkJTfsnbv2W\nbymATDF7XGHcFf0dISoYQ0KcyBuVifzzLsBPpfs5pQW726dLdbXc+roeHzMnF1P71gxe5BrE\nR+HyBPpAn5VdfYB5lAOcDurddTMGngECkCLXevm3nbRgd2eCdKux58cMVmNfIHifi8+inYm/\nKLjLXOtNZzccXlxCOHF5HavTSUGlLs6bfDZsRtKCve1x30P1t7AnSEgQOqQKkMALSJCkO8st\nmojDOtBxJSHkNVhsEOqUy4PoQAg3hxly7zd7TuuCvRVdunleqt7rRv1rDBmiUHttNpiioK0L\nPnIgZXTmG0Tym8DjvieYI11RKmbBWSi42wOPF+vtEZj2aI70+yx6VT5S8Zm/UP56DeOrYOd0\nAFfszkkS4hDXiaw4sagB6RGM7TZLWqyz0Q2tt0KvLzniD21T6lpkyBChKo4wdMpi5G/k0sWu\n3MdRTRTj0Wo7j807ugcXDsvDKvMvejNZi1gFKjTcG/1r2SUGhd8ecKgP319lyBrckY9Bkjv2\nMFhwOuxGPxeWEEsbYEEDvIHUHRzaccgql6ZqFatAySejDp/CHPB0NnyLm/GWm68aeFDS8K45\nUhRc0Wdftna9wnyHbeQ9kh4Re8k80lXqYJm/48yuf9/JcVrPKhg8d36N5QZ5TFo9Ic4PDlnT\nOTmggxyRytHXRkrXhGDOE9dJS5PEuga5gkjidt2yccCT8b7r5DitB5InJ9B+gfubCWpy1yRi\ns6VFS0nTCiyZz/SZP4Ctcc13Ove5knrNbmTzog9sloShHJ88QeSJNZ2rWc+p05IWuyhIHuIr\neMZG7W7jjoa5yco9+p8+I9vMAgBTeLGv8AVBuQ6x3RWSwSqG2CFdnUCvRNk6TDpgzgHZOoMF\ndhVsRaNdsU8eFpS2PBRj+OosnD5VlQ6jpx4KQVJuS3LSSqkHbAYjLzvBwoge2QZ3LRKn/Jt6\nAOQRHTol5iM/f8EyckcXlGAqlUU+8LbztChIOHEZudSnUS0g4fm0ZwfiYA3/Y5scbzsCSbip\nc5Nu9Dd7CFGZXqXjffSCLM9AElMmEYJCOAhJ1QBJsd9cnlYFycOjBys6OGupcD1I4BMGuCRG\njXMBSI63LEM72jfolGNn+h49ZJatkSSM3NFONFqAwsFLykO47qP1B1/T5yJ9H602aGGQEpdx\nonKzDqHNIY0ASUCA5iIdEl7cjALBRGeq1xjV9pBcYYqkwAkGyYfzU3E/Btv52sPDcnPphsI7\n2+eRtDRIvrxcZ2ISpwCSNHKcOo+SFr84ahistbam7t1jr7KtKLjEcBPDvdi1yIod7vOB5VAY\nOjcZSP4CKcvJ3Ju/DvFPpDDsGuCPZHuamcnkcecONFWng4TAuHA7O5LIIeHsh3XjcnhwnOIe\nDtrvMJBwlU6mwLSu8NYSrSqBVD63dLsjZFgudiY8qukfVjZUqYd2KZA8ddqxI+McydpYlkLd\nBX3S5MB/WS3DUStIWdUGXXInmIuTxSnGTZmD7hz5JjhV7pyYvwWFGQ3i8ZKejpZ2UPZS0w3T\nptBLg5TNNSzlkJpAaoKO7+QunITRhOWQs7b6a9pv6rTag0SfcTuQdhBI524eDx0mUpwjr/uj\ns53jeipL8yE3aW2QluGoCFLWCQTfYjtIUAFbVpPgqNiXRpFTwJpzHayrL9ooUpAfh0RNky9i\nCZSkBxK+Ceo/5NshWhakwjq7yUuuKhYIpb+p0K5bQWJnZjIpnzOOblZDSbY4tGONNJDLs24+\nDuqutCPdNsEZSUyNKP+g+CPZyDjXtDBIuc+e4ujOeMXctHkMFqqxxTfBBGmMffDkQMgtO4iG\nMwN61vPvyPgBKSgK4dz1ydUrxRtFW/hRsFK1HW3VqiDl3dFkh/Td0m/FzFrMnoyEzQxwLsTa\n6Gof3AlQy7wA29IOEv2TCdGu8uQOyYkp/IX14GEoW78bG1VrglRY0/D1L+616Uj8Xakvvzxm\nJPjeAzrtLqG6RX+FTSymEoXAnYjmpSvQ6r5awH80LKgy9F2OQssYIZWrlDoOFNeSIOl3pgaf\nz9OXIH3hLgihIPsbBCldQXLMbGmOFJUCxBzEmT4/b2NddT4PEj9sQtr7CDgYGpUjmXgQ1PUZ\nKKEVQSqsIXgs0eDvDlfJuJL7eS8Su2w7TSWgYC/74NadQyM0YZ57yx0yOQWHria09JAQ8mFe\nnyJ5p22VvaKSXcYp0HogISZpkCb1RGluatM4MUezou3BtPnLgIUbF8WRJd+Csyhu/eCiSv1x\nNOHJUIGkebbsSWDiNRRZPdr2EVoQpOiPqMR8j9R2V18nyakHBViXBQpT/co+JJOUKCvtdrkU\n7pw8myfV9Ei1f9rMchowRyJambtKAJNk6t445bQcSBWZ5tl9Zj9f/xRI2ozoO3Ngu19GR28x\n31Cu41pW4Mkx0a4V/dMpwDMHd5ToJ2lmhieXBEkZ1Q9UpVYDSTxCKFFkUleUZic3jQxdYZDc\n/n3VYLReJOYuI66rBs/2np32q+dsLkKJaAzmZzKii1t6mqTFQML5Ufo60lM9nrFgK5TjsVKv\nQA4tlCCQDoq9VtYl5y6+AnVGSmjgHBjqGc9BYFuU/ldJEXQPJmktkOg5XJkyc7oSt/j386ZD\nMqc16vnNk8F6jI949W0OD2rzwkAL/eXNJ2jyOAnD6ZHnnzuiCn13XE3aVTUOWklLgVTzzKsn\nJkjnur/Pjz8+RlJKzSYRGixLE3xTJ9psVXndibgILgj+fLzZXx6HzZdiUCBqjT/ujdJKIPGV\nOMtEdgf+353h3eT2C2qeLoElXpaEPH3dEUoCeE6marCSCmniV9RHDg7/o0iX51sICgELz/Kl\n/NK3x8y1EEjy91xSMM2+iESztvN2yzVAYmdc39QniOXIhiN/dLdHePrH/AVLXCu9SM1fKE6j\nuM5jlOblrkiP995xQDPTsCEkLQRScOXzekBkrtDY3gRPAz/8Ok9xR/NsBSk4aXe0pSvMgmjK\n4yRI7R8PyaRlI0kYkuFROgENOkCgj0+i8EQjKh5J0kIgyedrH7At/MWkSX3RHvLa9xx2X4TP\nDZBoxt73cCAmYyDxsCzohhMYID38c+Z2xH4ssXDNfdjkzMn6HNsjmdjoopVA0t5cj4lMlBrS\njfV/m57h0zhHYjmB7ucEZrQxSNJitbmLZxwFkWLQhveY2I5dEPufgpUWUvY5+oUspipTN9rE\nF0folJgftVkC+aERzpX8As2PcM0Da1DMg4L/Q2G+ciE4BAQpJgLPE+yMwf1TFEv2Imkdu6m5\nbWK4mfdroF/QoFXub4PAzt0DhbYMwZePSGIZOLR0H8Vfqf5DrYFPI+8nQzmt6r4+aSuQ9uJo\nKElfVf4Fh3X1w9GjC/CURMMiXm68QCu4Cv6xY9U7UTO2SKiwDfyjbl/UOiBVPHprbGd7zozY\nVGFFDYUc8nZ89u9ZOk52hE97qDwUVjoekME3Rf3gnxE1oT96G0gZf8B/IXlc8x3rmhA9LSuR\nrGOG77RRIYQIpEw2RNq/4+jlSufqgbTGl1/WSiDl0g3D1173hXQwSGM9ypcKknVo9fqoOJwl\nBU6GyrGjldbPWdW7wj7jZTiL7vNY1wO76++FEkuBlCVprD/qXPnY0G70HOc7SZA8WjpadFAc\nMnbeB46C6gsvMDGScoNMeXCClDXJvKXHp7HeTeQtBdJDuecRjKbPkh3qZq8ris2R6AxPLkfd\nAT9UOcK9AtLyYyzY8cAVuR26hOw8/fwf/pB6m9YC6ZlWh/A7MPpaHSTmgngMdX2ilcdXFg26\n6EOq+vJIjEvtxOXEq4PJEPlJOTv7bLn9dGMDaY9rsFzLgySBQOeRtFABkojzfBIkEbOJIE6p\n9nI7LDEOHok6yzPy24P0SG+2A2nxOZLPcJToNR7QNWOh0MvLoxWVyqDNKyRRi5DSoLiO/S2y\n6m8A6ZnuLDYENRoYN3ZReK1GTu3PIuIYwIoRJU+BmJc7MZNnXqsIEs8wEC5R7xw5qjatZkUP\n9Ge1IdhEOZij+ZGw03NvL+wVAq7zTwmSWi9AlAEJZz6U+YAoDg8gAkjQ3qDVrMhA2kGBd0kX\n0AWA6Kk5zN55BSQFS0rIJedIV7wYdIFv4pOvV4D03LNNTNWimCtdJE9SCSTubmSt0uJFeSVr\n56hMRIwLWIKNL7iO9KfpHVpuBHTd+nbHSC7XTpQp6SzkaVKE73kVmWo9+I5sJ2AWRMGd5FmS\nhXu0D8pyZmQgqVopUQcWl7VhHxps4Agc48ZhbSkbxu0RjzmjF9zKZJ3aNZ70aNVyZvTEU4LW\nFw99Hhf5kZwRC1vVJ/Ue47KCx+XERcrsJpMTGoU6R7uD9MRN3ksNQFIrgeToSkyhGJTRbB/T\n0pQp0AI5KHTafVCXL3gP55ClOE8R8c23tI/KUnZ0mENKaAWQHMzb0eKK5cEyIyMOQXKQ9RYV\nQDFAiGp1ovKKLqjdUPJ2FWcIXUsZkmXsknp+joRpZK+7j6A0YIekqBxBBlADiWWvWY4vRCHf\nE3RcemwnwjnsqoG0Q4t3dePbvWUQycquV7DmYmlp/T7wB6KXwQLUoEVP9Hp9moQVKf1gKCk7\nin+Iq91Bmr/sba3D76suTgytysXvCk3zyEu1fNFKXGnUrhabUYipHy6xEveCgj7PXqFwoxaz\npNnJhv0WrFary7SKclgY0mEAVGqbkcRP9okTvoYX9R/iypRnSR8ub1LjSH9bOz6k5QzpwV9a\nfpd6gCTCM0+n9ZK3IzeEM6DQ8KmJdD3sM4c4o8mzeM3nDhdnWRqCCZTKQxNqPUOaS9J6x99L\nvUESHkav24G9isus5JM0jur76ASSkovM4bLYMoWS+LSUCUxoRUOaidKKx99JHeZIAiSWEdCt\n1rEyDmcvgJ7qkBpox9o1Jnz6cAEkLWmnJNPf45H+NG+q1NbOrSF+TB16S3Okq0JMVfvAbKEx\n8eo8zKpEpoDtFVeU6gn1ALoRkqQfrprtkNTEUFV0KNCaIPlZbqmtlS55sL0krEpYmtM+CtBw\n10zGe26svHpeOt8RbAXcW2biFe2ZjOrCA3ofSJN+d6KlfJc82MZigR5i4T2ZN14Pkm7AX85C\ntdLqcxNfeaDmDcJUoqOO6nFdHqtWLQzS8L611v/jICEU1xt4vVjA1QNYNISE7x9sTL3lnxDD\nGkh4KYiKt9JzVvNCkMaGd+2V/zZIMulGIIGbwg8FcAFJEUdRI6kBJk7SCHj0iKmZURod8f7G\n8CwN0sDe5TBKjuQPzpFQyA2aqEeQTvtjWHn2ykczf7J3CntR+xWTHdl4q16U/mYa1b0sRz6J\ny72T1SuEs6Ewvx26CR+A5GtPPpjAUC05mI2Fxk8XgTzx2oqPOIhGLQ7SqP4VOPpdx5MU5bD5\nNB4+4ZFd6A58zWhinTATUjsgqUkggUsZctAUIGsfn+VBGtPBd4B06xv/ojECJ/yAGEOS2MLr\n8mg6Ps3CSZg0aWy+wMD9qA5reCFIg3r4CpCmTtnkMuuwG9z/0OTJ4X/Fys8QkS40IZvRrmjs\nkfU73ljskUqOiH/WPj4GUqRdUgpTicfITnGDNEcS7gfzaDLboP0dToCAKR+ThCU0+ycKtNAu\nnAcldn8tSPNJ2iOl8ARIeqRGDPEPHVqzqMUl/+YgOa+DJCZkGX8iEyBYxiffvR+k+S7pSTV8\niRNBAuMEG1NTAZENOpoYEnsAACAASURBVCSPCimvaNWcJZ8DCVtSUELnqIKUVlBXs1Y1KK7e\nfXziYUWVagorp8WgNIXxGZB84H6YSctC8hVt3xOwPPMmm2H4+MD6Me3BKhBoFPB5+xxpQB9l\nhXeHboAancykbiMkPg0SWr5wKnpF4pXl6LxIaURZOw9+j2fBGR5sVsYr4BzF+YeEk2ofpF8E\nSbojdkLsp5sVTp32VAssG98wy2SlHJ/m+zRt8m+ycSCg0JGLOR4BRmywFhIup7C5fZB+EiT+\n5vwu7107SEpP3Fbsx17XEToPz+ZJZMVYyKE/SPutKGtHlZXtF60cwrhUwEZdgoLQglb0Z0Dq\nnrjj1Tn2Xy/Rqbl5T78eR3zS4ugt5gaEMSZBSlqn08vrJZkXgfdxeCbaxADQe61o9AdU3qot\nQBoZ3K0F0qxpT6Nkr2jIaKGqg78TM6nMGQK8TOnIHUyhaIeYIBfTCx+QQ1VA+g2PNCDdwEnC\nU1YvfQHSDnLcqHH00LS9MkeKYtbQWJ1LnsugKE5mJQTsn6je2D0mIfwNjzQ033D7JJRWbzIX\nk1jNg4bJcGLW7xhULOjyATbp2SEWdSFH0g3iC/8y5ZUp7FDJH70XpN79DKrLcKSd6MrqTeZi\nwkGBEwY5hrAgTE8+73CzfOvJv6WaEgBcGOH/Ig/DWiLGaIvOEK+9XbuA1Lmj1VdkWWDdtQP7\nymGqC+ZI51t2tmF/4Gc+dEhKpKeMMcZhXtBCcYR0P8xd8UpEcxdWqieiU0OrtgFpsE9KiKyk\nanh/ADdBBDu/BH+ygYPhc7ISCVbCgoXfkR6DJkdU2skiyeZw1hXu4W6fNPcBqbtPqinlotdS\n6ZeTVDEUPG+XyroEDgpciwIS9zGO2zm6Jl46C1IEiPBFyb3rtBFIffs6AKRa3nZWDUj81cFZ\nPvRJjnPkU5cgIpDQzlnCg1yhiP7YJ4i2C2rHcojyTY72AqkvSVWlKCopD6+BFBfB4EuxYyzv\nWLnwQ+EwLrflfJhjEKUFFKwbcc+JHExJuJuLXHYCqbNLqisGw1sxur8AUkX4KkI75AMmNmqN\nQdJa1saz1ZR4wDSQcCLIlYPFDywVEXfA4bdLnf2B0O6RWdKpurH9fo50L6yYqnIX0RQh/Do3\nnluU4mjQycqYP4lA0pzSCZKcFiU8Er6KaVLhCBXtBdJzJNXpWw5ekq1gHMGrACkYJrwYpNTj\nwLxxw1VOJgcEMXy3ILYLm9C82Q+A1N0nda3t1I2vgb5K9voCsfBLzJEii3a6uyLDxo/Yrszs\nYeLE9gvmT87r34wASaurWpuB9Mg0qUX65ZD8LoElvQok5lFYfObDo9S9BeQgRIYvnuVAMkJu\n5kGh6ghZMWrvN+ZI/rEFDrUSQXflLjDdfh1IMEeKttIrbVS8hScWc42EoZ38AJLrnv7gRXDs\nocF7GG0H0pC7zr+d2TDdAolPnt/EEU+E8Y3sNbuzv76afFGNI3RIrAZKccsdmask1R0e12Yg\njbhb9hvrjb9Beq2tQk7J38SRpwlOSFLFYaZm/mwTBo5h9iKkwmHkxqdbEhyo7N6XsB1I3Um6\nH0/p58L2OZKD+O51ojSDJCme6Cj7ok8JXQbOY6QrZ3syCmlXjKJ59VeFUMApWNZpN5D6d9h9\nauTnuNod5VyVKmj9Giril02VACkspX2MgR1NH4M1po4REe7KiGObOXSiJtrhqrD9UA0kARJ+\nXxX7hXPVb/rwrojOIwN0fk8foB4ShN7GRUpOtiDHoZzjcAdZkwzyfsMjDSDJC45qY3gH3ud9\nFHwvmJfQm/QopUHigbJcYMqDNqVGXDqkdyuojbs6z3xdk7YDqXvG+mAksFRBcSwBpPASxlNa\niWc0cXJLPjmkCR4wNBP4hK5Ec0jkZrTPNOcm6/8NkIauE3J06sxNjkXhofObWjqyljpfwhPh\nhtTBaF1nLueqJ7b/uEYH05xcoAAOklXCEf2Z0K4vSdHDGxSPlLJRHHi2oWPXMi3H5RKr1Sb4\nKa0F8kgs/kqvvYmr4CMLEy0FJKVZmlGl+utZpRqc92a9G4LUs8/HIZ+o78CzBxyl7Zl9Yy77\nBd5QvmVRDv8LPxlNUppfxz5M91Cv9DqhsVMaC8kYWFFX6nKEYXjH5kj+V7J2fxrwmLsLJ4zp\n2Yfu85E6tqJg+kxZr6Bl9prdC2fP0QfSzvtTpXcRVtfRh2mfqdfq8DWyfM8mMnL4z3+0Dik9\nJiLFHMxA+r7Ww/PvAuUQsVCRlX5LEptVwNuC7aHBqoFTcDz1llwttYtoq9hD+qe2VhZhXd1m\nwR6OsuPHRi3khwz7BqdMAenNqMJA4tVqZ83jc6UpxRF9AjECfTlNjYNDEUBUGoWnddZBhQIk\nfi6GEvzfO9JBumxeHk8FxtQjeUJhHeTRoof4jnmjimCWRkqJ7e6eCg0kXm98Pjoyq1qFEeEX\ncsb2OkvpPMlZnmwQNue/U+wBnu8dp0ZESDJG8mSS3/kpbW9sNVpMUFsXxVxxIcpfODr20EGl\n9uJNwclGUb6fmrYEaaRLkmZxWn6iOSde+dcAsTar62+i9fdfviowoJreoq1x+4Pt3PvwyA7P\nwuwdfXZHsdkxeETtJQOVR+JKiIvzVX4GFg8qjldE0E+BNJCk2B+l/Qj77hz7ViDGOP87mEpM\nXmfIKrPmLgfeUoATeB+2ywWbPPV/AZLaM2yXnWxKlh4de7pncBBOHFGmdvg6WAWqM4KuNBzt\nJQMpXS0AlG6MrJRdgCef4I7DsZ0Pn4QyCGgqukoWyib1ZIrkoVxoP2C0V4F6dGsl3LEgPWXr\n1x4ymIvNXxbHIsWwTka4HkO6mCRvHql/tWjzdY+SRICAJTVJkXdudIItt+e9NADWCY9BnsdX\n6ieUAXO8aTnZvoGl+jB4VBti5eSpCapSirPQseRSI5DYOSciyUFk3qhdQRqVAZeB2LW1al8K\nROAr1pJ96WwDmUQlSFdTjtkaA4lFVyFI/NyLG2rarBbaqGe8Xt1Wj4X2EXMkVkVYHGPqVFJC\nlBeeWWKjofQ7IE3td9sPV9AXrX0hUV2yUINN0/marARnaRTZRSCJNlho1xEmdr4nq0cvqB+K\nDOUCwJ1WvKU/3NNF1AT+6DCQnm3Lgam48+uoqgzdCp1gK79G8ieegSQBVmZcju/Jr+37JtvM\nd+3ykxRPOWnMyg7QbwoDmatRXFJTX1nLivvh728Pwq4gzex4g0fCIEK3mYgSirAwVIE6Sl8o\nC4GoOXnhRmmQGiCSPBptrREVSsJRsYuxBS+Ch8HG4uqetl+bz+ClXUHXJZB27QvSvJ7XtgQm\nehwJmzzjhmAXpI6ZTNWpEZEL4n+qJrGfI47opNxymi8WhS5RTqMyHEPKPR+VZtMWw89OVp4d\nsK7UqsqitgVpYs+rW/p8W4fziUWuztF6PthEUU2c2yqSJNNiUGPNrmRMOJ25elizY7EJGSvR\n5KjSy4LxQ03FTmnNizqR6OD0obik3wNpWtfzDdF39vmmjvRjiT6BQ5REO+cTsEcDSNKV8c0V\ntsANhyXX6lxGyWHiyYEVquoWHTfaeqLz2Vokho7OV1SthtBXV9T2BWle17MNkYH8vX4wStmM\n+6wjdyFJEJ4RScVzvkP2lGxb3Skcz8vsfWU46VhuMlUork82l9mTOT2teBFj4dcuQBhIJaeU\n7WBaG4M0re+5dpjJf0Bip2ylsBY8UAjPrCdvKwQb2MkNhYaTblIWAgPN1Ow9utq43/lOefAl\n6RLO0ZCl2/dOgAOdJ4h0jrK9y2lnkGZ1XmsGT5rw+lkNVJqqwncV+iThgRzL+6pMipbD+qqN\nITKeJP6sAbLFXM3eey0wqwlY0U8milHCnvdKtgWhnZP9TTuhDhwZSM3N0NdI3/eVXzgKudPz\n6pIWFjGzwD+herUwmYsXRconfXYczCZzneYtiNU/mV147/SaMh2LdxW9pnMPBXHiMPC4cKLF\n+EzydHd2dGprkCb1XrTCwyr4Qt1VpnRKS4NEu5Jt+JTpgSVxkH2wd1nsJFyiwnO3mbVzqlvu\n1dK5tCv2QIzoOAwpwOXYn8iR50h1d0d+e5CmdD94YJcXwcv5DVQux/skx/OnPgrw8cuNLIvP\nPyQITSAF9piJ7ISfTGfTZO3wIqsq9w131UnysVsiVuAsQ8eEIAnf052jzUGa031cv3oc50Wi\n4wziaC5Tf8k2vONJKXK+ggF4sh09wyZP+mUPw8qG8400SYwmwKlQeXgeiPua3TXZn9j6L3dD\nIR6+YyAVIPqaIwOpqpEDbyVyx3n732dp4wcs1/Lw14ovDL0dt3TpB5J+h1K9lZ1B35ZzZdgw\nMiRm9jX4NQkbSAR3yIPnw+QJKhwFsX7j6mzntDdod5Bm5RsQFkePdrimPE19qChL1DAjYNaQ\nNlCwFVlXsaVclazmaLqETaYqvwmSz+5J55aQhOsV42JxAmL4jeBod5Ae6L9zcNfr319H21dQ\nCR2zC48TJmbBCfONzK8Q53E/A+1mita0SNWgk0i3n1FyTz73CRliUR1sx5iYgBnC0e4gTVy6\nylu9/m3/CupBojSUSDixAupuYo4ee6hwB09TLZ+x3nSL7DVoFjqebj2r1J5s6qPhwNLbHqnh\newziaHuQnm22+SuoBclzbqq/8WD6gkms3B4IG2HbIG0XnEnd9UalFhMTHY9nEr7xek2HhMeX\nF5AubQ7S0ySN2tEx71J97nTB/IVm3IXGyAx9q/Ere4wCybFAN+2UgJ5wlkQb5N6HgXSq++8l\n1bU6ekdH3ojHJXn3wl6hFnBL2aa8mF1U9jDoaNCNEkj5U4K6B1WtzpMUmPifct6Jfx+u/ZBV\nbQ/SQ/Oku21WdTawMji1lk7ySpyVdzL8U5ykV/SP9VCrns2R1H0SuxVapFeM4iQ4wUknD5fc\ns4NeANIjB3G/yfLdTXKejq4oD4X3yTgryZFnLogFd2WRd/D0Kg4Cuqv35MvZWESFj/5QiaH0\nA5a996QTRe8AaSeS8nc3oQE6/n9+1i3sXrGJteWhSsS2fADcqFM7Kf6Il+QhWqXk/gozXov2\nRPZbKXD7EQ2RXgHSVi4pRz189/ykC9vr1rg1CNhEn+drnUQRJC3I5Jsun9tkxEH3MJIDOvKz\nJiUU7MqRgTS9zVx2BCN9Pg8Q/95sVGmKTbwI18p96VWnrwQSUtREUjRzJCpKqYc0TA0dyMpA\nmt9m8kZBcBBk4HjixclTJzmq+87enkdZ+ucYlcb70PZM2Jmqm5epYSnDWNcfUe1X1YPaKnGn\n9RbzC8wghGmg9+gjuuzfmj279i/0xQX/j/dJggJwF11WDSq5j72BFOvRlULf74iJs5AhunjY\nOKNQxM2WR5A3qi1HZY5n1hN1qMcU7pZuRpxlIPzN4hR+2vP8+w6Qnl1y175jOE8Cm5FfdXhN\n8TuQ0EIdSzG0zlNkd78rqLZ+9TD5OW73CWi89i7BV0+reQtIe5EUoo8G5yCnoFD0PUdnE/4K\nm7D6+3V9VVD9EEFycIU43MvxY4BXNlgsBs4kIf52TD2e/ZbeAdJusZ3XSGJzCaAJMOqQsCOn\nd/0rkuz36qormUwoaLXw7jnwTfxzxEtkZgQjvDIXl+CT0IpDqNRbQNos3/DZWTwLggyAr1j2\naObxZKLN/EOQrtfL8m6QVLdLrpdqLZh2UXdmbgiQOFtBXoK61KjurKLTatVLrwFptxx4emcO\nEvviz88S2eQKXTvIUz6e9FtJ0gBp92yprJ2I28SHDDTmVETIxipWYzvATvF3X+hNIO20vuGz\nc5okTDx4Oj97Tk99dEXVEjKOI9rLJeWraaMMo7fEdp7g9IwW6kXwQRjYtZ+ICnoRSBu6pCt9\nF2bx2Fct7I/RcwMkVrsXCLXblNZ6vketbWjTQgJBpL6542Ej5thOilI/vXNXBtKjbR4cJvmR\nYpgcJIpjWiStDCOdOw6pHqTQttt6Su449ius89wpcdrSebuuDulVIM0/mK7RZDtIrZZA5sNT\nD3cqivsWbGN1hvFo0J9il8HtXF40JCOM4njJ9PXZbrdPgN4F0uyj6QuS/C11bSUc2iRZTYPY\nlRkwtbtp9dIcif3toOloj4pwT/oZ2iBiOzorOJkT915n6Y4TLulVIM0+mt7XgY+DH4JqrBjw\n0GutRCbsjkPjPdD2piqd+upEUZ51yzR2we48a1ewRJVfCHkM7OA4NRlIOc11SUNaw0ojj8Ss\nphEkPDnDK5lgs1fzadsPYzgMuaKGyCkWQUKamAONeEAmCSEXFQ1J6qt3gTT3eMa0xR7p6rnR\niuimKSxjJ2yM54jE1rS0l4Son/E/ldN/9bkAr7N6wp87I8xtQtxKaQYvi47myEBar63j84Nl\nIUgs4Bd/lYUVAXuOG1/GlpUGAlhc4jM+mVPqYcFh5RwJnJjiZ/hh4Pkhy9AIjgykBdu6Ug7S\nzgJ8GlbIMdPmc/4iSJqdhxMep35GTenpOmi2wqIJFpwdBkTgiLASnjulKRwZSIu29ceS+MKD\ns26DKUS2jDVkQVIRYK5GfuwgyqqvpfIwQvNHfrBR3OBgMlVQudF2vQ2kmfmGsS0dwXoHDGla\nvBHtyd5SEiw3R9IRYMEl/xj9ZVzca004OiXUHQKvhhPBnRseUey3hnP0PpAmHtH4lqKFQ9e/\npWxXIGG2jmBg8ZCyE3sNt/P/58p63la6a2WJODEECd+x8Bc3iTftWcpqvQ+keYc0ASSNJOES\nqiVisipz0huJZlxyoywrUoT1bejlGEgKOxjnZWO7iqZu6oUgTTumGe2wNujk671rBSmXJUju\noxleOnuQmk9lYKnuCw/tAn8j3vu0PzKQmvUmkPgF2r8G2Vm4GDZxMZO94c70ioKt8TbnHFp/\nQ2VqSTrUtL8JUQrLfnHYRRlIq7dzJh2Ovx+APn8C2kPCDQIa3XfIbWFsdF+JiE9NKJD5hy6M\n+l5JNWtA+KNgVoSVK7yN5OiVIE2z8EnNHGcy/PP3+cQOsBTPXZRUuK3a/osqUwvb2AfCm1C2\n8JZ3DGI1TgqApPut1oZa9EaQXsUR6TK6Aw2Qpx5Ce4y3qbYe7ae1W7ZAtR6Y17AP0ZXy7pcq\nj3pTAgldlijc9ZlBsQyk261MH7rL6OBWGgFSaJBVQVN1oVv1sLsaoMfXf9z+8zXHTQWIiMgu\nTkfM8kdvBGnaM+4eGzo4QseTvsFVz24g1UyrdPdHmTaIQ0OQyj2MWpLJBMdRZbAgYOH0aZze\nCNLbGlKaPv+h4AaMlFRjpRUg8QaSxhjVIz0Ogu7Y33IKVSvpgXiyhVrDNARcgv1kaA4L7Ro1\nz74fBCm8LV05u0c2qhhtkTaH/8sWDj5ij0sQb5EhHpk12bfzghtyQfh//NyHwBlIjfoBkCqe\n7xApkRAocESeCKc5akFej/AJ8CGPwa5SAFW221E7gSjZDT0WYR8WM4/UrDcttks1HLZcDuSq\nJk3qTuBXciB5URAcUJiODqpGlEq9YHMfhSOOp8CLL2Xl7muI3gjS+11S3HDBUtgJu0Wwk/MV\nJGJagaefsW9hDFefb2BOTKLE0oGiXccbFG5poF4J0qy03UIg5Z0Sm9s3T+7R5C8vkyvqPQvg\nWDZaaZkAKHUB48pgekR0BC4IIIZ/zv93fwCX1AtBmnYhaUorpaalr1FNJQiDmloi6yvdBSVA\n8mJ6H7brIM0Ixp/tAb5CNiG4OYLnFmQW47rvSkA3Su8Eae5y0gcUPP3O50BiN15/3t4zp6rI\nzl+WG3ovacQYAxJLVQ07qD4O4qBNQRNzVQbSPc2w8Yd+3Oxq/Po3TEyHpgKOiCWAR4HEw8Dc\n3AfBZ9ObLKAY2pEzglaYBwreO9plCkcvBWn6PXfThZdk8VWzXTFJ0OcqtcrCwYvkil7u54rR\nWL4hCyj1Gc8F6GClI4o4ClzXQL0VpNHH9TRHMUjKXIOnfpGne/ZE12Xjj0SNjvERV3IGfhCk\nuRJIcWUs88AyDOQK+YzQS45aU5ZteilIw4/r6XFjt/ulIyNuV2C7FXkyrSafgiPwhDm3xZIF\nwcQtlyNRtl614f5BfIe5jkBNR9yqpw1ilEZ7jKfHjbINmVOttC7M2rVYFARTnl6DAuKT7EwK\noRf+Ig1oyv6d/BxyEF4caeiPRpP0tEEM09BcwKOJhrMH+FfaQMgU0R9ly6tV5FIZPvokVY4b\nd1BjiaP44yA5xx0QmzHFGBlI9zTQ2J8ftYoe4MUcMrZrllIt4iJp8QwdNHrN9KFpadXpvmiX\nf7D+KHJj1Tq+c3AqGajnTWKghqH0/KglewAnY5aCAGtsz9qxJIZLmSK6F8oDhG2ImI7P6zJd\n4WsV6NBk1k6g5B27WBtPkY6mM0i7njeJkRpF0gKjluiCzGr5MMBpTNpReiAX3IlpFDPjqBoZ\n1BW6wn3ptYEdDj8wzxKS9FHMUsOBt2sBkxipcT8Y8bT0HnB2WEqYJ7cCGPIGhtXEIGluB+cv\n0n/pIJXkgv5exwaOCWFRuIkiu8YTyA09bxFj9UaSjvCx4H9ylEfmZ2Z2CseJPjepfICFbiMG\nKdqRWkiRxELAAkgCDDi4wL2E73gUi15qmkN6P0iDTP5ZkuJNMJ3//I1JBXk+Btac3C1t1MKT\nSGNUduTlYDEFfsajysLsiHHHkhcRGkFs5/FfpewEkt4O0jifNKbam43TBEW+RpMKBAmoor1j\ncTdWBumKs3zadFmfckcnI0ExqRIUsY2AUUAZ28WSDV9ryCEusdKOFE5QyAHI87bDHITHczeb\nhejTHg25FIGBp6B6GzxDAqSADX7EmJWA43Fxm3Y/0rcaEYU9PWzarebehQZ0bfQ8AaCYIeNI\nIYnFY9k5Eq+EmsOicntWzNV4Ht/xGvhGzz0RY0r2xUD6Xt1Rej5rFz1HyHswHm5VHuZKoTlf\nO4l3Dl5YtUQZew0+inpCtfLwK4QgrYA8hURsHKdPYRGgqYXgb/S4RcxR58NcYNSUrF14FkZH\nxaI5YVMyF5eO1kQwWMZAtBBP+guZBlEF8KDl4IKPYq8X5e5KzX6jBUxiirr6kBUGTX1sA1oT\nZByCj3E7fFoBEgGEfi3fMz79UuVrrgs78q8+ooRn6a4DE+kFdFHB1kKb32gFm5ijjig9H9kl\nvjhuSfqpPz5pezJH+pvtwHeLUg4KDzxq1FwJNp2rhCAA6kLHQhkJj+nuMGUYpMgttOukfva/\nwKillghFc6Toc5rH+1KywQcgiSm+dE9UI9/B6yCxgnqroknJEXxK+6rkAGYOGTvMI/VSN5JW\nGLX0YrvA5oLPg88cmmTWwcgEGuMU9qei16sSj0mUcn7Qi31Z/yT0cn7khR/z4f+PobHdCiYx\nUcramnv19KhkSBcwT+YDMBwzuQAzOIOnK8T6qFrapMy1RIipYUT7yDgv6C52VHYa6w7f4DFG\nk8HcIfbQAhYxWz0OeYFhS3WBGbnnM5HzvI9zFzlJyZIEZooGK8M9ZrZsB4qpFI6cmJhJX8Na\nZWGfACmuD0qzWSLC6q4/DgOpr3r4pAWGLX9Hkpdegp+U6VSO5eUCh0SlzCF4YcwwG+EgZaI6\nHkQyCoPsAysMBR2HDwFibF5HB/+DHa7abY7UXa8gqdgDDSS41MS9FZh23s5wb3+VFYYc1hd4\niwgk1jvaxjHVSfLYvEhjwIyMe2PGK48hh+l5g3hC3zul58etFSQKzjz99/nICTNNVieNUqLC\nLJfmKjpJniyc8x1PtEKSWKIh5Bi8YjRVY37s5U/DeUpfJx16pS3ud6BYIoiXcD7iIQS6PhAc\nZGuT0yC0ZcrUsY+Yswj9kePYYBymZCwcTaZ4T1gTDCktpsWGBvuj3wXJ97hVaYHb+0KJXgnr\nITOWH/Gr/16djwtf5PGfCA9lK/gD5llYVYgAYO69BCk8Bn4oMVCwG4SvngAdPUP6aZC+B2GF\nFQ6BtJtnTzmyTc95QXckU2+eF/DRbtLVkJMRl0cJpLhG6gtzXqK99P4eW2BZOj4TCj78+2xs\nzu7HQfouPlsQo1PpRQ+OWxtu9zR/ooiPf+zRBQW1MacDIEXuKA0SrwZnOByeFEf4KecWXlgD\nmAQxkMbrPg7LDl3yClPCKlmIpExJREhHFQE9LDjj/ohbt9Ki5zvw4DHwlpmJG2vPe4fVUd4E\nzgvnZwbScN1FadWhu9OvMEIKPpJGiBhQvo78UsRRKjaD1CFeno0mYlg0Ex7i9AqyFuhhpZsd\nzdGy1jBV9yK8RYfu3nnBObI7uZln+M5t1yf0MVDjldCOsghxm9z6RUwmegAv4c5sasff80CT\nozWWo1WtYb5aWXo6+53UvW7R7Fxs5aESbbw+CpBBFyA8ks+4AieMntcdtxbux64B88iS+0oe\nKg7/sha1hifUNBQLj9sXJEUc0X9iq/eR/4nJQveW8QVQidygtKbs5NHhOB4Zsh2IZQNpplrG\nYt1xu+splamIDpKIliJuAoeELiLdan5DHNoFXpAcHxId5SsMpLmqt8GFh61jyEmJsGC7lgeX\n5swp+7ITYRVwfciHfgj/z3a4to2Pwxe2iCdUORxLj9o3nYtstjBND6M6AZIyv2rrCksNBtuR\nXc/mbNBl5pJg2/gvbGmTeEBVp65V8wynvuhcPEPJc4C5AjBrFxi611IYdV1JebMI0hAkPqsy\nkJ5TeUTW5uiLrzSc2JcIgLSDmK/wnPj5sQ/oLPUC40SVJBE7YvkAJNjRQHpQhatKi2PUEaQi\nARIkdk3XYabBu5DOYieIE41ksdTVQxmk1UEehKE2gyMDSVUOpfVBut1DafMFAtBdYI4B880Q\n1ol/a/uAGQuvg8RDR0+RpcfiCDPlFg2kx5T1SdN6cVPtJLHphnBI/KzvxV/obRAn8kYI0Fmw\nKbZDJJw2ucKIj2h3+Iodg0kU5RxGr2vYwCieUmZg1h+zVqfk5Dn92oivLnrHojr5p2MciX1q\ncw4yhx5+iE6PtgQggSOTPRh9N9IORvGQtgbp45TqYYovep6bvcpQ8Bef5DtGEkZcOIOq8ksA\nSsQRr417JO9EoVGSRgAAIABJREFU38UMCTs4fM3qFkbxiDaeJJ1q8Eqp2RAL+DIgEXB8jg+x\nGcV6uINAJPI7ggHZRxH10XZRA6XgqX8OMxPjtIdRPKHUyBzbjNnXIEUfEy6BYXN8aK2q8E5U\nCboQ2C0iKe6OSCzAJSuPlXCSuE8ChMY+ZfVPuxjFdOnn8zM1vsmgVbskeY5XPvcsgGPM0GdX\nmkzEZBiKeYd2zxgK3gTNqSAJUuVkTpDE3ON1cMdhc6THpNnhIf5ZXS0g6W4heofMXRvQ9ZCJ\nxyCd76A0pQOoTNAfr0d2zM0AIz7iDr0ceC6Aaaw2MYlHtD1JlS5JsbRkZsCx/7AgWC4BxbwO\nshJuTYOkJfgwoKQrvwSxpyOQxF0x4PjIbhOLeEqxJe4FUl0xnJKHW/SyIrKCyA6sG2ny5L2i\nSQzzacocSWmUiSZpAA7N12ia5kTb/wO70RxtYhHPKRwfAGmPcav2SJ5MG7foIDnPOYKJDlsc\nhzaMyYQwdMQYkBUp9I9CNLY7Zi7I7wnmru3HhMDOQCopIOZIfbCm6l2SzJSlQaKwiW0IiMHZ\nC5v3C78DiYY6A8eiLvI3NOOCeJN9SrhO4MhAKkoQc6h/rqtaklyATnKOxBmRpdE/oIOjj+F/\nVAefZ5U65wUXHBVCHuJNF5T9W9Mwg6M9zOFhqW5ok4GrdZyhD8pYHxUVXikM7lhVGP8F1Tv+\nJmrG0ccBQ8zp0JUpDDsJohOkWmC/0yb28KxgkFLOaV3VL2/I+KB00QQAkiTHHZAIDBUktUZS\nJGGESEEfo4kFnHWH9Z22MIfHRU+oZ9se6kuTGjrZEAEhJzmQZDrCiau1LoIxrIkzpiCETgkb\nhWSg/PSTaag9rK+0hTksoGQifGmN62MSJDZH4WUdpfscZAXkLCdVfxTNiXdXm+iNRLpB5hfH\nagdzWEFKiLTB0A3sYiJm4hbPN2LujaUZLn+D1YXV570RD90YOnKPY0rG7k8bWMMSMpCk0JrD\n7WyGQgXZDmy6dO2QmiOhm4nTdcLvcScUgDfh9gnQBtawhNKrhVZWpy7GwCBFLtwOxYkjiOBo\nloQOCT2L0grAmPBEWaFjNI+0mrYEqRdHPgSGroWGH3hh+sH1U+6VHCTbkCNZGSKZxiTLEL3v\nMwglrW8Na+jVILnsaVsk1xg9OkgwO5LxnLhMSj6LXaoNMwPCtymIpGiK5kiVY/Ct1reGNbQj\nSAfYVkGRL4jggFfHSwNIojyb/F91hYbOriuF23gc5rCNkJOEn0qBNUnLW8Mi0sZp9bHD65OF\nYuzVK4Gck5vRPiFjJss7Jy4Sha7CgweSV02V5F18ZZW9qUJoJkfLG8My2s8lnYFNmSRpwko2\nmhjywppZMBblHFwEErkIOZHy7D9h+FQJqwjfRVXrhLUN2Rda3BjW0Q+DRBc+YWLD4jkVJNgk\nZkYcBZmR0+ZIYfu4cyJkTKg4Sr20uDGsIzW2W3r0xHwkW9AHkV1yD6QIYrocSE5McCQ07FPK\nTgQkBf7JczZSzij2U7O0tCmsJP1ZKLN70aKjco4UmGw0RwpLSpBS5WECRcsOyAfhxSTKHFCp\noAJ0hqKi2rnSvC9oaVNYSfpALeyTDoqc8gpLZPeA5DXjUy3veOngH2CPuyn2D1XgHJuepb2O\nCz9izmva97OuISymxEA9SNIRKPy4shol65YtDiYa5AWCvwkkz7ILFBeyjJznONGuPCwkMpIc\nxZv/yppHWk5JYp5BSbnR6N5dHsEch/mE1A7glKg8j8IEZpQJZ+btaW4U59+wMxwOxlHSHakf\nGEgLKjlSs4dQcz/XB/xNZW1Bzs559COlHSGZgSRBboOcjhdkUlG5kfECnYnYkJt0auKPDKQF\ntYRHqv8RtJsgiXfZ/aQJY1r6qoBQ4aEjIkFFMVsn6gtJEZFeCBKbEnHy/Mxcg4FUrdQkaVr7\nBYig1PVvdb31yW+x18UC5tglSMwfXRuchAlrQA8WZMgDXnQfFAAVRoozrdtAqlYibze+XTWX\nkC7OXqtENt4Q2uG0iCWzWWruKoN/80CPMSeXC6V4yYhmW4KtqyMzgwUDqVpPXUlqbeIPutvd\nglN7sZxHTwQmzf0B1iXQuQp4Bh/L2fEEXo4bdTPVQmxNtW0DqVrlCf7Edgu73O9VHUeK0Xuy\nY+5z+FsWBzL2nNjxW9Gka65pG0jVeuiS7K367/8gc61Cy4V8NiUa2NoFZIQHgwxGX2YoTj/E\nCAGLnz8mW7aBVK2Hsg33QBrfL93Y6ToTC/OY3V9vzhrIZ5VdUb4EZi3w3fAfRApkIFXrGZDu\nVX/c3rNe+bU6nlEV+CECybPCuautdaKJF/wxUQZStfT136NjqLsgNXXM1U2Mwn1US2ZeyXvh\no/jUyPPLtfh6jyS+l8jazZSBVC3tjqThw3ezhbbdxKWk6p1CGw5s2zM0PHHnkSAfwfiFR2Kp\n91MTfhJJyECq1iN3m99soGU3bo2NOykzfo7SWTDmhWXPe7EEa/34TGmqDKRqPXEd6W71dR7J\nsRkMt72yFSruRCHC0/oFCRJb/5DMpDdR5IjMM9NgIC0r1TYHx3b3a6/Zk1b5SJLKkR4tY8iZ\nd5S1wywAbD4rC9bZ3ZEPTwkG0rLSQRrc5v09y7vihZfAJRFNyT2zJs+mQ9nLP9E8Samw0lV5\np8SJt8fulgykas33SN9UXgUSN08PxlcEyYl7yFOm7uVbMG55aTaNR4tnwgmSbGqqDKRazV/Y\n8FXVNSDFlntup1d1P+bFspeS9ALRlrAnPN1XL6XaqTKQajX/fqTBIKlXgj7bfZ4jithy1g6X\nR13kpuJGtXeJSVg5/uOHMk8GUq2SIE1vsW7nMuCKReIH6Z180tdUWjgtF6JWq/ar+JAVmywD\nqVabgVThKV2QaaiyPr5IlS0EahBd54F34cXULDW6I43SErNlINUqZZj7gsQvnlabX5yrbgVJ\nAyPKw6slk9OzpydI3kBq0PtAIpNsfVgDv/KkGXIeG3VbUI+6KLa6na9G7pYMpGpNzzZ8WW89\nSbTWoFycgQNzqRYrT7id2KtVT8TUVubLQKpWeqgGDeK3INUVc3yRQbEos3m+0FpYf4WhFzew\nJoKpVFx+gcDOQGrQbJC+rrWepCu2Uy2QDFM6Dh8EddmpUnL+I6m8oeiS7yMYGUgNyoRKQ0Zx\nFkieqNA+9AhYeMEnelXsOjb8+qKN12b9uVj121G7KQOpXpuB1Ly/ZoUY8uVMv4WN9p3VtIOq\nBzkykBqUGasBwzjNIYHU4A5Aiu+GYCsX7oFTv0ND3PftoN2WgVSvV4KExqenG4I7h3oQ0kaF\nczHD+T2ekYFUr71AquTIS4RUl4SXmb7kpFiDtjyhqlFW/iEZSPV6IUiMnlQCHAGon6uoVKhb\n4k9kGd8C0uwncAkZSNXKXeDsP4xzIjsOEl2XVcpVzlMa0g61/s3vMEMykBqUG6oVQaq92xzj\nu7Qlok9qWQtUe9U1V0fcZraSb8fsCxlI1coOVfdxnJVr8LhgwWcc0uelPrjLX3xVCQju1+Vs\nVDUJhZ+SgVStuyDdeobk999Lw7oGWvyTK1RMRCuf3SIvfIpEVQ1Y+iEZSLXK45C/WNs+ytNA\nIl+AyTmlCNx45MO1Pj7xd+OqhPRqu6jWQjVPyUCqVh6k5KdH9tNbjX1dg7A4x/6nlkP79eU1\nc7R47t7KbdWrtRR+SgZSrQowpH/1nL2mdg1UKF+lTAWByaXM8HyPt6+Ch6nMxyWRK+6pVVUo\nxj56SgZSrUojlbrv74B/JSmyhNgSvr+lQ3uO/meLA9cCEg7HCYKuTyGua7yLrx6Yhk/z+309\nbndlINXqFkiJRIOgKS7xxU9XyqZDaP8QhTsmApeEsR2aJEyKvBdxX41F94rqblTylAykWhVH\nKiqQT9flfn+83023ccyogcSzZJjlhtTCWcRR6cD6Gy7Cqpavbs28y9f2lAykWt0Aqap8wmXV\ndKlFH//098ffzQaHuOGAGyufB/H5Ed6xpNr4F86kgqP6anoPWoMMpFo1g1SMBY9MqYFPcI2M\nDuZFZJQePBPbfO3HHBhPcBdSa+lg79v8+PXh4zKQatUKUhmFHEgjf075Y3pUOwHDUWIXaR06\nqsAp1S9g6DL/SWvUSDXIQKpVG0g1GBSuMM16QD9OmpgL8jxrRxuDdLRnK3vKnmkgTCMHqlIG\nUqUqwWgoXsxzj/1usHYn89qejJPWvzFa2GUo53U8wm361aB+GjpOlTKQKlUeqDDRXFPnzdUS\nXUQkeY4DbPHCS4UXkM7P6/lIFeuB19BRqpWBVKkmkCoRKM2DJgV3wqLPLfQJfSpy5FcxvOJU\ntvYOxOgVryEDqVItIFUPaomUibMkXFTnBUdJIMQMKvyYJcl99GE3PZ7y5jKQKlUB0oVFQ76t\nWHLk18PqdjhP4rZJPHjBRsmym1j4Gq6BI9QiA6lSNQNFywd6DevwHwR0fFJ0XSUC8UyC9D3F\nDFwbTDd1XH1ZQgZSjdoXv3UjqVM9atXOYSCHyxcYSewCk+/hO9pBOSraHDdATTKQKhQt2K7Y\npVfTnepR9LFCIgmMUrgkKtCMwffc5bKCbL3FGjKQKnRjkHquOu1VlZT7nO9hffe5hV5hi4sm\nULUUfHnx6Fp/cRxHvv4xg9MuA6lC7YPUc1jHfEXOXYETe1KDnCMpdt3ExS2SRHmYckaFqIdD\nxuaODKQKPQzSEJ/kPsvtnDypX1bqgCjNuvO2H21Gr3ZDsrsDBqGjDKQKPQuSH5K8+zNxcEnh\nR77F8pWidHFX/7yurnXCthoZSBVqHqQRdxP1Fl5T5Zvociz6kYI7YoXiYDC4abCOIpwUdT/k\nkTKQympP2vUf1QHxnbRVhxQhSHUQKF6HpdTiD6vV+3jHykCq0NHqEUaM6gCU+NoGdC20SFVB\noxGFqjv/3oCRgVSpNiMeNKjdSRI397GsgDJFSnGQvJWCZkg1q+1CbveTgVSl5x2SHw/SF3GY\ntlv7hdxjrXWoTTKQarRAZHejGxUVwh/c5H2VD0nzI1iqJunzOJbSj8AuDJmBVKPHcw1QcWeU\nmEuiFQSNq+oyV5vqXdKnXHERKr/FYzUZSDVawyF96r6x7i9TG9bK1nm3ZKxhkRGHh3MkLssK\naiKQrjVLGVDkTYeLyUCq0TogfervxtKnIqguJqGIEVsKoZcA2hRqok3F+ZGBtL1aRmnwkxaw\nlT40sVr+5iiHQpKevvZiJVF+JuVd0mtxkEpTIANpe9WP0sDH0WmN9axNh0C1+/hKrvNKGlw6\nucx0qbaHflmODKQqVT/LZPZw9mww5TBUAGAP9stKFONpHicJUT1HlrXbXrVPqXtAHVFSjV7J\nvMET+Bk98FaQxNAMHy15C6OlZSBVqMJY5zuj/i2TYSMOXvCBIDl2udUTSamEd9Ifder4CjKQ\nKlQcpOcwOlvvU4/Di0k8U81+IClkiTkocDpnRTLE8+GO1yWjPr1eRAZShYoPzXp4FDu1z+5g\ngPyB0yc+kIbDWZKM72TeIbkU71UykCpUeozj44PYxyOGho4Gjz5JYEB0eRbWeS88klIx4+hF\nPD1uAzvoyQcLV6oLSqrBQ8SWWkTn2YeULAdfFcywRMy4dDq7VSsYwfLKDtISHPke/YjdkcfL\nRE6BAT9htwFG1Mh6Dz45WvoCa6sWsYK1lQdpVi+K+hYleh4jBWf8YpGyRC7wQ9E1WH0BEbTH\nXrfXOmawsDYB6csAzzGQgutBsDg1ldn2jCX5AH3vpVPj0yID6eeUG6VVQrtL91mieU1w4ZTS\nCj7+kEVzWAMtvjsrPnU4tu1q8TUcGUhV2mKShLrJUuJJ2yKBkIjTRHGcXmHF/OKRACd4u7NW\nM4I1tRtI91hiEISvfHPslHgsFyTmror94ZYbpr5699H10gb571A3UKJ7KIJVcmyjV278E9Mf\n7ppQf+5oxUHqqJcfXiflrOCBNd+Van8aX+BgFKmzJP5xeLWJ1f5qvfzweikH0rxetKqxa4wV\n7fqRS2ziH/jwc3CNq55suuntx9dJ6WFaeQBbrBcRgiWowZogoEV/NArPk4fbj77PmVhUrz/A\nLsrYwdIDWN854Vac8wlePCuj+iX59u9BdX9phqUHqY9+4BA7aM/Iztf7JHYRyGXiN4drWKNF\nQ/p+Z8bbQDL9KWsHaw9gbe8gLDsy67WRo/SF2fQE6vVa2w7WUCH5PakXt9QA0vW84E8cpl0s\nQu8DC1qV7WpevPT41HdoaTNYQ4XAZOERrJ+cuGth9rlXxrGw1XOxS0onxkcd4Tpa2AxW0fK3\n9aXUmrQDc0/8/DGwItYxKAUMJJOq4o3mU3pxQ00dY9aepKhwNTYNVfdDW0/LWsE62hWk2z+h\nkfUz7FpRco2rQuDrtaoVLKSSQa46hM0LhC6JZ6Ak8chdTTKQTJr2BKnVIRFIhYut2Suyv8rR\nqlawlLaM7Vo7xSK7zCyJrr1mPjeQTKp2BKk5l5ibIpEj8txhRUVTzqzrkS2qFY1gNW2Y/75x\nMxL9mfJH4d2wcdFo4ZCBtIIWsdAdL8h+BVJ6juT5Fdkwvguux0riXq8lzYC0RPf2utH8o/ZO\n5UAS3HwK5K/KRvv/gJY0g7W0o0Nq36PskRxdtXUpjvRLS7+gJe1gLe0IUnOqQexQAxIuuMPl\nDtrjHAwkE2rDy0hf5Ox8LtmAjzTBlJ3YwcusnoFk4vqFpJ0EKX1jEZB0/ckdlGf3z/4eRwZS\nUUWjXHAIm1c1VHsk55AZB4k89ktKPxvZrWgFi6k8QsuNYftzuKTo6cI6SI4iO/bUYac9/cRA\nMp2qGKDVxvD2KjtQwSOFAdy1k9c9Uo8j2kCrGcFyqrHKtaZJjQ/t0QqnEZJ+it3FhD8tYSCZ\nVO3mklo6k3jiXMEfRe7ps8+5o3o30y9oKRtYUeXT+1qPbWvqjFo2h1FEEgfphEbb5Qe0kg2s\nqLxd/jG01gi2cKSfAUoEpUhhCYhfJGktM1hOBY6KJaZrtD9KECZ2/MnE3VpmsJzKIC2mg1Qu\nq21T7jOvIinHkYFk2g0k6lMSJvggXqeafRJXHiQOjYFkipQbnw3GTqHpfH+o671bOAqezcXW\nOihOaeIhP6QNjOFRZcZnsdlRUhjqXY7o2sqLJN2Lwo/80wcfJNY3PHDYk7WJMTymHEjzevGl\nwAl9HJHy+cfWj8uv1KUb2DIhzlcqbzf3eJ/QPtbwjF4BEpN6/ZUv5q7CCH/+RY/kftAh7WkN\n05TLfb1m5FJPWsiTBPdOKPMhjazX6zXmMESbpxrqVIlOQJtyszne6qdg93q9xhxGaONfGKtV\nApMSRvAPuSQM9X503eo7zGGQfoGj44iMvgQSkHTV4ChPF8BlIJk+ekHuO6//HGmJAcFLiiao\nwl/3piNJ9EOaP8SRgZRTJtPwjnGL8t1hmMa3i9Q2VXHWAxX5qCID6ef1+pTdEV08DfMF2opv\nfnu5J5fkMSVObPrDQDJlBucVo3YcsMpHPtBb/uviIO+zNyMJswz4cVz89XqFSQxSyiOtdSff\nTV3HEIJC7iSihzskDhKX8uCGWQf0sF5gEsOUGptXjBmeDAJ3kljlI/CA3SLJ50X+EkfvMIpB\nSjmkub0YIr4qnAdkPvgvvNrK/JYmenikgWRC6WPzihE7ouXfUdLaxZOjIiLKVag5x/O8XmEW\nY/RqhxRuucI3r+UdEhSpJNXg9kq9wSzGKJFReEOiIXUvBfwbx3IaShomBpIp0msju/y5QDxX\nq7iiVe5aKvBivcAuBinlkSZ3o7/Sz+A6/6T/0slw2hhV8pscvcAuBum1uW/91j5PqTj2JrpH\nIiaJV/LDHO1vF4OUDH+2H7DgANyVrIP/vHRPGYoqQJp1TAtoe7sYozRHOw+Y+7trItjk0f8o\nV4fSS8F9jMoPU+QNpIRe6ZCUnDX5HQGS46sXcmlwWdnvYrS3YYzUC0H6s+3jcNE2WCAEQBFx\ntKkGpJ/maGfDGKrURaSNx8ud672DbZ7/ZKznMyWWsstlwbGqn+bIQEoo8bDf2d3oqXN+FMd2\n6IUAIFreXVolxKH5bY4MpJQ0aPYGybvIIXm2oCEAqeSIImx+myMDKSkNpPm96KjPY060D2g6\ndL5z7E7xmiev+p+P6/zutjFSbwMp404dJO2cmDFdVFSAxEp5A8kk9DqQ8h9T/k6/s6+EEu0y\n42DW09a2MVQvA6nUd748qIWhiLrxh7KkdraNsVKzDfO70UlFjih3dwMkmUH/Se1rGqOljcy2\no1WK6+DGcu9FguGGb/pVbWsaw/UekIqXkfHhQZ834UMXWnCacThrak/TmKHXhHbFq1/4eEd8\nyzGqReinMdrUNKboPSCVCgQgKRzlH4JCf4w9kKW1pWnMkBoPbTlaFSDRSiGPa1hFJrzKMRlI\nplj6YrvZveigcp+Bg+sdf7DdNW2KHtSlcmQgmWKpuYYNF9t9esyfBxlJzG/QEaE78pAbT4d4\n6MB+WPtZxhy942FcFz746pSEADqdzz/iOpKHp636HEj4S2XTDmtF7WUYs5Q8f282XMel651y\ni6wECfwPQ4MFbRdJcikegPSra+xAm1nGHKU52my4/rrLHvKt3ZAUg0Rr7Xgpr0+S/n5iCUga\neiirazPLmKPk7bF7jVb8oJO/I1BdEkV2199RpMbnQ4TU4Q/aPuYoNtFepjFJ77g9Nn6+92ej\nNktiKTu2fDXaPbqs9Dcm9GPOPTu/nXazjil6R+o77vAHk/xxIBBObPMssKOHpWAzxtF+5jFD\nbwXpY/7lFUPBJaFr2UN4XRaKfOZhP8/RfuYxQ+9Yr1rMmOjW79gHxIu4tnTOjgik/camv2wM\nFL0DpNJvSYtkOLETvPILTFcEd86ODgRpw6HpLxsERW8HyVManD8CiDZcsyJWgl2lPX3TxdFh\nDumUDYKilyxXLYB00PMiHfkeWAju5Gf8Zj+6d+kTJe44NP1lo6DoFY+0y131+mStD49XlUT4\nFtxWwR5nTChdq42MI5QNg6Z4VPYDKffVHnBBKZgY0ZoguLmCblJiKH3SdJ8LvPlmfkk2DIqi\nQdltTcNHOZCO6+rPVSZY3e29RzcEuzjukj4cHX9OzQzoko2DonBQji0dUk2XDySJLVigZ0Wi\nQoyuRRKWsUPZQGg6sm/3UB37jCRc6U1eCT+TINFqoy1HZohsJDS9AqTKYixsDTiKMt94Lfbz\n0WEcMdlQaHoBSPXB6BEHeJjA8+G9fgSZM464bCw07Q9S26QO7v6ju8bp3orAIWFiwuZHQjYY\nqo7Muy3Unh357AAuh7IO4Y9TnBwdZ8rOhLLRULU9SDf6/FnoALDwtQ5BruG81Va7semXtaON\nTNAvguQPeiwDX/EQcSRWF5lO7WgjE7T9JOlOj49rvQI+LhKWrgYgXVGdgcS1n4lM0U+C5M+b\njBzOjHDlqriKdN1BYRwJ7WciUxTM1Xd77snN7uJiVE/r7DDZfV1DcrC6qFNX36Kt7GOeYkPc\niqSbnf0soIMb9ugykucu6TCCVO1kHjO1N0h3v9bTBclDFfMkezhDSluZxzxtztHtr/XKJohF\nQw6z4MfhDKSE9rKPaYpBeqIXt/Ut9vh4FM9uSPq7v/wwjhLay0CmaXOQvu4uPR6FrwE3h5TW\nZgYyS9EpfbPQ7tvvVQPJHgOZ02b2MU1K2u6JbtxWF5ckQKJHnpgU7WUeE7U1SN/7T3JJyI5l\n7HLayTxmau8LSR26esBq8I51vlk2PLqUcdloqLpAH67u6FDli2XDo8tAChYabXT0j8jGR5eB\ndFak/GXSZOOjSrPEjYaqF0hUz0YH/4xsgFSpw7JRuqFTV80hVcsGSJU+LPsMVu9swz5H/pRs\nhFQZSLKOfY78KdkIKUrcF7fRWHUA6Uj8bVJlQxQr+ZuRc7txV0eX+3kPA6lJNkSxtgepSy2J\nv026bIwUpUDa49EN3UHa4aAfl42RotSgHFuMVyeQ8J6JDQ55AdkoKcoMyvrj1cl/4MO/1z/i\nJWTDpGhvkLr0EZ7TsMEBryEbJ03JUVl/uDpN4+B3KdY/4EW01UBNm+sbSI49Rd9UoQUtI23F\ns7Jm6VYWHK5AvX626Hr4Vpe6fkELWsbj2dZMB57uWln9QIIfSDLVaEHLeBqkrVMN/bJ27PEn\nprJ2MI3Jyg3JBsPV6zxkvzjRpA0sY7Jyhvi0s6xSr3uRbIbUoh0sY6ryZrjDcPXJyOxwpCvJ\nxitQfkC2GK4e+YYtfO9KsvGSKozHFsN1fO+UjKNW2YBJFSxoBwP79PHLjm5wmIvJRixQNtWw\nAUfQx696uv5hLicbMqlszm5eN77QEfz7TR2matmQSW1+EcmzXh7XoqpmR7qB311PNmZS2zsk\nBhJ7vGNL3zc5zsVkoyaVWWa3yVCp/qey88ce9wCvKBs2qZ3Xq4JUaqq6v0U6ZU3ZuAllbqDY\naaRUksqQGEb3ZSMn9AaH9KfUIy5pe5yFMIq+kQ0e11s4+pPO0nF9dEAhLLzfES4lGz6uN4Hk\nqyK8O+lxkyIbQq6XgVSdrBvcjV+QjSHT1veY6zJnM0k2zkz7X41VZChNkY0yKpf63tkad+77\nPrJBBr0wrru0eff3kA0yKLtcde9h2rv3e8jG+FKWld1Haff+byAb4lOlO2MndWOMNneoW8iG\n+KPiKrQpvRgk42iCbIw/ejNIO/d9H9kon3rD04MS2rnv+8hG+dR7XZIFdlNko/xR+VadKd0Y\noX17vpVsmP9UccvblH6M0L4930o2zL5mEDYepo27vpNsmH3VIGw8Tht3fSPZKPuaTMPOw7Rx\nWLqRbJB9Ofe99eJv+46nyAbZlwZhb4r+tP0BbCAb45evs/voz6Xufz5YWja6xRsoXjFERtJg\n2eDmH1O8+fRI6D1HsqBscPf/IZdavetoFtOvD27e5bxrdN51NIvJBtdk6iADyWTqIAPJZOog\nA8lk6iADyWTqIAPJZOogA8lk6iADyWTqIAPJZOogA8lk6iADyWTqIAPJZOogA8lk6iADyWTq\nIAPJZOrCl2MdAAACHUlEQVQgA8lk6iADyWTqIAPJZOogA8lk6iADyWTqIAPJZOogA8lk6iAD\nyWTqIAPJZOogA8lk6iADyWTqIAPJZOogA8lk6iADyWTqIAPJZOogA8lk6iADyWTqIAPJZOog\nA8lk6iADyWTqIAPJZOogA8lk6iADyWTqIAPJZOogA8lk6iADyWTqIAPJZOogA8lk6iADyWTq\nIAPJZOogA8lk6iADyWTqIAPJZOogA8lk6iADyWTqIAPJZOogA8lk6iADyWTqIAPJZOogA8lk\n6iADyWTqIAPJZOogA8lk6iADyWTqIAPJZOogA8lk6iADyWTqIAPJZOogA8lk6iADyWTqIAPJ\nZOogA8lk6iADyWTqIAPJZOogA8lk6iADyWTqIAPJZOogA8lk6iADyWTqIAPJZOogA8lk6iAD\nyWTqIAPJZOogA8lk6iADyWTqIAPJZOogA8lk6iADyWTqIAPJZOogA8lk6iADyWTqIAPJZOog\nA8lk6iADyWTqIAPJZOogA8lk6iADyWTqIAPJZOogA8lk6iADyWTqIAPJZOogA8lk6iADyWTq\nIAPJZOogA8lk6iADyWTqIAPJZOogA8lk6iADyWTqIAPJZOogA8lk6iADyWTqIAPJZOogA8lk\n6iADyWTqIAPJZOogA8lk6iADyWTqIAPJZOogA8lk6iADyWTqIAPJZOogA8lk6iADyWTqIAPJ\nZOogA8lk6iADyWTqoH9ocan4FNq9NgAAAABJRU5ErkJggg==",
      "text/plain": [
       "plot without title"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "# recortando apenas o brasil\n",
    "plot(mapa_estabelecimentos,\n",
    "   xlim = c(-65, -55),\n",
    "   ylim = c(-35, 5),\n",
    "   asp = 1\n",
    ") \n",
    "\n",
    "points(estabelecimentos$NU_LONGITUDE, estabelecimentos$NU_LATITUDE, col = \"red\", cex = .8)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 73,
   "metadata": {},
   "outputs": [],
   "source": [
    "write.csv2(mapa_estabelecimentos, 'mapa_ab.csv', row.names = FALSE)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 74,
   "metadata": {},
   "outputs": [],
   "source": [
    "cobertura_ab <- read.csv2('cobertura_AB_2007_2018.csv', header = TRUE)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 75,
   "metadata": {},
   "outputs": [
    {
     "data": {
      "text/html": [
       "<table>\n",
       "<thead><tr><th scope=col>Mes</th><th scope=col>Ano</th><th scope=col>UF</th><th scope=col>MunicÃ.pio</th><th scope=col>IBGE</th><th scope=col>PopulaÃ.Ã.o</th><th scope=col>NÂº.eSF</th><th scope=col>Estim..Pop..Cob..eSF</th><th scope=col>Cob..Pop..Estimada.eSF</th><th scope=col>CH.MÃ.dico.AB</th><th scope=col>CH.Enfermeiro.AB</th><th scope=col>NÂº.eSF.equivalente</th><th scope=col>NÂº.eAB.parametrizada</th><th scope=col>Estim..Pop..Cob..AB</th><th scope=col>Cob..Pop..Estimada.AB</th></tr></thead>\n",
       "<tbody>\n",
       "\t<tr><td>4              </td><td>2008           </td><td>AC             </td><td>ACRELÃ‚NDIA    </td><td>120001.0       </td><td>11.520         </td><td>5.0            </td><td>11.520         </td><td>100%           </td><td>20.0           </td><td>40.0           </td><td>0.33           </td><td>0.0            </td><td>11.520         </td><td>100%           </td></tr>\n",
       "\t<tr><td>4              </td><td>2008           </td><td>AC             </td><td>ASSIS BRASIL   </td><td>120005.0       </td><td>5.351          </td><td>2.0            </td><td>5.351          </td><td>100%           </td><td>0.0            </td><td>0.0            </td><td>0              </td><td>0.0            </td><td>5.351          </td><td>100%           </td></tr>\n",
       "\t<tr><td>4              </td><td>2008           </td><td>AC             </td><td>BRASILÃ‰IA     </td><td>120010.0       </td><td>19.065         </td><td>6.0            </td><td>19.065         </td><td>100%           </td><td>110.0          </td><td>120.0          </td><td>1.83           </td><td>0.0            </td><td>19.065         </td><td>100%           </td></tr>\n",
       "\t<tr><td>4              </td><td>2008           </td><td>AC             </td><td>BUJARI         </td><td>120013.0       </td><td>6.543          </td><td>1.0            </td><td>3.450          </td><td>52,73%         </td><td>40.0           </td><td>40.0           </td><td>0.66           </td><td>0.0            </td><td>5.430          </td><td>82,99%         </td></tr>\n",
       "\t<tr><td>4              </td><td>2008           </td><td>AC             </td><td>CAPIXABA       </td><td>120017.0       </td><td>8.446          </td><td>2.0            </td><td>6.900          </td><td>81,70%         </td><td>40.0           </td><td>0.0            </td><td>0              </td><td>0.0            </td><td>6.900          </td><td>81,70%         </td></tr>\n",
       "\t<tr><td>4              </td><td>2008           </td><td>AC             </td><td>CRUZEIRO DO SUL</td><td>120020.0       </td><td>73.948         </td><td>16.0           </td><td>55.200         </td><td>74,65%         </td><td>40.0           </td><td>80.0           </td><td>0.66           </td><td>0.0            </td><td>57.180         </td><td>77,32%         </td></tr>\n",
       "</tbody>\n",
       "</table>\n"
      ],
      "text/latex": [
       "\\begin{tabular}{r|lllllllllllllll}\n",
       " Mes & Ano & UF & MunicÃ.pio & IBGE & PopulaÃ.Ã.o & NÂº.eSF & Estim..Pop..Cob..eSF & Cob..Pop..Estimada.eSF & CH.MÃ.dico.AB & CH.Enfermeiro.AB & NÂº.eSF.equivalente & NÂº.eAB.parametrizada & Estim..Pop..Cob..AB & Cob..Pop..Estimada.AB\\\\\n",
       "\\hline\n",
       "\t 4               & 2008            & AC              & ACRELÃ‚NDIA     & 120001.0        & 11.520          & 5.0             & 11.520          & 100\\%          & 20.0            & 40.0            & 0.33            & 0.0             & 11.520          & 100\\%         \\\\\n",
       "\t 4               & 2008            & AC              & ASSIS BRASIL    & 120005.0        & 5.351           & 2.0             & 5.351           & 100\\%          & 0.0             & 0.0             & 0               & 0.0             & 5.351           & 100\\%         \\\\\n",
       "\t 4               & 2008            & AC              & BRASILÃ‰IA      & 120010.0        & 19.065          & 6.0             & 19.065          & 100\\%          & 110.0           & 120.0           & 1.83            & 0.0             & 19.065          & 100\\%         \\\\\n",
       "\t 4               & 2008            & AC              & BUJARI          & 120013.0        & 6.543           & 1.0             & 3.450           & 52,73\\%        & 40.0            & 40.0            & 0.66            & 0.0             & 5.430           & 82,99\\%       \\\\\n",
       "\t 4               & 2008            & AC              & CAPIXABA        & 120017.0        & 8.446           & 2.0             & 6.900           & 81,70\\%        & 40.0            & 0.0             & 0               & 0.0             & 6.900           & 81,70\\%       \\\\\n",
       "\t 4               & 2008            & AC              & CRUZEIRO DO SUL & 120020.0        & 73.948          & 16.0            & 55.200          & 74,65\\%        & 40.0            & 80.0            & 0.66            & 0.0             & 57.180          & 77,32\\%       \\\\\n",
       "\\end{tabular}\n"
      ],
      "text/markdown": [
       "\n",
       "Mes | Ano | UF | MunicÃ.pio | IBGE | PopulaÃ.Ã.o | NÂº.eSF | Estim..Pop..Cob..eSF | Cob..Pop..Estimada.eSF | CH.MÃ.dico.AB | CH.Enfermeiro.AB | NÂº.eSF.equivalente | NÂº.eAB.parametrizada | Estim..Pop..Cob..AB | Cob..Pop..Estimada.AB | \n",
       "|---|---|---|---|---|---|\n",
       "| 4               | 2008            | AC              | ACRELÃ‚NDIA     | 120001.0        | 11.520          | 5.0             | 11.520          | 100%            | 20.0            | 40.0            | 0.33            | 0.0             | 11.520          | 100%            | \n",
       "| 4               | 2008            | AC              | ASSIS BRASIL    | 120005.0        | 5.351           | 2.0             | 5.351           | 100%            | 0.0             | 0.0             | 0               | 0.0             | 5.351           | 100%            | \n",
       "| 4               | 2008            | AC              | BRASILÃ‰IA      | 120010.0        | 19.065          | 6.0             | 19.065          | 100%            | 110.0           | 120.0           | 1.83            | 0.0             | 19.065          | 100%            | \n",
       "| 4               | 2008            | AC              | BUJARI          | 120013.0        | 6.543           | 1.0             | 3.450           | 52,73%          | 40.0            | 40.0            | 0.66            | 0.0             | 5.430           | 82,99%          | \n",
       "| 4               | 2008            | AC              | CAPIXABA        | 120017.0        | 8.446           | 2.0             | 6.900           | 81,70%          | 40.0            | 0.0             | 0               | 0.0             | 6.900           | 81,70%          | \n",
       "| 4               | 2008            | AC              | CRUZEIRO DO SUL | 120020.0        | 73.948          | 16.0            | 55.200          | 74,65%          | 40.0            | 80.0            | 0.66            | 0.0             | 57.180          | 77,32%          | \n",
       "\n",
       "\n"
      ],
      "text/plain": [
       "  Mes Ano  UF MunicÃ.pio      IBGE     PopulaÃ.Ã.o NÂº.eSF Estim..Pop..Cob..eSF\n",
       "1 4   2008 AC ACRELÃ‚NDIA     120001.0 11.520      5.0     11.520              \n",
       "2 4   2008 AC ASSIS BRASIL    120005.0 5.351       2.0     5.351               \n",
       "3 4   2008 AC BRASILÃ‰IA      120010.0 19.065      6.0     19.065              \n",
       "4 4   2008 AC BUJARI          120013.0 6.543       1.0     3.450               \n",
       "5 4   2008 AC CAPIXABA        120017.0 8.446       2.0     6.900               \n",
       "6 4   2008 AC CRUZEIRO DO SUL 120020.0 73.948      16.0    55.200              \n",
       "  Cob..Pop..Estimada.eSF CH.MÃ.dico.AB CH.Enfermeiro.AB NÂº.eSF.equivalente\n",
       "1 100%                   20.0          40.0             0.33               \n",
       "2 100%                   0.0           0.0              0                  \n",
       "3 100%                   110.0         120.0            1.83               \n",
       "4 52,73%                 40.0          40.0             0.66               \n",
       "5 81,70%                 40.0          0.0              0                  \n",
       "6 74,65%                 40.0          80.0             0.66               \n",
       "  NÂº.eAB.parametrizada Estim..Pop..Cob..AB Cob..Pop..Estimada.AB\n",
       "1 0.0                   11.520              100%                 \n",
       "2 0.0                   5.351               100%                 \n",
       "3 0.0                   19.065              100%                 \n",
       "4 0.0                   5.430               82,99%               \n",
       "5 0.0                   6.900               81,70%               \n",
       "6 0.0                   57.180              77,32%               "
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "head(cobertura_ab)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 76,
   "metadata": {},
   "outputs": [],
   "source": [
    "cobertura_ab_reduced <- cobertura_ab %>%\n",
    "  filter(Ano == 2017 & Mes == 12) %>%\n",
    "  select(IBGE, UF, MunicÃ.pio, Cob..Pop..Estimada.AB)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 77,
   "metadata": {},
   "outputs": [
    {
     "data": {
      "text/html": [
       "<table>\n",
       "<thead><tr><th scope=col>IBGE</th><th scope=col>UF</th><th scope=col>MunicÃ.pio</th><th scope=col>Cob..Pop..Estimada.AB</th></tr></thead>\n",
       "<tbody>\n",
       "\t<tr><td>120001.0       </td><td>AC             </td><td>ACRELÃ‚NDIA    </td><td>100%           </td></tr>\n",
       "\t<tr><td>120005.0       </td><td>AC             </td><td>ASSIS BRASIL   </td><td>100%           </td></tr>\n",
       "\t<tr><td>120010.0       </td><td>AC             </td><td>BRASILÃ‰IA     </td><td>100%           </td></tr>\n",
       "\t<tr><td>120013.0       </td><td>AC             </td><td>BUJARI         </td><td>100%           </td></tr>\n",
       "\t<tr><td>120017.0       </td><td>AC             </td><td>CAPIXABA       </td><td>100%           </td></tr>\n",
       "\t<tr><td>120020.0       </td><td>AC             </td><td>CRUZEIRO DO SUL</td><td>100%           </td></tr>\n",
       "</tbody>\n",
       "</table>\n"
      ],
      "text/latex": [
       "\\begin{tabular}{r|llll}\n",
       " IBGE & UF & MunicÃ.pio & Cob..Pop..Estimada.AB\\\\\n",
       "\\hline\n",
       "\t 120001.0        & AC              & ACRELÃ‚NDIA     & 100\\%         \\\\\n",
       "\t 120005.0        & AC              & ASSIS BRASIL    & 100\\%         \\\\\n",
       "\t 120010.0        & AC              & BRASILÃ‰IA      & 100\\%         \\\\\n",
       "\t 120013.0        & AC              & BUJARI          & 100\\%         \\\\\n",
       "\t 120017.0        & AC              & CAPIXABA        & 100\\%         \\\\\n",
       "\t 120020.0        & AC              & CRUZEIRO DO SUL & 100\\%         \\\\\n",
       "\\end{tabular}\n"
      ],
      "text/markdown": [
       "\n",
       "IBGE | UF | MunicÃ.pio | Cob..Pop..Estimada.AB | \n",
       "|---|---|---|---|---|---|\n",
       "| 120001.0        | AC              | ACRELÃ‚NDIA     | 100%            | \n",
       "| 120005.0        | AC              | ASSIS BRASIL    | 100%            | \n",
       "| 120010.0        | AC              | BRASILÃ‰IA      | 100%            | \n",
       "| 120013.0        | AC              | BUJARI          | 100%            | \n",
       "| 120017.0        | AC              | CAPIXABA        | 100%            | \n",
       "| 120020.0        | AC              | CRUZEIRO DO SUL | 100%            | \n",
       "\n",
       "\n"
      ],
      "text/plain": [
       "  IBGE     UF MunicÃ.pio      Cob..Pop..Estimada.AB\n",
       "1 120001.0 AC ACRELÃ‚NDIA     100%                 \n",
       "2 120005.0 AC ASSIS BRASIL    100%                 \n",
       "3 120010.0 AC BRASILÃ‰IA      100%                 \n",
       "4 120013.0 AC BUJARI          100%                 \n",
       "5 120017.0 AC CAPIXABA        100%                 \n",
       "6 120020.0 AC CRUZEIRO DO SUL 100%                 "
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "head(cobertura_ab_reduced)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 78,
   "metadata": {},
   "outputs": [],
   "source": [
    "names(cobertura_ab_reduced)[1] <- 'code'\n",
    "names(cobertura_ab_reduced)[2] <- 'pop_coberta_ab_percent'\n",
    "cobertura_ab_reduced$code <- substr(as.character(cobertura_ab_reduced$code),1,6)\n",
    "cobertura_ab_reduced$pop_coberta_ab_percent <- as.character(cobertura_ab_reduced$pop_coberta_ab_percent)\n",
    "cobertura_ab_reduced$pop_coberta_ab_percent <- gsub(\"%\", \"\", cobertura_ab_reduced$pop_coberta_ab_percent)\n",
    "cobertura_ab_reduced$pop_coberta_ab_percent <- gsub(\",\", \".\", cobertura_ab_reduced$pop_coberta_ab_percent)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 79,
   "metadata": {},
   "outputs": [],
   "source": [
    "cobertura_brasil <- merge(brasil, cobertura_ab_reduced, by = 'code', all.x = TRUE)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 80,
   "metadata": {},
   "outputs": [
    {
     "data": {
      "text/html": [
       "<table>\n",
       "<thead><tr><th scope=col>code</th><th scope=col>city</th><th scope=col>state</th><th scope=col>region</th><th scope=col>population</th><th scope=col>pop_coberta_ab_percent</th><th scope=col>MunicÃ.pio</th><th scope=col>Cob..Pop..Estimada.AB</th></tr></thead>\n",
       "<tbody>\n",
       "\t<tr><td>110001               </td><td>Alta Floresta D'Oeste</td><td>RondÃ´nia            </td><td>NORTE                </td><td> 25437               </td><td>RO                   </td><td>ALTA FLORESTA D'OESTE</td><td>67,63%               </td></tr>\n",
       "\t<tr><td>110002               </td><td>Ariquemes            </td><td>RondÃ´nia            </td><td>NORTE                </td><td>107345               </td><td>RO                   </td><td>ARIQUEMES            </td><td>66,72%               </td></tr>\n",
       "\t<tr><td>110003               </td><td>Cabixi               </td><td>RondÃ´nia            </td><td>NORTE                </td><td>  6224               </td><td>RO                   </td><td>CABIXI               </td><td>100%                 </td></tr>\n",
       "\t<tr><td>110004               </td><td>Cacoal               </td><td>RondÃ´nia            </td><td>NORTE                </td><td> 88507               </td><td>RO                   </td><td>CACOAL               </td><td>62,82%               </td></tr>\n",
       "\t<tr><td>110005               </td><td>Cerejeiras           </td><td>RondÃ´nia            </td><td>NORTE                </td><td> 17934               </td><td>RO                   </td><td>CEREJEIRAS           </td><td>96,05%               </td></tr>\n",
       "\t<tr><td>110006               </td><td>Colorado do Oeste    </td><td>RondÃ´nia            </td><td>NORTE                </td><td> 18467               </td><td>RO                   </td><td>COLORADO DO OESTE    </td><td>92,55%               </td></tr>\n",
       "</tbody>\n",
       "</table>\n"
      ],
      "text/latex": [
       "\\begin{tabular}{r|llllllll}\n",
       " code & city & state & region & population & pop\\_coberta\\_ab\\_percent & MunicÃ.pio & Cob..Pop..Estimada.AB\\\\\n",
       "\\hline\n",
       "\t 110001                & Alta Floresta D'Oeste & RondÃ´nia             & NORTE                 &  25437                & RO                    & ALTA FLORESTA D'OESTE & 67,63\\%             \\\\\n",
       "\t 110002                & Ariquemes             & RondÃ´nia             & NORTE                 & 107345                & RO                    & ARIQUEMES             & 66,72\\%             \\\\\n",
       "\t 110003                & Cabixi                & RondÃ´nia             & NORTE                 &   6224                & RO                    & CABIXI                & 100\\%               \\\\\n",
       "\t 110004                & Cacoal                & RondÃ´nia             & NORTE                 &  88507                & RO                    & CACOAL                & 62,82\\%             \\\\\n",
       "\t 110005                & Cerejeiras            & RondÃ´nia             & NORTE                 &  17934                & RO                    & CEREJEIRAS            & 96,05\\%             \\\\\n",
       "\t 110006                & Colorado do Oeste     & RondÃ´nia             & NORTE                 &  18467                & RO                    & COLORADO DO OESTE     & 92,55\\%             \\\\\n",
       "\\end{tabular}\n"
      ],
      "text/markdown": [
       "\n",
       "code | city | state | region | population | pop_coberta_ab_percent | MunicÃ.pio | Cob..Pop..Estimada.AB | \n",
       "|---|---|---|---|---|---|\n",
       "| 110001                | Alta Floresta D'Oeste | RondÃ´nia             | NORTE                 |  25437                | RO                    | ALTA FLORESTA D'OESTE | 67,63%                | \n",
       "| 110002                | Ariquemes             | RondÃ´nia             | NORTE                 | 107345                | RO                    | ARIQUEMES             | 66,72%                | \n",
       "| 110003                | Cabixi                | RondÃ´nia             | NORTE                 |   6224                | RO                    | CABIXI                | 100%                  | \n",
       "| 110004                | Cacoal                | RondÃ´nia             | NORTE                 |  88507                | RO                    | CACOAL                | 62,82%                | \n",
       "| 110005                | Cerejeiras            | RondÃ´nia             | NORTE                 |  17934                | RO                    | CEREJEIRAS            | 96,05%                | \n",
       "| 110006                | Colorado do Oeste     | RondÃ´nia             | NORTE                 |  18467                | RO                    | COLORADO DO OESTE     | 92,55%                | \n",
       "\n",
       "\n"
      ],
      "text/plain": [
       "  code   city                  state     region population\n",
       "1 110001 Alta Floresta D'Oeste RondÃ´nia NORTE   25437    \n",
       "2 110002 Ariquemes             RondÃ´nia NORTE  107345    \n",
       "3 110003 Cabixi                RondÃ´nia NORTE    6224    \n",
       "4 110004 Cacoal                RondÃ´nia NORTE   88507    \n",
       "5 110005 Cerejeiras            RondÃ´nia NORTE   17934    \n",
       "6 110006 Colorado do Oeste     RondÃ´nia NORTE   18467    \n",
       "  pop_coberta_ab_percent MunicÃ.pio            Cob..Pop..Estimada.AB\n",
       "1 RO                     ALTA FLORESTA D'OESTE 67,63%               \n",
       "2 RO                     ARIQUEMES             66,72%               \n",
       "3 RO                     CABIXI                100%                 \n",
       "4 RO                     CACOAL                62,82%               \n",
       "5 RO                     CEREJEIRAS            96,05%               \n",
       "6 RO                     COLORADO DO OESTE     92,55%               "
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "head(cobertura_brasil)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 81,
   "metadata": {},
   "outputs": [],
   "source": [
    "write.csv2(cobertura_brasil, 'brasil_cobertura.csv', row.names = FALSE)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 82,
   "metadata": {},
   "outputs": [
    {
     "name": "stderr",
     "output_type": "stream",
     "text": [
      "Warning message in eval(expr, envir, enclos):\n",
      "\"NAs introduzidos por coerção\""
     ]
    }
   ],
   "source": [
    "cobertura_brasil$pop_coberta_ab_percent <- as.numeric(cobertura_brasil$pop_coberta_ab_percent)\n",
    "cobertura_brasil$pop_coberta_ab <- floor((cobertura_brasil$population*cobertura_brasil$pop_coberta_ab_percent)/100)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 83,
   "metadata": {},
   "outputs": [
    {
     "data": {
      "text/html": [
       "<table>\n",
       "<thead><tr><th scope=col>code</th><th scope=col>city</th><th scope=col>state</th><th scope=col>region</th><th scope=col>population</th><th scope=col>pop_coberta_ab_percent</th><th scope=col>MunicÃ.pio</th><th scope=col>Cob..Pop..Estimada.AB</th><th scope=col>pop_coberta_ab</th></tr></thead>\n",
       "<tbody>\n",
       "\t<tr><td>110001               </td><td>Alta Floresta D'Oeste</td><td>RondÃ´nia            </td><td>NORTE                </td><td> 25437               </td><td>NA                   </td><td>ALTA FLORESTA D'OESTE</td><td>67,63%               </td><td>NA                   </td></tr>\n",
       "\t<tr><td>110002               </td><td>Ariquemes            </td><td>RondÃ´nia            </td><td>NORTE                </td><td>107345               </td><td>NA                   </td><td>ARIQUEMES            </td><td>66,72%               </td><td>NA                   </td></tr>\n",
       "\t<tr><td>110003               </td><td>Cabixi               </td><td>RondÃ´nia            </td><td>NORTE                </td><td>  6224               </td><td>NA                   </td><td>CABIXI               </td><td>100%                 </td><td>NA                   </td></tr>\n",
       "\t<tr><td>110004               </td><td>Cacoal               </td><td>RondÃ´nia            </td><td>NORTE                </td><td> 88507               </td><td>NA                   </td><td>CACOAL               </td><td>62,82%               </td><td>NA                   </td></tr>\n",
       "\t<tr><td>110005               </td><td>Cerejeiras           </td><td>RondÃ´nia            </td><td>NORTE                </td><td> 17934               </td><td>NA                   </td><td>CEREJEIRAS           </td><td>96,05%               </td><td>NA                   </td></tr>\n",
       "\t<tr><td>110006               </td><td>Colorado do Oeste    </td><td>RondÃ´nia            </td><td>NORTE                </td><td> 18467               </td><td>NA                   </td><td>COLORADO DO OESTE    </td><td>92,55%               </td><td>NA                   </td></tr>\n",
       "</tbody>\n",
       "</table>\n"
      ],
      "text/latex": [
       "\\begin{tabular}{r|lllllllll}\n",
       " code & city & state & region & population & pop\\_coberta\\_ab\\_percent & MunicÃ.pio & Cob..Pop..Estimada.AB & pop\\_coberta\\_ab\\\\\n",
       "\\hline\n",
       "\t 110001                & Alta Floresta D'Oeste & RondÃ´nia             & NORTE                 &  25437                & NA                    & ALTA FLORESTA D'OESTE & 67,63\\%              & NA                   \\\\\n",
       "\t 110002                & Ariquemes             & RondÃ´nia             & NORTE                 & 107345                & NA                    & ARIQUEMES             & 66,72\\%              & NA                   \\\\\n",
       "\t 110003                & Cabixi                & RondÃ´nia             & NORTE                 &   6224                & NA                    & CABIXI                & 100\\%                & NA                   \\\\\n",
       "\t 110004                & Cacoal                & RondÃ´nia             & NORTE                 &  88507                & NA                    & CACOAL                & 62,82\\%              & NA                   \\\\\n",
       "\t 110005                & Cerejeiras            & RondÃ´nia             & NORTE                 &  17934                & NA                    & CEREJEIRAS            & 96,05\\%              & NA                   \\\\\n",
       "\t 110006                & Colorado do Oeste     & RondÃ´nia             & NORTE                 &  18467                & NA                    & COLORADO DO OESTE     & 92,55\\%              & NA                   \\\\\n",
       "\\end{tabular}\n"
      ],
      "text/markdown": [
       "\n",
       "code | city | state | region | population | pop_coberta_ab_percent | MunicÃ.pio | Cob..Pop..Estimada.AB | pop_coberta_ab | \n",
       "|---|---|---|---|---|---|\n",
       "| 110001                | Alta Floresta D'Oeste | RondÃ´nia             | NORTE                 |  25437                | NA                    | ALTA FLORESTA D'OESTE | 67,63%                | NA                    | \n",
       "| 110002                | Ariquemes             | RondÃ´nia             | NORTE                 | 107345                | NA                    | ARIQUEMES             | 66,72%                | NA                    | \n",
       "| 110003                | Cabixi                | RondÃ´nia             | NORTE                 |   6224                | NA                    | CABIXI                | 100%                  | NA                    | \n",
       "| 110004                | Cacoal                | RondÃ´nia             | NORTE                 |  88507                | NA                    | CACOAL                | 62,82%                | NA                    | \n",
       "| 110005                | Cerejeiras            | RondÃ´nia             | NORTE                 |  17934                | NA                    | CEREJEIRAS            | 96,05%                | NA                    | \n",
       "| 110006                | Colorado do Oeste     | RondÃ´nia             | NORTE                 |  18467                | NA                    | COLORADO DO OESTE     | 92,55%                | NA                    | \n",
       "\n",
       "\n"
      ],
      "text/plain": [
       "  code   city                  state     region population\n",
       "1 110001 Alta Floresta D'Oeste RondÃ´nia NORTE   25437    \n",
       "2 110002 Ariquemes             RondÃ´nia NORTE  107345    \n",
       "3 110003 Cabixi                RondÃ´nia NORTE    6224    \n",
       "4 110004 Cacoal                RondÃ´nia NORTE   88507    \n",
       "5 110005 Cerejeiras            RondÃ´nia NORTE   17934    \n",
       "6 110006 Colorado do Oeste     RondÃ´nia NORTE   18467    \n",
       "  pop_coberta_ab_percent MunicÃ.pio            Cob..Pop..Estimada.AB\n",
       "1 NA                     ALTA FLORESTA D'OESTE 67,63%               \n",
       "2 NA                     ARIQUEMES             66,72%               \n",
       "3 NA                     CABIXI                100%                 \n",
       "4 NA                     CACOAL                62,82%               \n",
       "5 NA                     CEREJEIRAS            96,05%               \n",
       "6 NA                     COLORADO DO OESTE     92,55%               \n",
       "  pop_coberta_ab\n",
       "1 NA            \n",
       "2 NA            \n",
       "3 NA            \n",
       "4 NA            \n",
       "5 NA            \n",
       "6 NA            "
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "head(cobertura_brasil)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 84,
   "metadata": {},
   "outputs": [],
   "source": [
    "write.csv2(cobertura_brasil, 'cobertura_brasil.csv', row.names = FALSE)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 85,
   "metadata": {},
   "outputs": [],
   "source": [
    "sih <- read.csv2('SIH-Brasil-0818.csv', header = TRUE)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 86,
   "metadata": {},
   "outputs": [
    {
     "data": {
      "text/html": [
       "<table>\n",
       "<thead><tr><th scope=col>SP_GESTOR</th><th scope=col>SP_UF</th><th scope=col>SP_AA</th><th scope=col>SP_MM</th><th scope=col>SP_CNES</th><th scope=col>SP_NAIH</th><th scope=col>SP_PROCREA</th><th scope=col>SP_DTINTER</th><th scope=col>SP_DTSAIDA</th><th scope=col>SP_NUM_PR</th><th scope=col>...</th><th scope=col>SP_PF_DOC</th><th scope=col>SP_PJ_DOC</th><th scope=col>IN_TP_VAL</th><th scope=col>SEQUENCIA</th><th scope=col>REMESSA</th><th scope=col>SERV_CLA</th><th scope=col>SP_CIDPRI</th><th scope=col>SP_CIDSEC</th><th scope=col>SP_QT_PROC</th><th scope=col>SP_U_AIH</th></tr></thead>\n",
       "<tbody>\n",
       "\t<tr><td>110009               </td><td>11                   </td><td>2018                 </td><td>8                    </td><td>2808587              </td><td>1.118101e+12         </td><td>407030026            </td><td>20180815             </td><td>20180817             </td><td>NA                   </td><td>...                  </td><td>1.239041e+14         </td><td>2808587              </td><td>2                    </td><td>11                   </td><td>HM11000901N201808.DTS</td><td>0                    </td><td>K805                 </td><td>0                    </td><td>0                    </td><td>0                    </td></tr>\n",
       "\t<tr><td>110009               </td><td>11                   </td><td>2018                 </td><td>8                    </td><td>2808587              </td><td>1.118101e+12         </td><td>407030026            </td><td>20180815             </td><td>20180817             </td><td>NA                   </td><td>...                  </td><td>9.800160e+14         </td><td>2808587              </td><td>1                    </td><td>11                   </td><td>HM11000901N201808.DTS</td><td>0                    </td><td>K805                 </td><td>0                    </td><td>1                    </td><td>0                    </td></tr>\n",
       "\t<tr><td>110009               </td><td>11                   </td><td>2018                 </td><td>8                    </td><td>2808587              </td><td>1.118101e+12         </td><td>407030026            </td><td>20180815             </td><td>20180817             </td><td>NA                   </td><td>...                  </td><td>0.000000e+00         </td><td>2808587              </td><td>1                    </td><td>11                   </td><td>HM11000901N201808.DTS</td><td>0                    </td><td>K805                 </td><td>0                    </td><td>1                    </td><td>0                    </td></tr>\n",
       "\t<tr><td>110009               </td><td>11                   </td><td>2018                 </td><td>8                    </td><td>2808587              </td><td>1.118101e+12         </td><td>407030026            </td><td>20180815             </td><td>20180817             </td><td>NA                   </td><td>...                  </td><td>0.000000e+00         </td><td>2808587              </td><td>1                    </td><td>11                   </td><td>HM11000901N201808.DTS</td><td>0                    </td><td>K805                 </td><td>0                    </td><td>1                    </td><td>0                    </td></tr>\n",
       "\t<tr><td>110009               </td><td>11                   </td><td>2018                 </td><td>8                    </td><td>2808587              </td><td>1.118101e+12         </td><td>407030026            </td><td>20180815             </td><td>20180817             </td><td>NA                   </td><td>...                  </td><td>0.000000e+00         </td><td>2808587              </td><td>1                    </td><td>11                   </td><td>HM11000901N201808.DTS</td><td>0                    </td><td>K805                 </td><td>0                    </td><td>1                    </td><td>0                    </td></tr>\n",
       "\t<tr><td>110009               </td><td>11                   </td><td>2018                 </td><td>8                    </td><td>2808587              </td><td>1.118101e+12         </td><td>407040145            </td><td>20180817             </td><td>20180818             </td><td>NA                   </td><td>...                  </td><td>9.800163e+14         </td><td>2808587              </td><td>2                    </td><td>12                   </td><td>HM11000901N201808.DTS</td><td>0                    </td><td>K409                 </td><td>0                    </td><td>0                    </td><td>1                    </td></tr>\n",
       "</tbody>\n",
       "</table>\n"
      ],
      "text/latex": [
       "\\begin{tabular}{r|llllllllllllllllllllllllllllllllllll}\n",
       " SP\\_GESTOR & SP\\_UF & SP\\_AA & SP\\_MM & SP\\_CNES & SP\\_NAIH & SP\\_PROCREA & SP\\_DTINTER & SP\\_DTSAIDA & SP\\_NUM\\_PR & ... & SP\\_PF\\_DOC & SP\\_PJ\\_DOC & IN\\_TP\\_VAL & SEQUENCIA & REMESSA & SERV\\_CLA & SP\\_CIDPRI & SP\\_CIDSEC & SP\\_QT\\_PROC & SP\\_U\\_AIH\\\\\n",
       "\\hline\n",
       "\t 110009                & 11                    & 2018                  & 8                     & 2808587               & 1.118101e+12          & 407030026             & 20180815              & 20180817              & NA                    & ...                   & 1.239041e+14          & 2808587               & 2                     & 11                    & HM11000901N201808.DTS & 0                     & K805                  & 0                     & 0                     & 0                    \\\\\n",
       "\t 110009                & 11                    & 2018                  & 8                     & 2808587               & 1.118101e+12          & 407030026             & 20180815              & 20180817              & NA                    & ...                   & 9.800160e+14          & 2808587               & 1                     & 11                    & HM11000901N201808.DTS & 0                     & K805                  & 0                     & 1                     & 0                    \\\\\n",
       "\t 110009                & 11                    & 2018                  & 8                     & 2808587               & 1.118101e+12          & 407030026             & 20180815              & 20180817              & NA                    & ...                   & 0.000000e+00          & 2808587               & 1                     & 11                    & HM11000901N201808.DTS & 0                     & K805                  & 0                     & 1                     & 0                    \\\\\n",
       "\t 110009                & 11                    & 2018                  & 8                     & 2808587               & 1.118101e+12          & 407030026             & 20180815              & 20180817              & NA                    & ...                   & 0.000000e+00          & 2808587               & 1                     & 11                    & HM11000901N201808.DTS & 0                     & K805                  & 0                     & 1                     & 0                    \\\\\n",
       "\t 110009                & 11                    & 2018                  & 8                     & 2808587               & 1.118101e+12          & 407030026             & 20180815              & 20180817              & NA                    & ...                   & 0.000000e+00          & 2808587               & 1                     & 11                    & HM11000901N201808.DTS & 0                     & K805                  & 0                     & 1                     & 0                    \\\\\n",
       "\t 110009                & 11                    & 2018                  & 8                     & 2808587               & 1.118101e+12          & 407040145             & 20180817              & 20180818              & NA                    & ...                   & 9.800163e+14          & 2808587               & 2                     & 12                    & HM11000901N201808.DTS & 0                     & K409                  & 0                     & 0                     & 1                    \\\\\n",
       "\\end{tabular}\n"
      ],
      "text/markdown": [
       "\n",
       "SP_GESTOR | SP_UF | SP_AA | SP_MM | SP_CNES | SP_NAIH | SP_PROCREA | SP_DTINTER | SP_DTSAIDA | SP_NUM_PR | ... | SP_PF_DOC | SP_PJ_DOC | IN_TP_VAL | SEQUENCIA | REMESSA | SERV_CLA | SP_CIDPRI | SP_CIDSEC | SP_QT_PROC | SP_U_AIH | \n",
       "|---|---|---|---|---|---|\n",
       "| 110009                | 11                    | 2018                  | 8                     | 2808587               | 1.118101e+12          | 407030026             | 20180815              | 20180817              | NA                    | ...                   | 1.239041e+14          | 2808587               | 2                     | 11                    | HM11000901N201808.DTS | 0                     | K805                  | 0                     | 0                     | 0                     | \n",
       "| 110009                | 11                    | 2018                  | 8                     | 2808587               | 1.118101e+12          | 407030026             | 20180815              | 20180817              | NA                    | ...                   | 9.800160e+14          | 2808587               | 1                     | 11                    | HM11000901N201808.DTS | 0                     | K805                  | 0                     | 1                     | 0                     | \n",
       "| 110009                | 11                    | 2018                  | 8                     | 2808587               | 1.118101e+12          | 407030026             | 20180815              | 20180817              | NA                    | ...                   | 0.000000e+00          | 2808587               | 1                     | 11                    | HM11000901N201808.DTS | 0                     | K805                  | 0                     | 1                     | 0                     | \n",
       "| 110009                | 11                    | 2018                  | 8                     | 2808587               | 1.118101e+12          | 407030026             | 20180815              | 20180817              | NA                    | ...                   | 0.000000e+00          | 2808587               | 1                     | 11                    | HM11000901N201808.DTS | 0                     | K805                  | 0                     | 1                     | 0                     | \n",
       "| 110009                | 11                    | 2018                  | 8                     | 2808587               | 1.118101e+12          | 407030026             | 20180815              | 20180817              | NA                    | ...                   | 0.000000e+00          | 2808587               | 1                     | 11                    | HM11000901N201808.DTS | 0                     | K805                  | 0                     | 1                     | 0                     | \n",
       "| 110009                | 11                    | 2018                  | 8                     | 2808587               | 1.118101e+12          | 407040145             | 20180817              | 20180818              | NA                    | ...                   | 9.800163e+14          | 2808587               | 2                     | 12                    | HM11000901N201808.DTS | 0                     | K409                  | 0                     | 0                     | 1                     | \n",
       "\n",
       "\n"
      ],
      "text/plain": [
       "  SP_GESTOR SP_UF SP_AA SP_MM SP_CNES SP_NAIH      SP_PROCREA SP_DTINTER\n",
       "1 110009    11    2018  8     2808587 1.118101e+12 407030026  20180815  \n",
       "2 110009    11    2018  8     2808587 1.118101e+12 407030026  20180815  \n",
       "3 110009    11    2018  8     2808587 1.118101e+12 407030026  20180815  \n",
       "4 110009    11    2018  8     2808587 1.118101e+12 407030026  20180815  \n",
       "5 110009    11    2018  8     2808587 1.118101e+12 407030026  20180815  \n",
       "6 110009    11    2018  8     2808587 1.118101e+12 407040145  20180817  \n",
       "  SP_DTSAIDA SP_NUM_PR ... SP_PF_DOC    SP_PJ_DOC IN_TP_VAL SEQUENCIA\n",
       "1 20180817   NA        ... 1.239041e+14 2808587   2         11       \n",
       "2 20180817   NA        ... 9.800160e+14 2808587   1         11       \n",
       "3 20180817   NA        ... 0.000000e+00 2808587   1         11       \n",
       "4 20180817   NA        ... 0.000000e+00 2808587   1         11       \n",
       "5 20180817   NA        ... 0.000000e+00 2808587   1         11       \n",
       "6 20180818   NA        ... 9.800163e+14 2808587   2         12       \n",
       "  REMESSA               SERV_CLA SP_CIDPRI SP_CIDSEC SP_QT_PROC SP_U_AIH\n",
       "1 HM11000901N201808.DTS 0        K805      0         0          0       \n",
       "2 HM11000901N201808.DTS 0        K805      0         1          0       \n",
       "3 HM11000901N201808.DTS 0        K805      0         1          0       \n",
       "4 HM11000901N201808.DTS 0        K805      0         1          0       \n",
       "5 HM11000901N201808.DTS 0        K805      0         1          0       \n",
       "6 HM11000901N201808.DTS 0        K409      0         0          1       "
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "head(sih)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 87,
   "metadata": {},
   "outputs": [],
   "source": [
    "sih_acupuntura <- sih %>%\n",
    "  filter(SP_PROCREA == 0101010044) %>%\n",
    "  group_by(SP_UF) %>%\n",
    "  summarise(Media = format(round(mean(SP_VALATO), 2), nsmall = 2)) %>% \n",
    "  mutate(Sigtap = 6145)\n",
    "#225105 Médico acupunturista "
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 88,
   "metadata": {},
   "outputs": [
    {
     "data": {
      "text/html": [
       "<table>\n",
       "<thead><tr><th scope=col>SP_UF</th><th scope=col>Media</th><th scope=col>Sigtap</th></tr></thead>\n",
       "<tbody>\n",
       "</tbody>\n",
       "</table>\n"
      ],
      "text/latex": [
       "\\begin{tabular}{r|lll}\n",
       " SP\\_UF & Media & Sigtap\\\\\n",
       "\\hline\n",
       "\\end{tabular}\n"
      ],
      "text/markdown": [
       "\n",
       "SP_UF | Media | Sigtap | \n",
       "||\n",
       "\n",
       "\n"
      ],
      "text/plain": [
       "     SP_UF Media Sigtap"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "head(sih_acupuntura)"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "225105 Médico acupunturista código\n"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 92,
   "metadata": {},
   "outputs": [
    {
     "name": "stderr",
     "output_type": "stream",
     "text": [
      "Warning message in read.table(file = file, header = header, sep = sep, quote = quote, :\n",
      "\"incomplete final line found by readTableHeader on 'tbFluxoDadosClientela201809.csv'\""
     ]
    }
   ],
   "source": [
    "cliente <- read.csv2('tbFluxoDadosClientela201809.csv', sep=';', header = TRUE)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 93,
   "metadata": {},
   "outputs": [
    {
     "data": {
      "text/html": [
       "<table>\n",
       "<thead><tr><th scope=col>CO_CLIENTELA..DS_CLIENTELA.</th></tr></thead>\n",
       "<tbody>\n",
       "\t<tr><td>01;\"ATENDIMENTO DE DEMANDA ESPONTANEA\"               </td></tr>\n",
       "\t<tr><td>02;\"ATENDIMENTO DE DEMANDA REFERENCIADA\"             </td></tr>\n",
       "\t<tr><td>03;\"ATENDIMENTO DE DEMANDA ESPONTANEA E REFERENCIADA\"</td></tr>\n",
       "</tbody>\n",
       "</table>\n"
      ],
      "text/latex": [
       "\\begin{tabular}{r|l}\n",
       " CO\\_CLIENTELA..DS\\_CLIENTELA.\\\\\n",
       "\\hline\n",
       "\t 01;\"ATENDIMENTO DE DEMANDA ESPONTANEA\"               \\\\\n",
       "\t 02;\"ATENDIMENTO DE DEMANDA REFERENCIADA\"             \\\\\n",
       "\t 03;\"ATENDIMENTO DE DEMANDA ESPONTANEA E REFERENCIADA\"\\\\\n",
       "\\end{tabular}\n"
      ],
      "text/markdown": [
       "\n",
       "CO_CLIENTELA..DS_CLIENTELA. | \n",
       "|---|---|---|\n",
       "| 01;\"ATENDIMENTO DE DEMANDA ESPONTANEA\"                | \n",
       "| 02;\"ATENDIMENTO DE DEMANDA REFERENCIADA\"              | \n",
       "| 03;\"ATENDIMENTO DE DEMANDA ESPONTANEA E REFERENCIADA\" | \n",
       "\n",
       "\n"
      ],
      "text/plain": [
       "  CO_CLIENTELA..DS_CLIENTELA.                          \n",
       "1 01;\"ATENDIMENTO DE DEMANDA ESPONTANEA\"               \n",
       "2 02;\"ATENDIMENTO DE DEMANDA REFERENCIADA\"             \n",
       "3 03;\"ATENDIMENTO DE DEMANDA ESPONTANEA E REFERENCIADA\""
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "paged_table(cliente)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 94,
   "metadata": {},
   "outputs": [],
   "source": [
    "estabelecimento_clientela <- subset(estabelecimentos, select = c('CO_CNES', 'CO_CLIENTELA'))"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 95,
   "metadata": {},
   "outputs": [
    {
     "data": {
      "text/html": [
       "<table>\n",
       "<thead><tr><th scope=col>CO_CNES</th><th scope=col>CO_CLIENTELA</th></tr></thead>\n",
       "<tbody>\n",
       "\t<tr><td>7453280</td><td>3      </td></tr>\n",
       "\t<tr><td>7450184</td><td>1      </td></tr>\n",
       "\t<tr><td>7462956</td><td>1      </td></tr>\n",
       "\t<tr><td>7462476</td><td>1      </td></tr>\n",
       "\t<tr><td>7416490</td><td>3      </td></tr>\n",
       "\t<tr><td>7462123</td><td>1      </td></tr>\n",
       "</tbody>\n",
       "</table>\n"
      ],
      "text/latex": [
       "\\begin{tabular}{r|ll}\n",
       " CO\\_CNES & CO\\_CLIENTELA\\\\\n",
       "\\hline\n",
       "\t 7453280 & 3      \\\\\n",
       "\t 7450184 & 1      \\\\\n",
       "\t 7462956 & 1      \\\\\n",
       "\t 7462476 & 1      \\\\\n",
       "\t 7416490 & 3      \\\\\n",
       "\t 7462123 & 1      \\\\\n",
       "\\end{tabular}\n"
      ],
      "text/markdown": [
       "\n",
       "CO_CNES | CO_CLIENTELA | \n",
       "|---|---|---|---|---|---|\n",
       "| 7453280 | 3       | \n",
       "| 7450184 | 1       | \n",
       "| 7462956 | 1       | \n",
       "| 7462476 | 1       | \n",
       "| 7416490 | 3       | \n",
       "| 7462123 | 1       | \n",
       "\n",
       "\n"
      ],
      "text/plain": [
       "  CO_CNES CO_CLIENTELA\n",
       "1 7453280 3           \n",
       "2 7450184 1           \n",
       "3 7462956 1           \n",
       "4 7462476 1           \n",
       "5 7416490 3           \n",
       "6 7462123 1           "
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "head(estabelecimento_clientela)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 96,
   "metadata": {},
   "outputs": [
    {
     "data": {
      "text/html": [
       "<table>\n",
       "<thead><tr><th scope=col>CO_UNIDADE</th><th scope=col>CO_PROFISSIONAL_SUS</th><th scope=col>CO_CBO</th><th scope=col>TP_SUS_NAO_SUS</th><th scope=col>IND_VINCULACAO</th><th scope=col>TP_TERCEIRO_SIH</th><th scope=col>QT_CARGA_HORARIA_AMBULATORIAL</th><th scope=col>CO_CONSELHO_CLASSE</th><th scope=col>NU_REGISTRO</th><th scope=col>SG_UF_CRM</th><th scope=col>TP_PRECEPTOR</th><th scope=col>TP_RESIDENTE</th><th scope=col>NU_CNPJ_DETALHAMENTO_VINCULO</th><th scope=col>TO_CHAR.A.DT_ATUALIZACAO..DD.MM.YYYY..</th><th scope=col>CO_USUARIO</th><th scope=col>TO_CHAR.A.DT_ATUALIZACAO_ORIGEM..DD.MM.YYYY..</th></tr></thead>\n",
       "<tbody>\n",
       "\t<tr><td>AP00000000000000099990010000004</td><td>1EFFD0E1186062EE               </td><td>515105                         </td><td>S                              </td><td>10000                          </td><td>2                              </td><td> 0                             </td><td>99                             </td><td>                               </td><td>                               </td><td>NA                             </td><td>NA                             </td><td>                               </td><td>01/10/2001                     </td><td>eneida                         </td><td>NA                             </td></tr>\n",
       "\t<tr><td>AP00000000000000099990010000005</td><td>E93ACAD355032651               </td><td>515105                         </td><td>S                              </td><td>10000                          </td><td>2                              </td><td> 0                             </td><td>99                             </td><td>                               </td><td>                               </td><td>NA                             </td><td>NA                             </td><td>                               </td><td>10/12/2001                     </td><td>eneida                         </td><td>NA                             </td></tr>\n",
       "\t<tr><td>AP00000000000000099990010000006</td><td>9D7D13462EBC2D66               </td><td>1999A1                         </td><td>S                              </td><td>10000                          </td><td>2                              </td><td>40                             </td><td>99                             </td><td>                               </td><td>                               </td><td>NA                             </td><td>NA                             </td><td>                               </td><td>31/10/2001                     </td><td>eneida                         </td><td>NA                             </td></tr>\n",
       "\t<tr><td>AP00000000000000099990010000006</td><td>DEF8D0C3756B2772               </td><td>1999A1                         </td><td>S                              </td><td>10000                          </td><td>2                              </td><td>40                             </td><td>99                             </td><td>                               </td><td>                               </td><td>NA                             </td><td>NA                             </td><td>                               </td><td>31/10/2001                     </td><td>eneida                         </td><td>NA                             </td></tr>\n",
       "\t<tr><td>BA00002914802000000000001538640</td><td>67A69EB2A0A7D21F               </td><td>324210                         </td><td>S                              </td><td>10000                          </td><td>2                              </td><td>48                             </td><td>99                             </td><td>                               </td><td>                               </td><td>NA                             </td><td>NA                             </td><td>                               </td><td>25/09/2001                     </td><td>carlinda                       </td><td>NA                             </td></tr>\n",
       "\t<tr><td>BA00002914802000000000001538640</td><td>4B9101A88F718691               </td><td>324210                         </td><td>S                              </td><td>10000                          </td><td>2                              </td><td>48                             </td><td>99                             </td><td>                               </td><td>                               </td><td>NA                             </td><td>NA                             </td><td>                               </td><td>25/09/2001                     </td><td>carlinda                       </td><td>NA                             </td></tr>\n",
       "</tbody>\n",
       "</table>\n"
      ],
      "text/latex": [
       "\\begin{tabular}{r|llllllllllllllll}\n",
       " CO\\_UNIDADE & CO\\_PROFISSIONAL\\_SUS & CO\\_CBO & TP\\_SUS\\_NAO\\_SUS & IND\\_VINCULACAO & TP\\_TERCEIRO\\_SIH & QT\\_CARGA\\_HORARIA\\_AMBULATORIAL & CO\\_CONSELHO\\_CLASSE & NU\\_REGISTRO & SG\\_UF\\_CRM & TP\\_PRECEPTOR & TP\\_RESIDENTE & NU\\_CNPJ\\_DETALHAMENTO\\_VINCULO & TO\\_CHAR.A.DT\\_ATUALIZACAO..DD.MM.YYYY.. & CO\\_USUARIO & TO\\_CHAR.A.DT\\_ATUALIZACAO\\_ORIGEM..DD.MM.YYYY..\\\\\n",
       "\\hline\n",
       "\t AP00000000000000099990010000004 & 1EFFD0E1186062EE                & 515105                          & S                               & 10000                           & 2                               &  0                              & 99                              &                                 &                                 & NA                              & NA                              &                                 & 01/10/2001                      & eneida                          & NA                             \\\\\n",
       "\t AP00000000000000099990010000005 & E93ACAD355032651                & 515105                          & S                               & 10000                           & 2                               &  0                              & 99                              &                                 &                                 & NA                              & NA                              &                                 & 10/12/2001                      & eneida                          & NA                             \\\\\n",
       "\t AP00000000000000099990010000006 & 9D7D13462EBC2D66                & 1999A1                          & S                               & 10000                           & 2                               & 40                              & 99                              &                                 &                                 & NA                              & NA                              &                                 & 31/10/2001                      & eneida                          & NA                             \\\\\n",
       "\t AP00000000000000099990010000006 & DEF8D0C3756B2772                & 1999A1                          & S                               & 10000                           & 2                               & 40                              & 99                              &                                 &                                 & NA                              & NA                              &                                 & 31/10/2001                      & eneida                          & NA                             \\\\\n",
       "\t BA00002914802000000000001538640 & 67A69EB2A0A7D21F                & 324210                          & S                               & 10000                           & 2                               & 48                              & 99                              &                                 &                                 & NA                              & NA                              &                                 & 25/09/2001                      & carlinda                        & NA                             \\\\\n",
       "\t BA00002914802000000000001538640 & 4B9101A88F718691                & 324210                          & S                               & 10000                           & 2                               & 48                              & 99                              &                                 &                                 & NA                              & NA                              &                                 & 25/09/2001                      & carlinda                        & NA                             \\\\\n",
       "\\end{tabular}\n"
      ],
      "text/markdown": [
       "\n",
       "CO_UNIDADE | CO_PROFISSIONAL_SUS | CO_CBO | TP_SUS_NAO_SUS | IND_VINCULACAO | TP_TERCEIRO_SIH | QT_CARGA_HORARIA_AMBULATORIAL | CO_CONSELHO_CLASSE | NU_REGISTRO | SG_UF_CRM | TP_PRECEPTOR | TP_RESIDENTE | NU_CNPJ_DETALHAMENTO_VINCULO | TO_CHAR.A.DT_ATUALIZACAO..DD.MM.YYYY.. | CO_USUARIO | TO_CHAR.A.DT_ATUALIZACAO_ORIGEM..DD.MM.YYYY.. | \n",
       "|---|---|---|---|---|---|\n",
       "| AP00000000000000099990010000004 | 1EFFD0E1186062EE                | 515105                          | S                               | 10000                           | 2                               |  0                              | 99                              |                                 |                                 | NA                              | NA                              |                                 | 01/10/2001                      | eneida                          | NA                              | \n",
       "| AP00000000000000099990010000005 | E93ACAD355032651                | 515105                          | S                               | 10000                           | 2                               |  0                              | 99                              |                                 |                                 | NA                              | NA                              |                                 | 10/12/2001                      | eneida                          | NA                              | \n",
       "| AP00000000000000099990010000006 | 9D7D13462EBC2D66                | 1999A1                          | S                               | 10000                           | 2                               | 40                              | 99                              |                                 |                                 | NA                              | NA                              |                                 | 31/10/2001                      | eneida                          | NA                              | \n",
       "| AP00000000000000099990010000006 | DEF8D0C3756B2772                | 1999A1                          | S                               | 10000                           | 2                               | 40                              | 99                              |                                 |                                 | NA                              | NA                              |                                 | 31/10/2001                      | eneida                          | NA                              | \n",
       "| BA00002914802000000000001538640 | 67A69EB2A0A7D21F                | 324210                          | S                               | 10000                           | 2                               | 48                              | 99                              |                                 |                                 | NA                              | NA                              |                                 | 25/09/2001                      | carlinda                        | NA                              | \n",
       "| BA00002914802000000000001538640 | 4B9101A88F718691                | 324210                          | S                               | 10000                           | 2                               | 48                              | 99                              |                                 |                                 | NA                              | NA                              |                                 | 25/09/2001                      | carlinda                        | NA                              | \n",
       "\n",
       "\n"
      ],
      "text/plain": [
       "  CO_UNIDADE                      CO_PROFISSIONAL_SUS CO_CBO TP_SUS_NAO_SUS\n",
       "1 AP00000000000000099990010000004 1EFFD0E1186062EE    515105 S             \n",
       "2 AP00000000000000099990010000005 E93ACAD355032651    515105 S             \n",
       "3 AP00000000000000099990010000006 9D7D13462EBC2D66    1999A1 S             \n",
       "4 AP00000000000000099990010000006 DEF8D0C3756B2772    1999A1 S             \n",
       "5 BA00002914802000000000001538640 67A69EB2A0A7D21F    324210 S             \n",
       "6 BA00002914802000000000001538640 4B9101A88F718691    324210 S             \n",
       "  IND_VINCULACAO TP_TERCEIRO_SIH QT_CARGA_HORARIA_AMBULATORIAL\n",
       "1 10000          2                0                           \n",
       "2 10000          2                0                           \n",
       "3 10000          2               40                           \n",
       "4 10000          2               40                           \n",
       "5 10000          2               48                           \n",
       "6 10000          2               48                           \n",
       "  CO_CONSELHO_CLASSE NU_REGISTRO SG_UF_CRM TP_PRECEPTOR TP_RESIDENTE\n",
       "1 99                                       NA           NA          \n",
       "2 99                                       NA           NA          \n",
       "3 99                                       NA           NA          \n",
       "4 99                                       NA           NA          \n",
       "5 99                                       NA           NA          \n",
       "6 99                                       NA           NA          \n",
       "  NU_CNPJ_DETALHAMENTO_VINCULO TO_CHAR.A.DT_ATUALIZACAO..DD.MM.YYYY..\n",
       "1                              01/10/2001                            \n",
       "2                              10/12/2001                            \n",
       "3                              31/10/2001                            \n",
       "4                              31/10/2001                            \n",
       "5                              25/09/2001                            \n",
       "6                              25/09/2001                            \n",
       "  CO_USUARIO TO_CHAR.A.DT_ATUALIZACAO_ORIGEM..DD.MM.YYYY..\n",
       "1 eneida     NA                                           \n",
       "2 eneida     NA                                           \n",
       "3 eneida     NA                                           \n",
       "4 eneida     NA                                           \n",
       "5 carlinda   NA                                           \n",
       "6 carlinda   NA                                           "
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "# profissionais de saúde\n",
    "\n",
    "profissionais <- read.csv2('tbCargaHorariaSus201809.csv', header = TRUE)\n",
    "head(profissionais)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 97,
   "metadata": {},
   "outputs": [],
   "source": [
    "profissionais$CO_CBO <- as.character(profissionais$CO_CBO)\n",
    "medicos <- profissionais %>%\n",
    "  select(CO_UNIDADE, CO_PROFISSIONAL_SUS, CO_CBO, TP_SUS_NAO_SUS, QT_CARGA_HORARIA_AMBULATORIAL) %>%\n",
    "  filter(startsWith(CO_CBO, \"2251\") | startsWith(CO_CBO, \"2253\")  | startsWith(CO_CBO, \"2253\"))"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 98,
   "metadata": {},
   "outputs": [
    {
     "data": {
      "text/html": [
       "<table>\n",
       "<thead><tr><th scope=col>CO_UNIDADE</th><th scope=col>CO_PROFISSIONAL_SUS</th><th scope=col>CO_CBO</th><th scope=col>TP_SUS_NAO_SUS</th><th scope=col>QT_CARGA_HORARIA_AMBULATORIAL</th></tr></thead>\n",
       "<tbody>\n",
       "\t<tr><td>CE0000231290000000000000047929 </td><td>0B6C6813432D9673               </td><td>225142                         </td><td>S                              </td><td> 8                             </td></tr>\n",
       "\t<tr><td>ES00000000000000000000000003930</td><td>3E9FD1ABE6A26194               </td><td>225142                         </td><td>S                              </td><td>40                             </td></tr>\n",
       "\t<tr><td>ES00000000000000027503747000119</td><td>0FC7DFF406F99A54               </td><td>225125                         </td><td>S                              </td><td>20                             </td></tr>\n",
       "\t<tr><td>MA0000210120000001862880000178 </td><td>19EA60157171EA00               </td><td>225124                         </td><td>S                              </td><td>20                             </td></tr>\n",
       "\t<tr><td>MA0000210120000001862880000178 </td><td>19EA60157171EA00               </td><td>225125                         </td><td>S                              </td><td>20                             </td></tr>\n",
       "\t<tr><td>MA0000211150000000004442890382 </td><td>5936668BE1F5C1B8               </td><td>225125                         </td><td>S                              </td><td>20                             </td></tr>\n",
       "</tbody>\n",
       "</table>\n"
      ],
      "text/latex": [
       "\\begin{tabular}{r|lllll}\n",
       " CO\\_UNIDADE & CO\\_PROFISSIONAL\\_SUS & CO\\_CBO & TP\\_SUS\\_NAO\\_SUS & QT\\_CARGA\\_HORARIA\\_AMBULATORIAL\\\\\n",
       "\\hline\n",
       "\t CE0000231290000000000000047929  & 0B6C6813432D9673                & 225142                          & S                               &  8                             \\\\\n",
       "\t ES00000000000000000000000003930 & 3E9FD1ABE6A26194                & 225142                          & S                               & 40                             \\\\\n",
       "\t ES00000000000000027503747000119 & 0FC7DFF406F99A54                & 225125                          & S                               & 20                             \\\\\n",
       "\t MA0000210120000001862880000178  & 19EA60157171EA00                & 225124                          & S                               & 20                             \\\\\n",
       "\t MA0000210120000001862880000178  & 19EA60157171EA00                & 225125                          & S                               & 20                             \\\\\n",
       "\t MA0000211150000000004442890382  & 5936668BE1F5C1B8                & 225125                          & S                               & 20                             \\\\\n",
       "\\end{tabular}\n"
      ],
      "text/markdown": [
       "\n",
       "CO_UNIDADE | CO_PROFISSIONAL_SUS | CO_CBO | TP_SUS_NAO_SUS | QT_CARGA_HORARIA_AMBULATORIAL | \n",
       "|---|---|---|---|---|---|\n",
       "| CE0000231290000000000000047929  | 0B6C6813432D9673                | 225142                          | S                               |  8                              | \n",
       "| ES00000000000000000000000003930 | 3E9FD1ABE6A26194                | 225142                          | S                               | 40                              | \n",
       "| ES00000000000000027503747000119 | 0FC7DFF406F99A54                | 225125                          | S                               | 20                              | \n",
       "| MA0000210120000001862880000178  | 19EA60157171EA00                | 225124                          | S                               | 20                              | \n",
       "| MA0000210120000001862880000178  | 19EA60157171EA00                | 225125                          | S                               | 20                              | \n",
       "| MA0000211150000000004442890382  | 5936668BE1F5C1B8                | 225125                          | S                               | 20                              | \n",
       "\n",
       "\n"
      ],
      "text/plain": [
       "  CO_UNIDADE                      CO_PROFISSIONAL_SUS CO_CBO TP_SUS_NAO_SUS\n",
       "1 CE0000231290000000000000047929  0B6C6813432D9673    225142 S             \n",
       "2 ES00000000000000000000000003930 3E9FD1ABE6A26194    225142 S             \n",
       "3 ES00000000000000027503747000119 0FC7DFF406F99A54    225125 S             \n",
       "4 MA0000210120000001862880000178  19EA60157171EA00    225124 S             \n",
       "5 MA0000210120000001862880000178  19EA60157171EA00    225125 S             \n",
       "6 MA0000211150000000004442890382  5936668BE1F5C1B8    225125 S             \n",
       "  QT_CARGA_HORARIA_AMBULATORIAL\n",
       "1  8                           \n",
       "2 40                           \n",
       "3 20                           \n",
       "4 20                           \n",
       "5 20                           \n",
       "6 20                           "
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "head(medicos)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 99,
   "metadata": {},
   "outputs": [],
   "source": [
    "#|2251|Médicos Clínicos|\n",
    "#|2252|Médicos Especialidades Cirurgicas|\n",
    "#|2253|Médicos Dignóstico e Terapêutico|\n"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 100,
   "metadata": {},
   "outputs": [],
   "source": [
    "#É comum que o médico possua mais de um vínculo, então não devemos confiar no resultado acima, \n",
    "#precisamos primeiros filtrar os vinculos multiplos.\n",
    "\n",
    "medicos_unico <- medicos %>%\n",
    "  distinct(CO_PROFISSIONAL_SUS)\n"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 101,
   "metadata": {},
   "outputs": [
    {
     "data": {
      "text/html": [
       "<table>\n",
       "<thead><tr><th scope=col>CO_PROFISSIONAL_SUS</th></tr></thead>\n",
       "<tbody>\n",
       "\t<tr><td>0B6C6813432D9673</td></tr>\n",
       "\t<tr><td>3E9FD1ABE6A26194</td></tr>\n",
       "\t<tr><td>0FC7DFF406F99A54</td></tr>\n",
       "\t<tr><td>19EA60157171EA00</td></tr>\n",
       "\t<tr><td>5936668BE1F5C1B8</td></tr>\n",
       "\t<tr><td>B5B23E4ED1D1896A</td></tr>\n",
       "</tbody>\n",
       "</table>\n"
      ],
      "text/latex": [
       "\\begin{tabular}{r|l}\n",
       " CO\\_PROFISSIONAL\\_SUS\\\\\n",
       "\\hline\n",
       "\t 0B6C6813432D9673\\\\\n",
       "\t 3E9FD1ABE6A26194\\\\\n",
       "\t 0FC7DFF406F99A54\\\\\n",
       "\t 19EA60157171EA00\\\\\n",
       "\t 5936668BE1F5C1B8\\\\\n",
       "\t B5B23E4ED1D1896A\\\\\n",
       "\\end{tabular}\n"
      ],
      "text/markdown": [
       "\n",
       "CO_PROFISSIONAL_SUS | \n",
       "|---|---|---|---|---|---|\n",
       "| 0B6C6813432D9673 | \n",
       "| 3E9FD1ABE6A26194 | \n",
       "| 0FC7DFF406F99A54 | \n",
       "| 19EA60157171EA00 | \n",
       "| 5936668BE1F5C1B8 | \n",
       "| B5B23E4ED1D1896A | \n",
       "\n",
       "\n"
      ],
      "text/plain": [
       "  CO_PROFISSIONAL_SUS\n",
       "1 0B6C6813432D9673   \n",
       "2 3E9FD1ABE6A26194   \n",
       "3 0FC7DFF406F99A54   \n",
       "4 19EA60157171EA00   \n",
       "5 5936668BE1F5C1B8   \n",
       "6 B5B23E4ED1D1896A   "
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "head(medicos_unico)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 103,
   "metadata": {},
   "outputs": [],
   "source": [
    "#Qual a média de vinculos, maximo e mínimo encontrados nos dados?\n",
    "\n",
    "medicos_vinculos <- medicos %>%\n",
    "  group_by(CO_PROFISSIONAL_SUS) %>%\n",
    "  summarise(Vinculos = n())"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 104,
   "metadata": {},
   "outputs": [
    {
     "data": {
      "text/html": [
       "<table>\n",
       "<thead><tr><th scope=col>CO_PROFISSIONAL_SUS</th><th scope=col>Vinculos</th></tr></thead>\n",
       "<tbody>\n",
       "\t<tr><td>00000B89F3840DB3</td><td>1               </td></tr>\n",
       "\t<tr><td>00005AA631AF8AB1</td><td>1               </td></tr>\n",
       "\t<tr><td>000081913134B2FD</td><td>2               </td></tr>\n",
       "\t<tr><td>000097B131348BFE</td><td>2               </td></tr>\n",
       "\t<tr><td>00010160B6D9A7BF</td><td>1               </td></tr>\n",
       "\t<tr><td>0001022809EFF22A</td><td>1               </td></tr>\n",
       "</tbody>\n",
       "</table>\n"
      ],
      "text/latex": [
       "\\begin{tabular}{r|ll}\n",
       " CO\\_PROFISSIONAL\\_SUS & Vinculos\\\\\n",
       "\\hline\n",
       "\t 00000B89F3840DB3 & 1               \\\\\n",
       "\t 00005AA631AF8AB1 & 1               \\\\\n",
       "\t 000081913134B2FD & 2               \\\\\n",
       "\t 000097B131348BFE & 2               \\\\\n",
       "\t 00010160B6D9A7BF & 1               \\\\\n",
       "\t 0001022809EFF22A & 1               \\\\\n",
       "\\end{tabular}\n"
      ],
      "text/markdown": [
       "\n",
       "CO_PROFISSIONAL_SUS | Vinculos | \n",
       "|---|---|---|---|---|---|\n",
       "| 00000B89F3840DB3 | 1                | \n",
       "| 00005AA631AF8AB1 | 1                | \n",
       "| 000081913134B2FD | 2                | \n",
       "| 000097B131348BFE | 2                | \n",
       "| 00010160B6D9A7BF | 1                | \n",
       "| 0001022809EFF22A | 1                | \n",
       "\n",
       "\n"
      ],
      "text/plain": [
       "  CO_PROFISSIONAL_SUS Vinculos\n",
       "1 00000B89F3840DB3    1       \n",
       "2 00005AA631AF8AB1    1       \n",
       "3 000081913134B2FD    2       \n",
       "4 000097B131348BFE    2       \n",
       "5 00010160B6D9A7BF    1       \n",
       "6 0001022809EFF22A    1       "
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "head(medicos_vinculos)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 106,
   "metadata": {},
   "outputs": [
    {
     "data": {
      "text/html": [
       "2.32766383191596"
      ],
      "text/latex": [
       "2.32766383191596"
      ],
      "text/markdown": [
       "2.32766383191596"
      ],
      "text/plain": [
       "[1] 2.327664"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "mean(medicos_vinculos$Vinculos)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 107,
   "metadata": {},
   "outputs": [
    {
     "data": {
      "text/html": [
       "<table>\n",
       "<thead><tr><th scope=col>Mes</th><th scope=col>Ano</th><th scope=col>UF</th><th scope=col>MunicÃ.pio</th><th scope=col>IBGE</th><th scope=col>PopulaÃ.Ã.o</th><th scope=col>NÂº.eSF</th><th scope=col>Estim..Pop..Cob..eSF</th><th scope=col>Cob..Pop..Estimada.eSF</th><th scope=col>CH.MÃ.dico.AB</th><th scope=col>CH.Enfermeiro.AB</th><th scope=col>NÂº.eSF.equivalente</th><th scope=col>NÂº.eAB.parametrizada</th><th scope=col>Estim..Pop..Cob..AB</th><th scope=col>Cob..Pop..Estimada.AB</th></tr></thead>\n",
       "<tbody>\n",
       "\t<tr><td>4              </td><td>2008           </td><td>AC             </td><td>ACRELÃ‚NDIA    </td><td>120001.0       </td><td>11.520         </td><td>5.0            </td><td>11.520         </td><td>100%           </td><td>20.0           </td><td>40.0           </td><td>0.33           </td><td>0.0            </td><td>11.520         </td><td>100%           </td></tr>\n",
       "\t<tr><td>4              </td><td>2008           </td><td>AC             </td><td>ASSIS BRASIL   </td><td>120005.0       </td><td>5.351          </td><td>2.0            </td><td>5.351          </td><td>100%           </td><td>0.0            </td><td>0.0            </td><td>0              </td><td>0.0            </td><td>5.351          </td><td>100%           </td></tr>\n",
       "\t<tr><td>4              </td><td>2008           </td><td>AC             </td><td>BRASILÃ‰IA     </td><td>120010.0       </td><td>19.065         </td><td>6.0            </td><td>19.065         </td><td>100%           </td><td>110.0          </td><td>120.0          </td><td>1.83           </td><td>0.0            </td><td>19.065         </td><td>100%           </td></tr>\n",
       "\t<tr><td>4              </td><td>2008           </td><td>AC             </td><td>BUJARI         </td><td>120013.0       </td><td>6.543          </td><td>1.0            </td><td>3.450          </td><td>52,73%         </td><td>40.0           </td><td>40.0           </td><td>0.66           </td><td>0.0            </td><td>5.430          </td><td>82,99%         </td></tr>\n",
       "\t<tr><td>4              </td><td>2008           </td><td>AC             </td><td>CAPIXABA       </td><td>120017.0       </td><td>8.446          </td><td>2.0            </td><td>6.900          </td><td>81,70%         </td><td>40.0           </td><td>0.0            </td><td>0              </td><td>0.0            </td><td>6.900          </td><td>81,70%         </td></tr>\n",
       "\t<tr><td>4              </td><td>2008           </td><td>AC             </td><td>CRUZEIRO DO SUL</td><td>120020.0       </td><td>73.948         </td><td>16.0           </td><td>55.200         </td><td>74,65%         </td><td>40.0           </td><td>80.0           </td><td>0.66           </td><td>0.0            </td><td>57.180         </td><td>77,32%         </td></tr>\n",
       "</tbody>\n",
       "</table>\n"
      ],
      "text/latex": [
       "\\begin{tabular}{r|lllllllllllllll}\n",
       " Mes & Ano & UF & MunicÃ.pio & IBGE & PopulaÃ.Ã.o & NÂº.eSF & Estim..Pop..Cob..eSF & Cob..Pop..Estimada.eSF & CH.MÃ.dico.AB & CH.Enfermeiro.AB & NÂº.eSF.equivalente & NÂº.eAB.parametrizada & Estim..Pop..Cob..AB & Cob..Pop..Estimada.AB\\\\\n",
       "\\hline\n",
       "\t 4               & 2008            & AC              & ACRELÃ‚NDIA     & 120001.0        & 11.520          & 5.0             & 11.520          & 100\\%          & 20.0            & 40.0            & 0.33            & 0.0             & 11.520          & 100\\%         \\\\\n",
       "\t 4               & 2008            & AC              & ASSIS BRASIL    & 120005.0        & 5.351           & 2.0             & 5.351           & 100\\%          & 0.0             & 0.0             & 0               & 0.0             & 5.351           & 100\\%         \\\\\n",
       "\t 4               & 2008            & AC              & BRASILÃ‰IA      & 120010.0        & 19.065          & 6.0             & 19.065          & 100\\%          & 110.0           & 120.0           & 1.83            & 0.0             & 19.065          & 100\\%         \\\\\n",
       "\t 4               & 2008            & AC              & BUJARI          & 120013.0        & 6.543           & 1.0             & 3.450           & 52,73\\%        & 40.0            & 40.0            & 0.66            & 0.0             & 5.430           & 82,99\\%       \\\\\n",
       "\t 4               & 2008            & AC              & CAPIXABA        & 120017.0        & 8.446           & 2.0             & 6.900           & 81,70\\%        & 40.0            & 0.0             & 0               & 0.0             & 6.900           & 81,70\\%       \\\\\n",
       "\t 4               & 2008            & AC              & CRUZEIRO DO SUL & 120020.0        & 73.948          & 16.0            & 55.200          & 74,65\\%        & 40.0            & 80.0            & 0.66            & 0.0             & 57.180          & 77,32\\%       \\\\\n",
       "\\end{tabular}\n"
      ],
      "text/markdown": [
       "\n",
       "Mes | Ano | UF | MunicÃ.pio | IBGE | PopulaÃ.Ã.o | NÂº.eSF | Estim..Pop..Cob..eSF | Cob..Pop..Estimada.eSF | CH.MÃ.dico.AB | CH.Enfermeiro.AB | NÂº.eSF.equivalente | NÂº.eAB.parametrizada | Estim..Pop..Cob..AB | Cob..Pop..Estimada.AB | \n",
       "|---|---|---|---|---|---|\n",
       "| 4               | 2008            | AC              | ACRELÃ‚NDIA     | 120001.0        | 11.520          | 5.0             | 11.520          | 100%            | 20.0            | 40.0            | 0.33            | 0.0             | 11.520          | 100%            | \n",
       "| 4               | 2008            | AC              | ASSIS BRASIL    | 120005.0        | 5.351           | 2.0             | 5.351           | 100%            | 0.0             | 0.0             | 0               | 0.0             | 5.351           | 100%            | \n",
       "| 4               | 2008            | AC              | BRASILÃ‰IA      | 120010.0        | 19.065          | 6.0             | 19.065          | 100%            | 110.0           | 120.0           | 1.83            | 0.0             | 19.065          | 100%            | \n",
       "| 4               | 2008            | AC              | BUJARI          | 120013.0        | 6.543           | 1.0             | 3.450           | 52,73%          | 40.0            | 40.0            | 0.66            | 0.0             | 5.430           | 82,99%          | \n",
       "| 4               | 2008            | AC              | CAPIXABA        | 120017.0        | 8.446           | 2.0             | 6.900           | 81,70%          | 40.0            | 0.0             | 0               | 0.0             | 6.900           | 81,70%          | \n",
       "| 4               | 2008            | AC              | CRUZEIRO DO SUL | 120020.0        | 73.948          | 16.0            | 55.200          | 74,65%          | 40.0            | 80.0            | 0.66            | 0.0             | 57.180          | 77,32%          | \n",
       "\n",
       "\n"
      ],
      "text/plain": [
       "  Mes Ano  UF MunicÃ.pio      IBGE     PopulaÃ.Ã.o NÂº.eSF Estim..Pop..Cob..eSF\n",
       "1 4   2008 AC ACRELÃ‚NDIA     120001.0 11.520      5.0     11.520              \n",
       "2 4   2008 AC ASSIS BRASIL    120005.0 5.351       2.0     5.351               \n",
       "3 4   2008 AC BRASILÃ‰IA      120010.0 19.065      6.0     19.065              \n",
       "4 4   2008 AC BUJARI          120013.0 6.543       1.0     3.450               \n",
       "5 4   2008 AC CAPIXABA        120017.0 8.446       2.0     6.900               \n",
       "6 4   2008 AC CRUZEIRO DO SUL 120020.0 73.948      16.0    55.200              \n",
       "  Cob..Pop..Estimada.eSF CH.MÃ.dico.AB CH.Enfermeiro.AB NÂº.eSF.equivalente\n",
       "1 100%                   20.0          40.0             0.33               \n",
       "2 100%                   0.0           0.0              0                  \n",
       "3 100%                   110.0         120.0            1.83               \n",
       "4 52,73%                 40.0          40.0             0.66               \n",
       "5 81,70%                 40.0          0.0              0                  \n",
       "6 74,65%                 40.0          80.0             0.66               \n",
       "  NÂº.eAB.parametrizada Estim..Pop..Cob..AB Cob..Pop..Estimada.AB\n",
       "1 0.0                   11.520              100%                 \n",
       "2 0.0                   5.351               100%                 \n",
       "3 0.0                   19.065              100%                 \n",
       "4 0.0                   5.430               82,99%               \n",
       "5 0.0                   6.900               81,70%               \n",
       "6 0.0                   57.180              77,32%               "
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "cobertura_ab <- read.csv2('cobertura_AB_2007_2018.csv', header = TRUE)\n",
    "head(cobertura_ab)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 124,
   "metadata": {},
   "outputs": [],
   "source": [
    "#de todos os valores recebidos, qual a porcentagem correspondente à Atenção Básica?\n",
    "fns$vlLiquido <- as.numeric(as.character(fns$vlLiquido))\n",
    "fns_reduced <- fns %>%\n",
    "  filter(ANO == 2017) %>%\n",
    "  group_by(MUNICIPIO) %>%\n",
    "  summarise(Total_Investido = sum(vlLiquido))\n",
    "fns_tmp <- fns %>%\n",
    "  filter(ANO == 2017 & nome == 'ATENÇÃO BÁSICA') %>%\n",
    "  select(MUNICIPIO, vlLiquido)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 125,
   "metadata": {},
   "outputs": [
    {
     "data": {
      "text/html": [
       "<table>\n",
       "<thead><tr><th scope=col>MUNICIPIO</th><th scope=col>Total_Investido</th></tr></thead>\n",
       "<tbody>\n",
       "\t<tr><td>110001  </td><td> 4880383</td></tr>\n",
       "\t<tr><td>110002  </td><td>22314782</td></tr>\n",
       "\t<tr><td>110003  </td><td> 1406911</td></tr>\n",
       "\t<tr><td>110004  </td><td>17907238</td></tr>\n",
       "\t<tr><td>110005  </td><td> 4084366</td></tr>\n",
       "\t<tr><td>110006  </td><td> 3492792</td></tr>\n",
       "</tbody>\n",
       "</table>\n"
      ],
      "text/latex": [
       "\\begin{tabular}{r|ll}\n",
       " MUNICIPIO & Total\\_Investido\\\\\n",
       "\\hline\n",
       "\t 110001   &  4880383\\\\\n",
       "\t 110002   & 22314782\\\\\n",
       "\t 110003   &  1406911\\\\\n",
       "\t 110004   & 17907238\\\\\n",
       "\t 110005   &  4084366\\\\\n",
       "\t 110006   &  3492792\\\\\n",
       "\\end{tabular}\n"
      ],
      "text/markdown": [
       "\n",
       "MUNICIPIO | Total_Investido | \n",
       "|---|---|---|---|---|---|\n",
       "| 110001   |  4880383 | \n",
       "| 110002   | 22314782 | \n",
       "| 110003   |  1406911 | \n",
       "| 110004   | 17907238 | \n",
       "| 110005   |  4084366 | \n",
       "| 110006   |  3492792 | \n",
       "\n",
       "\n"
      ],
      "text/plain": [
       "  MUNICIPIO Total_Investido\n",
       "1 110001     4880383       \n",
       "2 110002    22314782       \n",
       "3 110003     1406911       \n",
       "4 110004    17907238       \n",
       "5 110005     4084366       \n",
       "6 110006     3492792       "
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "head(fns_reduced)\n"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 126,
   "metadata": {},
   "outputs": [],
   "source": [
    "fns_reduced <- merge(fns_reduced,fns_tmp)\n",
    "names(fns_reduced)[1] <- 'code'\n",
    "names(fns_reduced)[3] <- 'Total_AB'"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 129,
   "metadata": {},
   "outputs": [],
   "source": [
    "fns_reduced$percent_ab <- (fns_reduced$Total_AB/fns_reduced$Total_Investido)*100"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 132,
   "metadata": {},
   "outputs": [],
   "source": [
    "cobertura_brasil <- merge(brasil, cobertura_ab_reduced, all.x = TRUE)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 133,
   "metadata": {},
   "outputs": [
    {
     "data": {
      "text/html": [
       "<table>\n",
       "<thead><tr><th scope=col>code</th><th scope=col>city</th><th scope=col>state</th><th scope=col>region</th><th scope=col>population</th><th scope=col>pop_coberta_ab_percent</th><th scope=col>MunicÃ.pio</th><th scope=col>Cob..Pop..Estimada.AB</th><th scope=col>pop_coberta_ab</th></tr></thead>\n",
       "<tbody>\n",
       "\t<tr><td>110001               </td><td>Alta Floresta D'Oeste</td><td>RondÃ´nia            </td><td>NORTE                </td><td> 25437               </td><td>NA                   </td><td>ALTA FLORESTA D'OESTE</td><td>67,63%               </td><td>NA                   </td></tr>\n",
       "\t<tr><td>110002               </td><td>Ariquemes            </td><td>RondÃ´nia            </td><td>NORTE                </td><td>107345               </td><td>NA                   </td><td>ARIQUEMES            </td><td>66,72%               </td><td>NA                   </td></tr>\n",
       "\t<tr><td>110003               </td><td>Cabixi               </td><td>RondÃ´nia            </td><td>NORTE                </td><td>  6224               </td><td>NA                   </td><td>CABIXI               </td><td>100%                 </td><td>NA                   </td></tr>\n",
       "\t<tr><td>110004               </td><td>Cacoal               </td><td>RondÃ´nia            </td><td>NORTE                </td><td> 88507               </td><td>NA                   </td><td>CACOAL               </td><td>62,82%               </td><td>NA                   </td></tr>\n",
       "\t<tr><td>110005               </td><td>Cerejeiras           </td><td>RondÃ´nia            </td><td>NORTE                </td><td> 17934               </td><td>NA                   </td><td>CEREJEIRAS           </td><td>96,05%               </td><td>NA                   </td></tr>\n",
       "\t<tr><td>110006               </td><td>Colorado do Oeste    </td><td>RondÃ´nia            </td><td>NORTE                </td><td> 18467               </td><td>NA                   </td><td>COLORADO DO OESTE    </td><td>92,55%               </td><td>NA                   </td></tr>\n",
       "</tbody>\n",
       "</table>\n"
      ],
      "text/latex": [
       "\\begin{tabular}{r|lllllllll}\n",
       " code & city & state & region & population & pop\\_coberta\\_ab\\_percent & MunicÃ.pio & Cob..Pop..Estimada.AB & pop\\_coberta\\_ab\\\\\n",
       "\\hline\n",
       "\t 110001                & Alta Floresta D'Oeste & RondÃ´nia             & NORTE                 &  25437                & NA                    & ALTA FLORESTA D'OESTE & 67,63\\%              & NA                   \\\\\n",
       "\t 110002                & Ariquemes             & RondÃ´nia             & NORTE                 & 107345                & NA                    & ARIQUEMES             & 66,72\\%              & NA                   \\\\\n",
       "\t 110003                & Cabixi                & RondÃ´nia             & NORTE                 &   6224                & NA                    & CABIXI                & 100\\%                & NA                   \\\\\n",
       "\t 110004                & Cacoal                & RondÃ´nia             & NORTE                 &  88507                & NA                    & CACOAL                & 62,82\\%              & NA                   \\\\\n",
       "\t 110005                & Cerejeiras            & RondÃ´nia             & NORTE                 &  17934                & NA                    & CEREJEIRAS            & 96,05\\%              & NA                   \\\\\n",
       "\t 110006                & Colorado do Oeste     & RondÃ´nia             & NORTE                 &  18467                & NA                    & COLORADO DO OESTE     & 92,55\\%              & NA                   \\\\\n",
       "\\end{tabular}\n"
      ],
      "text/markdown": [
       "\n",
       "code | city | state | region | population | pop_coberta_ab_percent | MunicÃ.pio | Cob..Pop..Estimada.AB | pop_coberta_ab | \n",
       "|---|---|---|---|---|---|\n",
       "| 110001                | Alta Floresta D'Oeste | RondÃ´nia             | NORTE                 |  25437                | NA                    | ALTA FLORESTA D'OESTE | 67,63%                | NA                    | \n",
       "| 110002                | Ariquemes             | RondÃ´nia             | NORTE                 | 107345                | NA                    | ARIQUEMES             | 66,72%                | NA                    | \n",
       "| 110003                | Cabixi                | RondÃ´nia             | NORTE                 |   6224                | NA                    | CABIXI                | 100%                  | NA                    | \n",
       "| 110004                | Cacoal                | RondÃ´nia             | NORTE                 |  88507                | NA                    | CACOAL                | 62,82%                | NA                    | \n",
       "| 110005                | Cerejeiras            | RondÃ´nia             | NORTE                 |  17934                | NA                    | CEREJEIRAS            | 96,05%                | NA                    | \n",
       "| 110006                | Colorado do Oeste     | RondÃ´nia             | NORTE                 |  18467                | NA                    | COLORADO DO OESTE     | 92,55%                | NA                    | \n",
       "\n",
       "\n"
      ],
      "text/plain": [
       "  code   city                  state     region population\n",
       "1 110001 Alta Floresta D'Oeste RondÃ´nia NORTE   25437    \n",
       "2 110002 Ariquemes             RondÃ´nia NORTE  107345    \n",
       "3 110003 Cabixi                RondÃ´nia NORTE    6224    \n",
       "4 110004 Cacoal                RondÃ´nia NORTE   88507    \n",
       "5 110005 Cerejeiras            RondÃ´nia NORTE   17934    \n",
       "6 110006 Colorado do Oeste     RondÃ´nia NORTE   18467    \n",
       "  pop_coberta_ab_percent MunicÃ.pio            Cob..Pop..Estimada.AB\n",
       "1 NA                     ALTA FLORESTA D'OESTE 67,63%               \n",
       "2 NA                     ARIQUEMES             66,72%               \n",
       "3 NA                     CABIXI                100%                 \n",
       "4 NA                     CACOAL                62,82%               \n",
       "5 NA                     CEREJEIRAS            96,05%               \n",
       "6 NA                     COLORADO DO OESTE     92,55%               \n",
       "  pop_coberta_ab\n",
       "1 NA            \n",
       "2 NA            \n",
       "3 NA            \n",
       "4 NA            \n",
       "5 NA            \n",
       "6 NA            "
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "head(cobertura_brasil)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 134,
   "metadata": {},
   "outputs": [],
   "source": [
    "write.csv2(cobertura_brasil, 'brasil_basico.csv', row.names = FALSE)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 114,
   "metadata": {},
   "outputs": [
    {
     "data": {
      "text/html": [
       "<table>\n",
       "<thead><tr><th scope=col>nome</th><th scope=col>vlTotal</th><th scope=col>vlDesconto</th><th scope=col>vlLiquido</th><th scope=col>ANO</th><th scope=col>MUNICIPIO</th></tr></thead>\n",
       "<tbody>\n",
       "\t<tr><td>ASSISTÃŠNCIA FARMACÃŠUTICA                          </td><td>124205.4                                            </td><td>0                                                   </td><td>124205.4                                            </td><td>2012                                                </td><td>110001                                              </td></tr>\n",
       "\t<tr><td>ATENÃ‡ÃƒO BÃSICA                                   </td><td>2572117.87                                          </td><td>0                                                   </td><td>2572117.87                                          </td><td>2012                                                </td><td>110001                                              </td></tr>\n",
       "\t<tr><td>INVESTIMENTO                                        </td><td>60000                                               </td><td>0                                                   </td><td>60000                                               </td><td>2012                                                </td><td>110001                                              </td></tr>\n",
       "\t<tr><td>MÃ‰DIA E ALTA COMPLEXIDADE AMBULATORIAL E HOSPITALAR</td><td>2013077.58                                          </td><td>960                                                 </td><td>2012117.58                                          </td><td>2012                                                </td><td>110001                                              </td></tr>\n",
       "\t<tr><td>VIGILÃ‚NCIA EM SAÃšDE                               </td><td>246711.2                                            </td><td>0                                                   </td><td>246711.2                                            </td><td>2012                                                </td><td>110001                                              </td></tr>\n",
       "\t<tr><td>ASSISTÃŠNCIA FARMACÃŠUTICA                          </td><td>436259.16                                           </td><td>0                                                   </td><td>436259.16                                           </td><td>2012                                                </td><td>110002                                              </td></tr>\n",
       "</tbody>\n",
       "</table>\n"
      ],
      "text/latex": [
       "\\begin{tabular}{r|llllll}\n",
       " nome & vlTotal & vlDesconto & vlLiquido & ANO & MUNICIPIO\\\\\n",
       "\\hline\n",
       "\t ASSISTÃŠNCIA FARMACÃŠUTICA                           & 124205.4                                             & 0                                                    & 124205.4                                             & 2012                                                 & 110001                                              \\\\\n",
       "\t ATENÃ‡ÃƒO BÃSICA                                    & 2572117.87                                           & 0                                                    & 2572117.87                                           & 2012                                                 & 110001                                              \\\\\n",
       "\t INVESTIMENTO                                         & 60000                                                & 0                                                    & 60000                                                & 2012                                                 & 110001                                              \\\\\n",
       "\t MÃ‰DIA E ALTA COMPLEXIDADE AMBULATORIAL E HOSPITALAR & 2013077.58                                           & 960                                                  & 2012117.58                                           & 2012                                                 & 110001                                              \\\\\n",
       "\t VIGILÃ‚NCIA EM SAÃšDE                                & 246711.2                                             & 0                                                    & 246711.2                                             & 2012                                                 & 110001                                              \\\\\n",
       "\t ASSISTÃŠNCIA FARMACÃŠUTICA                           & 436259.16                                            & 0                                                    & 436259.16                                            & 2012                                                 & 110002                                              \\\\\n",
       "\\end{tabular}\n"
      ],
      "text/markdown": [
       "\n",
       "nome | vlTotal | vlDesconto | vlLiquido | ANO | MUNICIPIO | \n",
       "|---|---|---|---|---|---|\n",
       "| ASSISTÃŠNCIA FARMACÃŠUTICA                           | 124205.4                                             | 0                                                    | 124205.4                                             | 2012                                                 | 110001                                               | \n",
       "| ATENÃ‡ÃƒO BÃSICA                                    | 2572117.87                                           | 0                                                    | 2572117.87                                           | 2012                                                 | 110001                                               | \n",
       "| INVESTIMENTO                                         | 60000                                                | 0                                                    | 60000                                                | 2012                                                 | 110001                                               | \n",
       "| MÃ‰DIA E ALTA COMPLEXIDADE AMBULATORIAL E HOSPITALAR | 2013077.58                                           | 960                                                  | 2012117.58                                           | 2012                                                 | 110001                                               | \n",
       "| VIGILÃ‚NCIA EM SAÃšDE                                | 246711.2                                             | 0                                                    | 246711.2                                             | 2012                                                 | 110001                                               | \n",
       "| ASSISTÃŠNCIA FARMACÃŠUTICA                           | 436259.16                                            | 0                                                    | 436259.16                                            | 2012                                                 | 110002                                               | \n",
       "\n",
       "\n"
      ],
      "text/plain": [
       "  nome                                                 vlTotal    vlDesconto\n",
       "1 ASSISTÃŠNCIA FARMACÃŠUTICA                           124205.4   0         \n",
       "2 ATENÃ‡ÃƒO BÃ\\201SICA                                    2572117.87 0         \n",
       "3 INVESTIMENTO                                         60000      0         \n",
       "4 MÃ‰DIA E ALTA COMPLEXIDADE AMBULATORIAL E HOSPITALAR 2013077.58 960       \n",
       "5 VIGILÃ‚NCIA EM SAÃšDE                                246711.2   0         \n",
       "6 ASSISTÃŠNCIA FARMACÃŠUTICA                           436259.16  0         \n",
       "  vlLiquido  ANO  MUNICIPIO\n",
       "1 124205.4   2012 110001   \n",
       "2 2572117.87 2012 110001   \n",
       "3 60000      2012 110001   \n",
       "4 2012117.58 2012 110001   \n",
       "5 246711.2   2012 110001   \n",
       "6 436259.16  2012 110002   "
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "#recursos repassados pelo Fundo Nacional de Saúde (FNS) para os municípios. O valor que já representou no passado quase 80% do orçamento de saúde dos municípios, hoje está na média dos 30%.\n",
    "fns <- read.csv2('investimentos-sus-2012-2017.csv', header = TRUE)\n",
    "head(fns)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 135,
   "metadata": {},
   "outputs": [],
   "source": [
    "fns$vlLiquido <- as.numeric(as.character(fns$vlLiquido))\n",
    "fns_reduced <- fns %>%\n",
    "  filter(ANO == 2017) %>%\n",
    "  group_by(MUNICIPIO) %>%\n",
    "  summarise(Total_Investido = sum(vlLiquido))\n"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 136,
   "metadata": {},
   "outputs": [
    {
     "data": {
      "text/html": [
       "<table>\n",
       "<thead><tr><th scope=col>MUNICIPIO</th><th scope=col>Total_Investido</th></tr></thead>\n",
       "<tbody>\n",
       "\t<tr><td>110001  </td><td> 4880383</td></tr>\n",
       "\t<tr><td>110002  </td><td>22314782</td></tr>\n",
       "\t<tr><td>110003  </td><td> 1406911</td></tr>\n",
       "\t<tr><td>110004  </td><td>17907238</td></tr>\n",
       "\t<tr><td>110005  </td><td> 4084366</td></tr>\n",
       "\t<tr><td>110006  </td><td> 3492792</td></tr>\n",
       "</tbody>\n",
       "</table>\n"
      ],
      "text/latex": [
       "\\begin{tabular}{r|ll}\n",
       " MUNICIPIO & Total\\_Investido\\\\\n",
       "\\hline\n",
       "\t 110001   &  4880383\\\\\n",
       "\t 110002   & 22314782\\\\\n",
       "\t 110003   &  1406911\\\\\n",
       "\t 110004   & 17907238\\\\\n",
       "\t 110005   &  4084366\\\\\n",
       "\t 110006   &  3492792\\\\\n",
       "\\end{tabular}\n"
      ],
      "text/markdown": [
       "\n",
       "MUNICIPIO | Total_Investido | \n",
       "|---|---|---|---|---|---|\n",
       "| 110001   |  4880383 | \n",
       "| 110002   | 22314782 | \n",
       "| 110003   |  1406911 | \n",
       "| 110004   | 17907238 | \n",
       "| 110005   |  4084366 | \n",
       "| 110006   |  3492792 | \n",
       "\n",
       "\n"
      ],
      "text/plain": [
       "  MUNICIPIO Total_Investido\n",
       "1 110001     4880383       \n",
       "2 110002    22314782       \n",
       "3 110003     1406911       \n",
       "4 110004    17907238       \n",
       "5 110005     4084366       \n",
       "6 110006     3492792       "
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "head(fns_reduced)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 137,
   "metadata": {},
   "outputs": [],
   "source": [
    "fns_tmp <- fns %>%\n",
    "  filter(ANO == 2017 & nome == 'ATENÇÃO BÁSICA') %>%\n",
    "  select(MUNICIPIO, vlLiquido)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 138,
   "metadata": {},
   "outputs": [],
   "source": [
    "fns_reduced <- merge(fns_reduced,fns_tmp)\n",
    "names(fns_reduced)[1] <- 'code'\n",
    "names(fns_reduced)[3] <- 'Total_AB'"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 139,
   "metadata": {},
   "outputs": [],
   "source": [
    "fns_reduced$percent_ab <- (fns_reduced$Total_AB/fns_reduced$Total_Investido)*100"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 140,
   "metadata": {},
   "outputs": [
    {
     "data": {
      "text/html": [
       "<table>\n",
       "<thead><tr><th scope=col>code</th><th scope=col>Total_Investido</th><th scope=col>Total_AB</th><th scope=col>percent_ab</th></tr></thead>\n",
       "<tbody>\n",
       "</tbody>\n",
       "</table>\n"
      ],
      "text/latex": [
       "\\begin{tabular}{r|llll}\n",
       " code & Total\\_Investido & Total\\_AB & percent\\_ab\\\\\n",
       "\\hline\n",
       "\\end{tabular}\n"
      ],
      "text/markdown": [
       "\n",
       "code | Total_Investido | Total_AB | percent_ab | \n",
       "||\n",
       "\n",
       "\n"
      ],
      "text/plain": [
       "     code Total_Investido Total_AB percent_ab"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "fns_reduced\n"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": null,
   "metadata": {},
   "outputs": [],
   "source": []
  }
 ],
 "metadata": {
  "kernelspec": {
   "display_name": "R",
   "language": "R",
   "name": "ir"
  },
  "language_info": {
   "codemirror_mode": "r",
   "file_extension": ".r",
   "mimetype": "text/x-r-source",
   "name": "R",
   "pygments_lexer": "r",
   "version": "3.5.1"
  }
 },
 "nbformat": 4,
 "nbformat_minor": 2
}