added jpeg export
commented out tiff and jpeg changed dimensions to 8X10
This commit is contained in:
parent
214ff525cd
commit
17205a5c19
@ -11,8 +11,8 @@ colors <- list(darkblue = "#062e57",
|
||||
lightgrey = "#6D6D6D")
|
||||
|
||||
# set dimensions of figures
|
||||
width <- 8.5
|
||||
height <- 11
|
||||
width <- 8
|
||||
height <- 10
|
||||
units <- "in"
|
||||
res <- 600
|
||||
margin <- 0
|
||||
@ -20,22 +20,22 @@ margin <- 0
|
||||
|
||||
# plot map
|
||||
plot_map <- function () {
|
||||
plot(sf::st_geometry(extent_poly),
|
||||
plot(sf::st_geometry(extent_poly),
|
||||
col = colors$lightgrey,
|
||||
border = "black")
|
||||
plot(political$Wisconsin_State_Boundary_24K.geojson,
|
||||
plot(political$Wisconsin_State_Boundary_24K.geojson,
|
||||
col = colors$darkblue,
|
||||
border = NA,
|
||||
add = TRUE)
|
||||
plot(sf::st_geometry(data$NHDWaterbody),
|
||||
plot(sf::st_geometry(data$NHDWaterbody),
|
||||
col = colors$lightblue,
|
||||
border = NA,
|
||||
add = TRUE)
|
||||
plot(sf::st_geometry(data$NHDArea),
|
||||
plot(sf::st_geometry(data$NHDArea),
|
||||
col = colors$lightblue,
|
||||
border = NA,
|
||||
add = TRUE)
|
||||
plot(sf::st_geometry(data$NHDFlowline),
|
||||
plot(sf::st_geometry(data$NHDFlowline),
|
||||
col = colors$lightblue,
|
||||
lwd = data$NHDFlowline$TotDASqKM^0.3204*0.0446,
|
||||
border = NA,
|
||||
@ -43,16 +43,27 @@ plot_map <- function () {
|
||||
}
|
||||
|
||||
# save figure
|
||||
tiff(filename = paste0(figure_dir,"/map.tiff"),
|
||||
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()
|
||||
# tiff(filename = paste0(figure_dir,"/map.tiff"),
|
||||
# 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()
|
||||
#
|
||||
# jpeg(filename = paste0(figure_dir,"/map.jpg"),
|
||||
# width = width,
|
||||
# height = height,
|
||||
# units = units,
|
||||
# res = res,
|
||||
# quality = 93)
|
||||
# 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,
|
||||
|
Loading…
x
Reference in New Issue
Block a user