## code to prepare `north_america` dataset goes here
library(tidyverse)
library(broom)
# Get the map data for canada
canada <- rnaturalearth::ne_states(country = "canada") %>%
tidy(x = ., region = "name_en") %>%
mutate(group = as.numeric(as.factor(group))) %>%
mutate(area = "canada")
# Download map data for US by county
usa_county <- map_data(map = "county")
# Download state data
usa_state <- map_data(map = "state")
# Adjust the groups in the states
usa_state <- usa_state %>%
mutate(group = group + max(canada$group),
area = "usa_state")
# Adjust the groups in the counties
usa_county <- usa_county %>%
mutate(group = group + max(usa_state$group),
area = "usa_county")
# Tidy and combine
north_america_mapdata <- bind_rows(usa_state, usa_county, canada)
usethis::use_data(north_america_mapdata, overwrite = TRUE)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.