NT - CRAS Brasília com geocodebr

Neste documento é demonstrado a geração de latitudes e longitudes de 3 (três) Centros de Referência de Assistência Social (CRAS) do Censo SUAS 2024 usando a biblioteca gecodebr. Abaixo, seguem os dados dos CRAS coletados sem nenhum tratamento do Censo SUAS 2024 e um segundo endereço feito por pesquisa.

CRAS ITAPOÃ - 53001004871

tipo de logradoro: Quadra
endereço: QUADRA 61 ÁREA ESPECIAL 3
número: 0
complemento: ITAPOÃ
bairro: ITAPOÃ
cep: 70610200
cidade: Brasília
estado: DF
código ibge: 530010

endereco2: Quadra 61 - Del Lago I (Itapoã)
cep2: 71591500


Itapoã Parque - 53001040309

tipo de logradoro: Avenida
endereço: Quadra 502
número: 1
complemento: Itapoã Parque
bairro: Itapoã Parque
cep: 71592070
cidade: Brasília
estado: DF
código: 530010

endereco2: Quadra 502 Área Especial 3 Avenida Itapoã Parque
cep2: 71592081


CRAS Estrututral - 53001004854

tipo de logradoro: Quadra
endereço: Quadra 05 Área Especial
número: 2
complemento: CIDADE ESTRUTURAL
bairro: CIDADE ESTRUTURAL
cep: 70297400
cidade: Brasília
estado: DF
código: 530010

endereco2: Quadra 5 Área Especial 2
cep2: 71256260


Criação do dataframe de dados

codigo_cras <- c(53001004871,53001040309,53001004854)
nome_cras <- c("CRAS ITAPOÃ","Itapoã Parque","CRAS Estrututral")
logradoro <- c("Quadra", "Quadra", "Quadra")
numero <- c(0,1,2)
endereco <- c("QUADRA 61 ÁREA ESPECIAL 3"
              ,"Quadra 502"
              ,"Quadra 05 Área Especial")
endereco2 <- c("Quadra 61 - Del Lago I (Itapoã)"
               , "Quadra 502 Área Especial 3 Avenida Itapoã Parque"
               , "Quadra 5 Área Especial 2")
bairro <- c("ITAPOÃ","Itapoã Parque","CIDADE ESTRUTURAL")
complemento <- c("ITAPOÃ","Itapoã Parque","CIDADE ESTRUTURAL")
cep <- c("70610200","71592070","70297400")
cep2 <- c("71591500","71592081","71256260")
estado <- c("DF","DF","DF")
codigo_ibge <- c("530010","530010","530010")
municipio <- c("Brasília","Brasília","Brasília")
latgoogle <- c(-15.743671444023715,-15.733340951292037, -15.776017187272343)
longoogle <- c(-47.76772848882142, -47.76511128185649,-47.99947816853133)


dados <- data.frame(
  
          codigo_cras
          , nome_cras
          , logradoro
          , numero
          , endereco
          , endereco2
          , bairro
          , complemento
          , cep
          , cep2
          , estado
          , codigo_ibge
          , municipio
          
        )

dados
##   codigo_cras        nome_cras logradoro numero                  endereco
## 1 53001004871      CRAS ITAPOÃ    Quadra      0 QUADRA 61 ÁREA ESPECIAL 3
## 2 53001040309    Itapoã Parque    Quadra      1                Quadra 502
## 3 53001004854 CRAS Estrututral    Quadra      2   Quadra 05 Área Especial
##                                          endereco2            bairro
## 1                  Quadra 61 - Del Lago I (Itapoã)            ITAPOÃ
## 2 Quadra 502 Área Especial 3 Avenida Itapoã Parque     Itapoã Parque
## 3                         Quadra 5 Área Especial 2 CIDADE ESTRUTURAL
##         complemento      cep     cep2 estado codigo_ibge municipio
## 1            ITAPOÃ 70610200 71591500     DF      530010  Brasília
## 2     Itapoã Parque 71592070 71592081     DF      530010  Brasília
## 3 CIDADE ESTRUTURAL 70297400 71256260     DF      530010  Brasília
campos <- geocodebr::definir_campos(
  
  logradouro = "endereco"
  , numero = "numero"
  , cep = "cep"
  , localidade = "bairro"
  , municipio = "codigo_ibge"
  , estado = "estado"
  
)

library("geocodebr")

