ben/pretty_rivers
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

edited figure script

Browse Source
This commit is contained in:
Ben Varick 2023-10-16 16:54:10 -05:00
parent 529d3ae923
commit 4b33f2d71a
1 changed files with 26 additions and 26 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

40
03_make_figures.R
View File

@ -19,22 +19,22 @@ 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
@ -50,10 +50,10 @@ 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()