Prepare data to fill a map

map_fill_data() prepares data to be used as fill in a map plot.

Usage

map_fill_data(
  data,
  col_fill = NULL,
  col_ref,
  name_col_value = "value",
  name_col_ref = col_ref
)

Arguments

data

A tibble with the data to be used as fill.

col_fill

(optional) A character string with the column name to be used as fill. If NULL, the function will count the number of occurrences of each value in col_ref (default: NULL).

col_ref

A character string with the column name to be used as reference.

name_col_value

(optional) A character string with the name of the column to be used as value (default: "value").

name_col_ref

(optional) A character string with the name of the column to be used as reference (default: col_ref).

Value

A tibble with two columns:

• name_col_ref: with unique values from col_ref.

• name_col_value: with the values from col_fill or the count of occurrences of each value in col_ref (if col_fill is NULL).

See also

Other utility functions: closest_geobr_year(), fix_postal_code(), remove_unique_outliers(), test_geobr_connection(), unique_outliers()

Examples

# Set the Environment -----

library(curl)
library(dplyr)
library(geodata)
#> Loading required package: terra
#> terra 1.8.86
#> 
#> Attaching package: ‘terra’
#> The following objects are masked from ‘package:magrittr’:
#> 
#>     extract, inset
#> The following object is masked from ‘package:knitr’:
#> 
#>     spin
library(ggplot2)
library(terra)
library(tidyterra)
#> 
#> Attaching package: ‘tidyterra’
#> The following object is masked from ‘package:stats’:
#> 
#>     filter

plot_vector_shape <- function(vector) {
  plot <-
    vector |>
    ggplot() +
    geom_spatvector(fill = "white", color = "#3243A6")

  print(plot)
}

plot_vector_data <- function(data, vector) {
  plot <-
    data |>
    ggplot() +
    geom_spatvector(aes(fill = value), color = "white") +
    scale_fill_continuous(
        palette = c("#072359", "#3243A6", "#9483AF"),
        na.value = "white"
    ) +
    labs(fill = NULL)

  print(plot)
}

# Define the Map -----

# \dontrun{
  if (has_internet()) {
    brazil_states_vector <- gadm("BRA", level = 1, path = tempdir())
  }
#> The geodata server is temporary out of service for maintenance. It should be back on 20 December. 
# }

# Visualize the Map -----

# \dontrun{
  if (has_internet()) {
    brazil_states_vector |> plot_vector_shape()
  }

# }

# Define the Data -----

# \dontrun{
  if (has_internet()) {
    data <- tibble(
      state = sample(
        brazil_states_vector$NAME_1, size = 1000, replace = TRUE
      ),
      value = sample(1:1000, size = 1000, replace = TRUE)
    )

    data
  }
#> Error in sample.int(length(x), size, replace, prob): invalid first argument
# }

# Create the Map Fill Data -----

# \dontrun{
  if (has_internet()) {
    data <- data |> map_fill_data(col_fill = "value", col_ref = "state")

    data
  }
#> Error in map_fill_data(data, col_fill = "value", col_ref = "state"): Assertion on 'data' failed: Must be a tibble, not closure.
# }

# Visualize the Map Fill Data -----

# \dontrun{
  if (has_internet()) {
    brazil_states_vector |>
      left_join(data, by = c("NAME_1" = "state")) |>
      plot_vector_data()
  }
#> Error in UseMethod("left_join"): no applicable method for 'left_join' applied to an object of class "NULL"
# }