dados_com_latlon <- data.frame()
dados_com_latlon <- geocodebr::geocode(
  
  enderecos = dados
  , campos_endereco = campos
  , resultado_completo = F
  , resolver_empates = F
  , resultado_sf = F
  , verboso = F
  , cache = T
  , n_cores = 1
  
)
dados_com_latlon
dados_com_latlon
##    codigo_cras        nome_cras logradoro numero                  endereco
##          <num>           <char>    <char>  <num>                    <char>
## 1: 53001004871      CRAS ITAPOÃ    Quadra      0 QUADRA 61 ÁREA ESPECIAL 3
## 2: 53001040309    Itapoã Parque    Quadra      1                Quadra 502
## 3: 53001004854 CRAS Estrututral    Quadra      2   Quadra 05 Área Especial
##                                           endereco2            bairro
##                                              <char>            <char>
## 1:                  Quadra 61 - Del Lago I (Itapoã)            ITAPOÃ
## 2: Quadra 502 Área Especial 3 Avenida Itapoã Parque     Itapoã Parque
## 3:                         Quadra 5 Área Especial 2 CIDADE ESTRUTURAL
##          complemento      cep     cep2 estado codigo_ibge municipio       lat
##               <char>   <char>   <char> <char>      <char>    <char>     <num>
## 1:            ITAPOÃ 70610200 71591500     DF      530010  Brasília -15.83203
## 2:     Itapoã Parque 71592070 71592081     DF      530010  Brasília -15.82213
## 3: CIDADE ESTRUTURAL 70297400 71256260     DF      530010  Brasília -15.78320
##          lon tipo_resultado  precisao      endereco_encontrado contagem_cnefe
##        <num>         <char>    <char>                   <char>          <int>
## 1: -47.93992           dc02       cep BRASILIA - DF, 70610-200            142
## 2: -47.96991           dm01 municipio            BRASILIA - DF        1307904
## 3: -47.95948           dc02       cep BRASILIA - DF, 70297-400            924

Plot GEOCODEBR

library(leaflet)

leaflet(dados_com_latlon) %>%
  addTiles() %>%
  addMarkers(~lon, ~lat, popup = ~nome_cras, label = ~nome_cras, labelOptions = labelOptions(noHide = TRUE))

###Plot Google

library(leaflet)

leaflet(dados_com_latlon) %>%
  addTiles() %>%
  addMarkers(~longoogle, ~latgoogle, popup = ~nome_cras, label = ~nome_cras, labelOptions = labelOptions(noHide = TRUE))

Mudando os endereços para os que estão no google.

campos2 <- geocodebr::definir_campos(
  
  logradouro = "endereco2"
  , numero = "numero"
  , cep = "cep2"
  , localidade = "bairro"
  , municipio = "codigo_ibge"
  , estado = "estado"
  
)

library("geocodebr")

dados_com_latlon2 <- data.frame()
dados_com_latlon2 <- geocodebr::geocode(
  
  enderecos = dados
  , campos_endereco = campos2
  , resultado_completo = F
  , resolver_empates = F
  , resultado_sf = F
  , verboso = F
  , cache = T
  , n_cores = 1
  
)

dados_com_latlon2
dados_com_latlon2
##    codigo_cras        nome_cras logradoro numero                  endereco
##          <num>           <char>    <char>  <num>                    <char>
## 1: 53001004871      CRAS ITAPOÃ    Quadra      0 QUADRA 61 ÁREA ESPECIAL 3
## 2: 53001040309    Itapoã Parque    Quadra      1                Quadra 502
## 3: 53001004854 CRAS Estrututral    Quadra      2   Quadra 05 Área Especial
##                                           endereco2            bairro
##                                              <char>            <char>
## 1:                  Quadra 61 - Del Lago I (Itapoã)            ITAPOÃ
## 2: Quadra 502 Área Especial 3 Avenida Itapoã Parque     Itapoã Parque
## 3:                         Quadra 5 Área Especial 2 CIDADE ESTRUTURAL
##          complemento      cep     cep2 estado codigo_ibge municipio       lat
##               <char>   <char>   <char> <char>      <char>    <char>     <num>
## 1:            ITAPOÃ 70610200 71591500     DF      530010  Brasília -15.74519
## 2:     Itapoã Parque 71592070 71592081     DF      530010  Brasília -15.82213
## 3: CIDADE ESTRUTURAL 70297400 71256260     DF      530010  Brasília -15.77612
##          lon tipo_resultado  precisao              endereco_encontrado
##        <num>         <char>    <char>                           <char>
## 1: -47.76997           dc01       cep ITAPOA, BRASILIA - DF, 71591-500
## 2: -47.96991           dm01 municipio                    BRASILIA - DF
## 3: -48.00005           dc02       cep         BRASILIA - DF, 71256-260
##    contagem_cnefe
##             <int>
## 1:              6
## 2:        1307904
## 3:              1
library(leaflet)

leaflet(dados_com_latlon2) %>%
  addTiles() %>%
  addMarkers(~lon, ~lat, popup = ~nome_cras, label = ~nome_cras, labelOptions = labelOptions(noHide = TRUE))

Análise

CRAS Itapoã: Foi possível a correta localização do CRAS com o segundo endereço da análise.
CRAS Itapoã Parque: O geocodebr aparentemente não usou o cep para geolocalizar o que não permitiu o correto posicionamento do CRAS. Mesmo com a mudança de endereço.
CRAS Estrutural: Foi possível a correta localização do CRAS com o segundo endereço da análise.