Merge pull request #1 from hansthompson/master

Moved Alaska to be North of Hawaii

R/statebins.R

@@ -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)
 
-}
+}