diff --git a/03_make_figures.R b/03_make_figures.R
index dac4859..a3e18d8 100644
--- a/03_make_figures.R
+++ b/03_make_figures.R
@@ -7,7 +7,7 @@ ifelse(!dir.exists(file.path(getwd(), figure_dir)), dir.create(file.path(getwd()
 
 # set colors
 colors <- list(darkblue = "#062e57",
-     lightblue = "#b1dcf3")
+               lightblue = "#b1dcf3")
 
 # set dimensions of figures
 width <- 8.5
@@ -19,41 +19,41 @@ margin <- 0
 
 # plot map
 plot_map <- function () {
-plot(sf::st_geometry(extent_poly), 
-col = colors$darkblue,
-border = "black")
-plot(sf::st_geometry(data$NHDWaterbody), 
-col = colors$lightblue, 
-border = NA,
-add = TRUE)
-plot(sf::st_geometry(data$NHDArea), 
-col = colors$lightblue, 
-border = NA,
-add = TRUE)
-plot(sf::st_geometry(data$NHDFlowline), 
-col = colors$lightblue,
-lwd = data$NHDFlowline$TotDASqKM^0.3204*0.0446,
-border = NA,
-add = TRUE)
+  plot(sf::st_geometry(extent_poly), 
+       col = colors$darkblue,
+       border = "black")
+  plot(sf::st_geometry(data$NHDWaterbody), 
+       col = colors$lightblue, 
+       border = NA,
+       add = TRUE)
+  plot(sf::st_geometry(data$NHDArea), 
+       col = colors$lightblue, 
+       border = NA,
+       add = TRUE)
+  plot(sf::st_geometry(data$NHDFlowline), 
+       col = colors$lightblue,
+       lwd = data$NHDFlowline$TotDASqKM^0.3204*0.0446,
+       border = NA,
+       add = TRUE)
 }
 
 # save figure
 tiff(filename = paste0(figure_dir,"/map.tiff"),
- width = width,
- height = height,
- units = units,
- res = res,
- compression = "lzw")
+     width = width,
+     height = height,
+     units = units,
+     res = res,
+     compression = "lzw")
 par(mai=c(margin, margin, margin, margin))
 par(mar=c(1,1,1,1))
 plot_map()
 dev.off()
 
 png(filename = paste0(figure_dir, "/map.png"),
-width = width,
-height = height,
-units = units,
-res = res)
+    width = width,
+    height = height,
+    units = units,
+    res = res)
 par(mai=c(margin, margin, margin, margin))
 par(mar=c(1,1,1,1))
 plot_map()