changed extent

added political layer under rivers
changed colors of background

03_make_figures.R

@@ -7,7 +7,8 @@ ifelse(!dir.exists(file.path(getwd(), figure_dir)), dir.create(file.path(getwd()
 
 # set colors
 colors <- list(darkblue = "#062e57",
-               lightblue = "#b1dcf3")
+               lightblue = "#b1dcf3",
+               lightgrey = "#6D6D6D")
 
 # set dimensions of figures
 width <- 8.5
@@ -20,8 +21,12 @@ margin <- 0
 # plot map
 plot_map <- function () {
   plot(sf::st_geometry(extent_poly), 
-       col = colors$darkblue,
+       col = colors$lightgrey,
        border = "black")
+  plot(political$Wisconsin_State_Boundary_24K.geojson, 
+       col = colors$darkblue,
+       border = NA,
+       add = TRUE)
   plot(sf::st_geometry(data$NHDWaterbody), 
        col = colors$lightblue, 
        border = NA,

extent.csv

@@ -1,3 +1,3 @@
 latitude,longitude
-47.33402,-93.10419
-42.43754,-86.832
+47.73208,-93.55154
+41.49273,-86.64896