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

made it easier to save in multiple formats

Browse Source
This commit is contained in:
Ben Varick 2023-10-16 14:17:18 -05:00
parent 82fc901902
commit f6f22d5d97
1 changed files with 34 additions and 33 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

67
03_make_figures.R
View File

@ -9,6 +9,37 @@ ifelse(!dir.exists(file.path(getwd(), figure_dir)), dir.create(file.path(getwd()
colors <- list(darkblue = "#062e57",
lightblue = "#b1dcf3")
# plot map
plot_map <- function () {
plot(sf::st_geometry(extent_poly),
col = colors$darkblue,
extent = extent_bbox,
xlim = c(extent$longitude_min, extent$longitude_max),
ylim = c(extent$latitude_min, extent$latitude_max),
border = "black")
plot(sf::st_geometry(data$NHDWaterbody),
col = colors$lightblue,
border = NA,
extent = extent_bbox,
xlim = c(extent$longitude_min, extent$longitude_max),
ylim = c(extent$latitude_min, extent$latitude_max),
add = TRUE)
plot(sf::st_geometry(data$NHDArea),
col = colors$lightblue,
border = NA,
extent = extent_bbox,
xlim = c(extent$longitude_min, extent$longitude_max),
ylim = c(extent$latitude_min, extent$latitude_max),
add = TRUE)
plot(sf::st_geometry(data$NHDFlowline),
col = colors$lightblue,
lwd = data$NHDFlowline$TotDASqKM^0.3204*0.0446,
border = NA,
extent = extent_bbox,
xlim = c(extent$longitude_min, extent$longitude_max),
ylim = c(extent$latitude_min, extent$latitude_max),
add = TRUE)
}
# save figure
tiff(filename = paste0(figure_dir,"/map.tiff"),
@ -17,43 +48,13 @@ tiff(filename = paste0(figure_dir,"/map.tiff"),
units = "in",
res = 600,
compression = "lzw")
plot_map()
dev.off()
png(filename = paste0(figure_dir, "/map.png"),
width = 11,
height = 17,
units = "in",
res = 600)
# plot map
plot(sf::st_geometry(extent_poly),
col = colors$darkblue,
extent = extent_bbox,
xlim = c(extent$longitude_min, extent$longitude_max),
ylim = c(extent$latitude_min, extent$latitude_max),
border = "black")
plot(sf::st_geometry(data$NHDWaterbody),
col = colors$lightblue,
border = NA,
extent = extent_bbox,
xlim = c(extent$longitude_min, extent$longitude_max),
ylim = c(extent$latitude_min, extent$latitude_max),
add = TRUE)
plot(sf::st_geometry(data$NHDArea),
col = colors$lightblue,
border = NA,
extent = extent_bbox,
xlim = c(extent$longitude_min, extent$longitude_max),
ylim = c(extent$latitude_min, extent$latitude_max),
add = TRUE)
plot(sf::st_geometry(data$NHDFlowline),
col = colors$lightblue,
lwd = data$NHDFlowline$TotDASqKM^0.3204*0.0446,
border = NA,
extent = extent_bbox,
xlim = c(extent$longitude_min, extent$longitude_max),
ylim = c(extent$latitude_min, extent$latitude_max),
add = TRUE)
# finish saving figure
dev.off()
plot_map()
dev.off()