|
|
|
|
state_coords <- structure(list(abbrev = c("AL", "AK", "AZ", "AR", "CA", "CO",
|
|
|
|
|
"CT", "DC", "DE", "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", "VI"),
|
|
|
|
|
state = c("Alabama", "Alaska", "Arizona", "Arkansas",
|
|
|
|
|
"California", "Colorado", "Connecticut", "District of Columbia",
|
|
|
|
|
"Delaware", "Florida", "Georgia", "Hawaii", "Idaho", "Illinois",
|
|
|
|
|
"Indiana", "Iowa", "Kansas", "Kentucky", "Louisiana", "Maine",
|
|
|
|
|
"Maryland", "Massachusetts", "Michigan", "Minnesota", "Mississippi",
|
|
|
|
|
"Missouri", "Montana", "Nebraska", "Nevada", "New Hampshire",
|
|
|
|
|
"New Jersey", "New Mexico", "New York", "North Carolina", "North Dakota",
|
|
|
|
|
"Ohio", "Oklahoma", "Oregon", "Pennsylvania", "Rhode Island",
|
|
|
|
|
"South Carolina", "South Dakota", "Tennessee", "Texas", "Utah",
|
|
|
|
|
"Vermont", "Virginia", "Washington", "West Virginia", "Wisconsin", "Wyoming",
|
|
|
|
|
"Puerto Rico", "Virgin Islands", "New York City"),
|
|
|
|
|
col = c(8L, 1L, 3L, 6L, 2L, 4L, 11L, 10L, 11L, 10L,
|
|
|
|
|
9L, 1L, 3L, 7L, 7L, 6L, 5L, 7L, 6L, 12L, 10L, 11L, 8L, 6L, 7L,
|
|
|
|
|
6L, 4L, 5L, 3L, 12L, 10L, 4L, 10L, 8L, 5L, 8L, 5L, 2L, 9L, 12L,
|
|
|
|
|
9L, 5L, 7L, 5L, 3L, 11L, 9L, 2L, 8L, 7L, 4L, 12L, 12L, 12),
|
|
|
|
|
row = c(7L, 7L,
|
|
|
|
|
6L, 6L, 5L, 5L, 4L, 6L, 5L, 8L, 7L, 8L, 3L, 3L, 4L, 4L, 6L, 5L,
|
|
|
|
|
7L, 1L, 5L, 3L, 3L, 3L, 7L, 5L, 3L, 5L, 4L, 2L, 4L, 6L, 3L, 6L,
|
|
|
|
|
3L, 4L, 7L, 4L, 4L, 4L, 6L, 4L, 6L, 8L, 5L, 2L, 5L, 3L, 5L, 2L, 4L,
|
|
|
|
|
8L, 7L, 3L)),
|
|
|
|
|
.Names = c("abbrev", "state", "col", "row"),
|
|
|
|
|
class = "data.frame", row.names = c(NA, -54L))
|
|
|
|
|
|
|
|
|
|
state_coords <- state_coords[order(state_coords$state),]
|
