Look up state abbreviations by FIPS codes (including District of Columbia and Puerto Rico). Will match the first two digits of the input codes, so should work for 5-digit county codes, or even longer tract and census block FIPS codes.
fips_to_abbr(code)
Vector of FIPS codes to look up; will match the first two digits of the code. Note that these are treated as strings; the number 1 will not match "01".
A vector of state abbreviations.
fips_to_abbr("42000")
#> 42
#> "PA"
fips_to_abbr(c("42", "72", "11"))
#> 42 72 11
#> "PA" "PR" "DC"