Concatenate to Congressional District code
to_cd(state, num)A vector of state names, preferably abbreviations. If it is numeric, the function will assume they are FIPS codes and translate them accordingly. If they have full names like "California" instead of "CA", it will translate that too. But you cannot mix different types.
A vector of district codes
library(dplyr)
to_cd(c("AL", "AK"), c("5", "AL"))
#> [1] "AL-05" "AK-01"
to_cd(c(1, 2), c("5", "AL"))
#> [1] "AL-05" "AK-01"
to_cd(c("Alabama", "Alaska"), c("5", "AL"))
#> [1] "AL-05" "AK-01"
transmute(cc18_samp,
inputstate,
cdid115,
cd = to_cd(inputstate, cdid115))
#> Warning: There was 1 warning in `transmute()`.
#> ℹ In argument: `cd = to_cd(inputstate, cdid115)`.
#> Caused by warning:
#> ! Unreplaced values treated as NA as `.x` is not compatible.
#> Please specify replacements exhaustively or supply `.default`.
#> # A tibble: 1,000 × 3
#> inputstate cdid115 cd
#> <dbl+lbl> <chr> <chr>
#> 1 6 [California] 13 CA-13
#> 2 27 [Minnesota] 7 MN-07
#> 3 37 [North Carolina] 2 NC-02
#> 4 26 [Michigan] 2 MI-02
#> 5 51 [Virginia] 7 VA-07
#> 6 36 [New York] 19 NY-19
#> 7 54 [West Virginia] 2 WV-02
#> 8 36 [New York] 15 NY-15
#> 9 48 [Texas] 3 TX-03
#> 10 25 [Massachusetts] 6 MA-06
#> # ℹ 990 more rows