comparing purrr to furrr

furrr_maps.R

if(!require(pacman)) install.packages('pacman')
pacman::p_load(tigris, tidycensus, furrr, doFuture, purrr, tictoc, ggplot2)

options(tigris_use_cache = FALSE) # make things equal between runs

state_names <- c(state.name, "District of Columbia")
names(state_names) <- state_names

# purrr: 
tictoc::tic()
age_maps <- map(state_names, ~{
  
  age_data <- get_acs(
    geography = "tract",
    variables = "B01002_001",
    state = .x,
    geometry = TRUE
  )
  
  ggplot(age_data, aes(fill = estimate)) + 
    geom_sf(color = NA) + 
    theme_void() + 
    scale_fill_viridis_c(option = "magma") + 
    labs(title = .x,
      subtitle = "Median age, 2017-2021 ACS",
      fill = "Estimate")
})
tictoc::toc()



tictoc::tic()
# instantiate parallel workers 
registerDoFuture()
plan(multisession, workers = min(4, availableCores())) # varies by machine

age_maps <- future_map(state_names, ~{
  
  age_data <- get_acs(
    geography = "tract",
    variables = "B01002_001",
    state = .x,
    geometry = TRUE
  )
  
  ggplot(age_data, aes(fill = estimate)) + 
    geom_sf(color = NA) + 
    theme_void() + 
    scale_fill_viridis_c(option = "magma") + 
    labs(title = .x,
      subtitle = "Median age, 2017-2021 ACS",
      fill = "Estimate")
})
tictoc::toc()