data-raw/generate_all_state_fips.R

library(data.table)
library(magrittr)
all_state_fips <- data.table(
    fips = c("00", "01", "02", "04", "05", "06",
             "08", "09", "10", "11", "12", "13", "15", "16", "17", "18", "19",
             "20", "21", "22", "23", "24", "25", "26", "27", "28", "29", "30",
             "31", "32", "33", "34", "35", "36", "37", "38", "39", "40", "41",
             "42", "44", "45", "46", "47", "48", "49", "50", "51", "53", "54",
             "55", "56", "72"),
    abbr = c("US", "AL", "AK", "AZ", "AR", "CA",
             "CO", "CT", "DE", "DC", "FL", "GA", "HI", "ID", "IL", "IN", "IA",
             "KS", "KY", "LA", "ME", "MD", "MA", "MI", "MN", "MS", "MO", "MT",
             "NE", "NV", "NH", "NJ", "NM", "NY", "NC", "ND", "OH", "OK", "OR",
             "PA", "RI", "SC", "SD", "TN", "TX", "UT", "VT", "VA", "WA", "WV",
             "WI", "WY", "PR")
)

all_state_fips[, state :=  fips2names_state(fips, "state")] %>%
    .[abbr == "US", state := "united state"] %>%
    .[abbr == "PR", state := "puerto rico"]

save(all_state_fips, file = "data/all_state_fips.RData")
GL-Li/ggtiger documentation built on Aug. 4, 2020, 6:32 p.m.