Exemplo de mapa utilizando as bibliotecas ggplot2 e geobr

mapa_exemplo.R

# Pacotes
library(tidyverse)
# remotes::install_github("ipeaGIT/geobr", subdir = "r-package")
library(geobr)

# Dados
df_simu_curso_orig <- read.csv('https://drive.google.com/uc?export=download&id=17ZmUSdC0G4S1OUBpqUzllXqPlOLP1pVD')

# Mapa
uf_mapa <- read_municipality()

res <- df_simu_curso_orig %>% 
  filter(uf == "RJ", ano == 2015) %>%
  mutate(taxa = total_mortes/população*100000) %>%
  select(cod_ibge, taxa) %>%
  na.omit()

res2 <- inner_join(res, uf_mapa, by = c("cod_ibge" = "code_muni"))

ggplot(data = res2) +
  geom_sf(aes(geometry = geom, fill = taxa)) +
  scale_fill_distiller(palette = "Reds", direction = 1, name="Taxa") +
  theme_minimal()