Obtenção das coordenadas geográficas da sede das capitais do Brasil via `{geobr}`

get-capitais-br-coords.R

## -*- mode: ess-r; coding: utf-8-*-
## scratch-mode: ess-r-mode
## created-at:   20230329-111607

### Obtenção das coordenadas geográficas da sede das capitais do Brasil via `{geobr}`

if (!require("tidyverse")) install.packages("tidyverse")
if (!require("sf")) install.packages("sf")
if (!require("geobr")) install.packages("geobr")

options(
  tibble.print_min = 30,
  tibble.print_max = 30
)

capitais_uf <-
  tibble::tribble(
    ~codigo_ibge,         ~capital,           ~uf,
    2800308L    ,        "Aracaju",          "SE",
    3106200L    , "Belo Horizonte",          "MG",
    1501402L    ,          "Belém",          "PA",
    1400100L    ,      "Boa Vista",          "RR",
    5300108L    ,       "Brasília",          "DF",
    5002704L    ,   "Campo Grande",          "MS",
    5103403L    ,         "Cuiabá",          "MT",
    4106902L    ,       "Curitiba",          "PR",
    4205407L    ,  "Florianópolis",          "SC",
    2304400L    ,      "Fortaleza",          "CE",
    5208707L    ,        "Goiânia",          "GO",
    2507507L    ,    "João Pessoa",          "PB",
    1600303L    ,         "Macapá",          "AP",
    2704302L    ,         "Maceió",          "AL",
    1302603L    ,         "Manaus",          "AM",
    2408102L    ,          "Natal",          "RN",
    1721000L    ,         "Palmas",          "TO",
    4314902L    ,   "Porto Alegre",          "RS",
    1100205L    ,    "Porto Velho",          "RO",
    2611606L    ,         "Recife",          "PE",
    1200401L    ,     "Rio Branco",          "AC",
    3304557L    , "Rio De Janeiro",          "RJ",
    2927408L    ,       "Salvador",          "BA",
    2111300L    ,       "São Luís",          "MA",
    3550308L    ,      "São Paulo",          "SP",
    2211001L    ,       "Teresina",          "PI",
    3205309L    ,        "Vitória",          "ES"
  )

sedes_capitais_sf <-
  geobr::read_municipal_seat(year = 2010) %>%
  dplyr::filter(code_muni %in% capitais_uf$codigo_ibge)

sedes_capitais_df <-
  sedes_capitais_sf %>%
  dplyr::mutate(
    longitude = sf::st_coordinates(.)[, "X"],
    latitude = sf::st_coordinates(.)[, "Y"],
    .before = geom
  ) %>%
  sf::st_drop_geometry() %>%
  dplyr::arrange(name_muni) %>%
  dplyr::as_tibble()

sedes_capitais_sf %>%
  sf::st_write("./sedes-capitais-geom.geojson")

sedes_capitais_df %>%
  readr::write_csv("./sedes-capitais-coords.csv")

sedes-capitais-coords.csv

sedes-capitais-geom.geojson