edited figure script
This commit is contained in:
parent
9cf982c483
commit
529d3ae923
@ -20,21 +20,21 @@ margin <- 0
|
|||||||
# plot map
|
# plot map
|
||||||
plot_map <- function () {
|
plot_map <- function () {
|
||||||
plot(sf::st_geometry(extent_poly),
|
plot(sf::st_geometry(extent_poly),
|
||||||
col = colors$darkblue,
|
col = colors$darkblue,
|
||||||
border = "black")
|
border = "black")
|
||||||
plot(sf::st_geometry(data$NHDWaterbody),
|
plot(sf::st_geometry(data$NHDWaterbody),
|
||||||
col = colors$lightblue,
|
col = colors$lightblue,
|
||||||
border = NA,
|
border = NA,
|
||||||
add = TRUE)
|
add = TRUE)
|
||||||
plot(sf::st_geometry(data$NHDArea),
|
plot(sf::st_geometry(data$NHDArea),
|
||||||
col = colors$lightblue,
|
col = colors$lightblue,
|
||||||
border = NA,
|
border = NA,
|
||||||
add = TRUE)
|
add = TRUE)
|
||||||
plot(sf::st_geometry(data$NHDFlowline),
|
plot(sf::st_geometry(data$NHDFlowline),
|
||||||
col = colors$lightblue,
|
col = colors$lightblue,
|
||||||
lwd = data$NHDFlowline$TotDASqKM^0.3204*0.0446,
|
lwd = data$NHDFlowline$TotDASqKM^0.3204*0.0446,
|
||||||
border = NA,
|
border = NA,
|
||||||
add = TRUE)
|
add = TRUE)
|
||||||
}
|
}
|
||||||
|
|
||||||
# save figure
|
# save figure
|
||||||
@ -50,10 +50,10 @@ plot_map()
|
|||||||
dev.off()
|
dev.off()
|
||||||
|
|
||||||
png(filename = paste0(figure_dir, "/map.png"),
|
png(filename = paste0(figure_dir, "/map.png"),
|
||||||
width = width,
|
width = width,
|
||||||
height = height,
|
height = height,
|
||||||
units = units,
|
units = units,
|
||||||
res = res)
|
res = res)
|
||||||
par(mai=c(margin, margin, margin, margin))
|
par(mai=c(margin, margin, margin, margin))
|
||||||
par(mar=c(1,1,1,1))
|
par(mar=c(1,1,1,1))
|
||||||
plot_map()
|
plot_map()
|
||||||
|
Loading…
x
Reference in New Issue
Block a user