Migration MD

load the libraries and data

library(tidyverse)
library(highcharter)
setwd("C:/Users/rsaidi/Dropbox/Rachel/MontColl/Datasets/migration")
md <- read_csv("maryland_long.csv")

Filter for to 15 highest migration states 2013

top15_13 <- md |>
  filter(year == 2013)|>
  arrange(desc(migration_amnt))|>
  head(15) |>
  pull(Destination)
top15_13

 [1] "Virginia"             "District of Columbia" "New York"            
 [4] "Pennsylvania"         "New Jersey"           "North Carolina"      
 [7] "California"           "Florida"              "Georgia"             
[10] "Texas"                "West Virginia"        "Delaware"            
[13] "Illinois"             "Ohio"                 "Massachusetts"       

Filter for to 15 highest migration states 2019

top15_19 <- md |>
  filter(year == 2019)|>
  arrange(desc(migration_amnt))|>
  head(15) |>
  pull(Destination)
top15_19

 [1] "Virginia"             "District of Columbia" "Pennsylvania"        
 [4] "California"           "New Jersey"           "Florida"             
 [7] "New York"             "North Carolina"       "Delaware"            
[10] "Texas"                "West Virginia"        "Georgia"             
[13] "Ohio"                 "Massachusetts"        "Colorado"            

Filter for to 15 highest migration states 2023

top15_23 <- md |>
  filter(year == 2023)|>
  arrange(desc(migration_amnt))|>
  head(15) |>
  pull(Destination)
top15_23

 [1] "Virginia"             "District of Columbia" "Pennsylvania"        
 [4] "New York"             "California"           "Florida"             
 [7] "New Jersey"           "North Carolina"       "Texas"               
[10] "Delaware"             "Ohio"                 "Massachusetts"       
[13] "Georgia"              "West Virginia"        "South Carolina"      

df <- tibble(top15_13, top15_19, top15_23)
df

# A tibble: 15 × 3
   top15_13             top15_19             top15_23            
   <chr>                <chr>                <chr>               
 1 Virginia             Virginia             Virginia            
 2 District of Columbia District of Columbia District of Columbia
 3 New York             Pennsylvania         Pennsylvania        
 4 Pennsylvania         California           New York            
 5 New Jersey           New Jersey           California          
 6 North Carolina       Florida              Florida             
 7 California           New York             New Jersey          
 8 Florida              North Carolina       North Carolina      
 9 Georgia              Delaware             Texas               
10 Texas                Texas                Delaware            
11 West Virginia        West Virginia        Ohio                
12 Delaware             Georgia              Massachusetts       
13 Illinois             Ohio                 Georgia             
14 Ohio                 Massachusetts        West Virginia       
15 Massachusetts        Colorado             South Carolina      

filter for top states and plot change over time

top_dest <- md |>
  filter(Destination %in% c("Virginia", "District of Columbia", "New York", "Pennsylvania", "New Jersey", "California", "North Carolina", "Florida", "Georgia", "Texas", "West Virginia", "Delaware", "Ohio", "Massachusettes"))

highchart() |>
  hc_add_series(data = top_dest,
                type = "line",
                hcaes(x=year, 
                      y = migration_amnt,
                      group = Destination))

library(ggalluvial)