added jpeg export

commented out tiff and jpeg
changed dimensions to 8X10
This commit is contained in:
Ben Varick 2023-10-18 11:31:09 -05:00
parent 214ff525cd
commit 17205a5c19

View File

@ -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
@ -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,