Создать детализированную карту с листовкой

Question

Моя цель - создать интерактивную карту с листовкой, в которой будут отображаться состояния США 'population.Затем, когда пользователь нажмет на состояние, карта развернется до округов этого состояния, отображая population каждого округа.Вот пример .В наборе данных округов есть данные о штатах и ​​округах, которые можно использовать для создания такой карты.Я предполагаю, что на государственном уровне население сначала должно быть обобщено государством.Но я не знаю, возможно ли это углубление.Ваш отзыв более чем ценный.

library(tidyverse)
library(sf)
library(leaflet)
library(noncensus)
library(tigris)
options(tigris_use_cache = TRUE)
data(counties)

counties <- counties %>%
  mutate(GEOID = paste0(state_fips, county_fips))

counties_sf <- tigris::counties() %>% 
  as("sf") %>% 
  left_join(counties, by = "GEOID")
pal <- colorQuantile("YlOrRd", domain = counties_sf$population)

m <- leaflet(counties_sf) %>%
  setView(-96, 37.8, 4) %>%
  addTiles()

m <- m %>% addPolygons(
  fillColor = ~pal(population),
  weight = 2,
  opacity = 1,
  color = "white",
  dashArray = "3",
  fillOpacity = 0.7)
m