|
|
@ -13,11 +13,11 @@ state_coords <- structure(list(abbrev = c("AL", "AK", "AZ", "AR", "CA", "CO", |
|
|
|
"Ohio", "Oklahoma", "Oregon", "Pennsylvania", "Rhode Island", |
|
|
|
"South Carolina", "South Dakota", "Tennessee", "Texas", "Utah", |
|
|
|
"Vermont", "Virginia", "Washington", "West Virginia", "Wisconsin", "Wyoming"), |
|
|
|
col = c(8L, 2L, 3L, 6L, 2L, 4L, 11L, 10L, 11L, 10L, |
|
|
|
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), |
|
|
|
row = c(7L, 8L, |
|
|
|
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)), |
|
|
@ -230,4 +230,4 @@ statebins_continuous <- function(state_data, state_col="state", value_col="value |
|
|
|
|
|
|
|
return(gg) |
|
|
|
|
|
|
|
} |
|
|
|
} |
|
|
|