data-raw/states_labels.R

In UrbanInstitute/uimapr: State and county shapefiles in sf and tibble format

# states labels
# to be called only by generate_sysdata.R for internal package use

states_labels <- readr::read_csv(
"state_name, lat, long, state_abbv
Alabama, 32.7794, -86.8287, AL
Alaska, 27.3, -116.5, AK
Arizona, 34.2744, -111.6602, AZ
Arkansas, 34.8938, -92.4426, AR
California, 37.1841, -119.4696, CA
Colorado, 38.9972, -105.5478, CO
Connecticut, 41, -71.7, CT
Delaware, 39, -73.6, DE
District of Columbia, 39, -78, DC
Florida, 28.6305, -81.6, FL
Georgia, 32.6415, -83.4426, GA
Hawaii, 26, -107, HI
Idaho, 44.3509, -115, ID
Illinois, 40.0417, -89.1965, IL
Indiana, 39.8942, -86.2816, IN
Iowa, 42.0751, -93.4960, IA
Kansas, 38.4937, -98.3804, KS
Kentucky, 37.5347, -85.3021, KY
Louisiana, 31.5, -92.7, LA
Maine, 45.3695, -69.2428, ME
Maryland, 38, -74, MD
Massachusetts, 42.2596, -69, MA
Michigan, 43, -84.5, MI
Minnesota, 46.2807, -94.3053, MN
Mississippi, 32.7364, -89.6678, MS
Missouri, 38.3566, -92.4580, MO
Montana, 47.0527, -109.6333, MT
Nebraska, 41.5378, -99.7951, NE
Nevada, 39.3289, -116.6312, NV
New Hampshire, 45.8, -71.7, NH
New Jersey, 40.1907, -73, NJ
New Mexico, 34.4071, -106.1126, NM
New York, 42.9538, -75, NY
North Carolina, 35.5557, -79.3877, NC
North Dakota, 47.4501, -100.4659, ND
Ohio, 40.2862, -82.7937, OH
Oklahoma, 35.5889, -97.4943, OK
Oregon, 43.9336, -120.5583, OR
Pennsylvania, 40.8781, -77.7996, PA
Rhode Island, 41, -69.6, RI
South Carolina, 33.9169, -80.8964, SC
South Dakota, 44.4443, -100.2263, SD
Tennessee, 35.8580, -86.3505, TN
Texas, 31.4757, -99.3312, TX
Utah, 39.3055, -111.6703, UT
Vermont, 45.5, -74, VT
Virginia, 37.6, -78.3, VA
Washington, 47.3826, -120, WA
West Virginia, 38.6409, -80.6227, WV
Wisconsin, 44.6243, -89.9941, WI
Wyoming, 42.9957, -107.5512, WY")

# create identical SF version
states_labels_sf <- states_labels %>%
  # convert to SF
  sf::st_as_sf(coords = c("long", "lat")) %>%
  # set CRS
  sf::st_set_crs(4326) %>%
  # transform CRS
  sf::st_transform(crs = 2163) %>%
  # add FIPS codes
  left_join(get_state_fips(), by = c("state_name", "state_abbv"))