Flows to Hidalgo County
tidycensus package is really neat. There is an example in the vignettes that tracks flows of people by county that I wanted to recreate for Hidalgo County Texas. The key information on how to do it is in the vignette on other datasets.
library(tidycensus) library(tidyverse) library(tigris) options(tigris_use_cache = TRUE) hidalgo_flows <- get_flows( geography = "county", state = "TX", county = "Hidalgo", year = 2018, geometry = TRUE )
First, to grab the flows of people.
top_move_in <- hidalgo_flows %>% filter(!is.na(GEOID2), variable == "MOVEDIN") %>% slice_max(n = 25, order_by = estimate) %>% mutate( width = log(estimate), tooltip = paste0( scales::comma(estimate * 5, 1), " people moved from ", FULL2_NAME, " to ", FULL1_NAME, " between 2014 and 2018" ) )
library(htmlwidgets) # md <- top_move_in %>% mapdeck(pitch = 45) %>% add_arc( origin = "centroid1", destination = "centroid2", stroke_width = "width", auto_highlight = TRUE, highlight_colour = "#8c43facc", tooltip = "tooltip" )
## Registered S3 method overwritten by 'jsonify': ## method from ## print.json jsonlite