move legend position in meteowqraw figs, fixes #15

tbep-tech · May 9, 2024 · fa15aea · fa15aea
1 parent 16ea688
commit fa15aea
Show file tree

Hide file tree

Showing 5 changed files with 2 additions and 2 deletions.
diff --git a/R/figs.R b/R/figs.R
@@ -484,7 +484,7 @@ p6 <- ggplot(toplo6, aes(x = yr, y = avev, group = loc, color = loc)) +
     shape = NULL
   )
 
-p <- p1 + p2 + p4 + (p5 + p6 + plot_layout(ncol = 1, guides = 'collect')) + plot_layout(ncol = 1, heights = c(1, 1, 1, 2.75)) & theme(legend.position = 'top')
+p <- p1 + p2 + p4 + (p5 + p6 + plot_layout(ncol = 1, guides = 'collect')) + plot_layout(ncol = 1, heights = c(1, 1, 1, 2.75)) & theme(legend.position = 'bottom')
 
 png(here('figs/meteowqraw.png'), height = 7.5, width = 7, family = 'serif', units = 'in', res = 500)
 print(p)
@@ -677,7 +677,7 @@ p6 <- ggplot(toplo6, aes(x = yr, y = avev, group = loc, color = loc)) +
     shape = NULL
   )
 
-p <- p1 + p2 + p4 + (p5 + p6 + plot_layout(ncol = 1, guides = 'collect')) + plot_layout(ncol = 1, heights = c(1, 1, 1, 2.75)) & theme(legend.position = 'top')
+p <- p1 + p2 + p4 + (p5 + p6 + plot_layout(ncol = 1, guides = 'collect')) + plot_layout(ncol = 1, heights = c(1, 1, 1, 2.75)) & theme(legend.position = 'bottom')
 
 png(here('figs/suppmeteowqraw.png'), height = 6.5, width = 7, family = 'serif', units = 'in', res = 500)
 print(p)

diff --git a/figs/meteowqraw.png b/figs/meteowqraw.png
diff --git a/figs/suppmeteowqraw.png b/figs/suppmeteowqraw.png
diff --git a/manu-draft.docx b/manu-draft.docx
diff --git a/supplement.docx b/supplement.docx