Appendix I — Comparative Assessment of QualoCEP and Google Geocoding API Performance

I.1 Overview

This document outlines a workflow to evaluate the geocoding performance of QualoCEP in comparison to the Google Geocoding API. The comparison focuses on latitude and longitude outputs to assess the consistency and reliability of both services, which are integral to the geocoding tasks in this thesis.

To execute this notebook, ensure you have a valid Google Geocoding API key stored in your .Renviron file. For detailed instructions on obtaining and configuring the API key, refer to the tidygeocoder R package documentation.

I.2 Setting the Environment

library(leaflet)
library(targets)
library(tidygeocoder)

source(here::here("R", "get_qualocep_data.R"))

I.3 Importing QualOCep Data

qualocep_data <- get_qualocep_data()

I.4 Random Test 1

I.4.1 QualOCep Data

sample_data <- dplyr::sample_n(qualocep_data, 1)

sample_data |> as.list() |> rutils:::list_as_tibble()

ABCDEFGHIJ0123456789

name <chr>	value <chr>
postal_code	59642000
street_type	Avenida
street_name	Wilson Rosado
street	Avenida Wilson Rosado
complement	NA
place	NA
neighborhood	Itapetinga
municipality_code	2408003
municipality	Mossoró
state_code	24

Next

12

Previous

1-10 of 14 rows

leaflet::leaflet() |>
  leaflet::addTiles() |>
  leaflet::addMarkers(
    lng = sample_data$longitude,
    lat = sample_data$latitude,
    popup = paste0(
      "Latitude: ", sample_data$latitude, "<br>",
      "Longitude: ", sample_data$longitude
    )
  )

+−

Leaflet | © OpenStreetMap, ODbL

I.4.2 Google Geocoding API

google_data <-
  sample_data |>
  dplyr::mutate(
    address = orbis::render_brazil_address(
      street = sample_data$street,
      complement = sample_data$complement,
      neighborhood = sample_data$neighborhood,
      municipality = sample_data$municipality,
      state = sample_data$state,
      postal_code = sample_data$postal_code
    )
  ) |>
  tidygeocoder::geocode(
    address = address,
    method = "google"
  )
#> Passing 1 address to the Google single address geocoder
#> Query completed in: 0.9 seconds

google_data |> as.list() |> rutils:::list_as_tibble()

ABCDEFGHIJ0123456789

name <chr>	value <chr>
postal_code	59642000
street_type	Avenida
street_name	Wilson Rosado
street	Avenida Wilson Rosado
complement	NA
place	NA
neighborhood	Itapetinga
municipality_code	2408003
municipality	Mossoró
state_code	24

Next

12

Previous

1-10 of 17 rows

leaflet::leaflet() |>
  leaflet::addTiles() |>
  leaflet::addMarkers(
    lng = google_data$longitude,
    lat = google_data$latitude,
    popup = paste0(
      "Latitude: ", google_data$latitude, "<br>",
      "Longitude: ", google_data$longitude
    )
  )

+−

Leaflet | © OpenStreetMap, ODbL

I.5 Random Test 2

I.5.1 QualOCep Data

sample_data <- dplyr::sample_n(qualocep_data, 1)

sample_data |> as.list() |> rutils:::list_as_tibble()

ABCDEFGHIJ0123456789

name <chr>	value <chr>
postal_code	74911460
street_type	Avenida
street_name	Otoniel da Cunha
street	Avenida Otoniel da Cunha
complement	NA
place	NA
neighborhood	Vila Brasília
municipality_code	5201405
municipality	Aparecida de Goiânia
state_code	52

Next

12

Previous

1-10 of 14 rows

leaflet::leaflet() |>
  leaflet::addTiles() |>
  leaflet::addMarkers(
    lng = sample_data$longitude,
    lat = sample_data$latitude,
    popup = paste0(
      "Latitude: ", sample_data$latitude, "<br>",
      "Longitude: ", sample_data$longitude
    )
  )

+−

Leaflet | © OpenStreetMap, ODbL

I.5.2 Google Geocoding API

google_data <-
  sample_data |>
  dplyr::mutate(
    address = orbis::render_brazil_address(
      street = sample_data$street,
      complement = sample_data$complement,
      neighborhood = sample_data$neighborhood,
      municipality = sample_data$municipality,
      state = sample_data$state,
      postal_code = sample_data$postal_code
    )
  ) |>
  tidygeocoder::geocode(
    address = address,
    method = "google"
  )
#> Passing 1 address to the Google single address geocoder
#> Query completed in: 0.3 seconds

google_data |> as.list() |> rutils:::list_as_tibble()

ABCDEFGHIJ0123456789

name <chr>	value <chr>
postal_code	74911460
street_type	Avenida
street_name	Otoniel da Cunha
street	Avenida Otoniel da Cunha
complement	NA
place	NA
neighborhood	Vila Brasília
municipality_code	5201405
municipality	Aparecida de Goiânia
state_code	52

Next

12

Previous

1-10 of 17 rows

leaflet::leaflet() |>
  leaflet::addTiles() |>
  leaflet::addMarkers(
    lng = google_data$longitude,
    lat = google_data$latitude,
    popup = paste0(
      "Latitude: ", google_data$latitude, "<br>",
      "Longitude: ", google_data$longitude
    )
  )

+−

Leaflet | © OpenStreetMap, ODbL

I.6 Random Test 3

I.6.1 QualOCep Data

sample_data <- dplyr::sample_n(qualocep_data, 1)

sample_data |> as.list() |> rutils:::list_as_tibble()

ABCDEFGHIJ0123456789

name <chr>	value <chr>
postal_code	69550198
street_type	Beco
street_name	do Tirico
street	Beco do Tirico
complement	NA
place	NA
neighborhood	Santo Antônio
municipality_code	1304203
municipality	Tefé
state_code	13

Next

12

Previous

1-10 of 14 rows

leaflet::leaflet() |>
  leaflet::addTiles() |>
  leaflet::addMarkers(
    lng = sample_data$longitude,
    lat = sample_data$latitude,
    popup = paste0(
      "Latitude: ", sample_data$latitude, "<br>",
      "Longitude: ", sample_data$longitude
    )
  )

+−

Leaflet | © OpenStreetMap, ODbL

I.6.2 Google Geocoding API

google_data <-
  sample_data |>
  dplyr::mutate(
    address = orbis::render_brazil_address(
      street = sample_data$street,
      complement = sample_data$complement,
      neighborhood = sample_data$neighborhood,
      municipality = sample_data$municipality,
      state = sample_data$state,
      postal_code = sample_data$postal_code
    )
  ) |>
  tidygeocoder::geocode(
    address = address,
    method = "google"
  )
#> Passing 1 address to the Google single address geocoder
#> Query completed in: 0.2 seconds

google_data |> as.list() |> rutils:::list_as_tibble()

ABCDEFGHIJ0123456789

name <chr>	value <chr>
postal_code	69550198
street_type	Beco
street_name	do Tirico
street	Beco do Tirico
complement	NA
place	NA
neighborhood	Santo Antônio
municipality_code	1304203
municipality	Tefé
state_code	13

Next

12

Previous

1-10 of 17 rows

leaflet::leaflet() |>
  leaflet::addTiles() |>
  leaflet::addMarkers(
    lng = google_data$longitude,
    lat = google_data$latitude,
    popup = paste0(
      "Latitude: ", google_data$latitude, "<br>",
      "Longitude: ", google_data$longitude
    )
  )

+−

Leaflet | © OpenStreetMap, ODbL