diff --git a/03_make_figures.R b/03_make_figures.R index a3e18d8..0c6cc64 100644 --- a/03_make_figures.R +++ b/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, diff --git a/extent.csv b/extent.csv index f693b3c..a630d20 100644 --- a/extent.csv +++ b/extent.csv @@ -1,3 +1,3 @@ latitude,longitude -47.33402,-93.10419 -42.43754,-86.832 +47.73208,-93.55154 +41.49273,-86.64896