fips_abb_name_table <- tibble::tribble(
~abb, ~fips, ~name,
"us", "00", "UnitedStates",
"ak", "02", "Alaska",
"al", "01", "Alabama",
"ar", "05", "Arkansas",
"az", "04", "Arizona",
"ca", "06", "California",
"co", "08", "Colorado",
"ct", "09", "Connecticut",
"dc", "11", "DistrictofColumbia",
"de", "10", "Delaware",
"fl", "12", "Florida",
"ga", "13", "Georgia",
"hi", "15", "Hawaii",
"ia", "19", "Iowa",
"id", "16", "Idaho",
"il", "17", "Illinois",
"in", "18", "Indiana",
"ks", "20", "Kansas",
"ky", "21", "Kentucky",
"la", "22", "Louisiana",
"ma", "25", "Massachusetts",
"md", "24", "Maryland",
"me", "23", "Maine",
"mi", "26", "Michigan",
"mn", "27", "Minnesota",
"mo", "29", "Missouri",
"ms", "28", "Mississippi",
"mt", "30", "Montana",
"nc", "37", "NorthCarolina",
"nd", "38", "NorthDakota",
"ne", "31", "Nebraska",
"nh", "33", "NewHampshire",
"nj", "34", "NewJersey",
"nm", "35", "NewMexico",
"nv", "32", "Nevada",
"ny", "36", "NewYork",
"oh", "39", "Ohio",
"ok", "40", "Oklahoma",
"or", "41", "Oregon",
"pa", "42", "Pennsylvania",
"pr", "72", "PuertoRico",
"ri", "44", "RhodeIsland",
"sc", "45", "SouthCarolina",
"sd", "46", "SouthDakota",
"tn", "47", "Tennessee",
"tx", "48", "Texas",
"ut", "49", "Utah",
"va", "51", "Virginia",
"vt", "50", "Vermont",
"wa", "53", "Washington",
"wi", "55", "Wisconsin",
"wv", "54", "WestVirginia",
"wy", "56", "Wyoming"
)
devtools::use_data(fips_abb_name_table, overwrite = TRUE)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.