change font sizes

Author: icrichmond

graphics/studymapcolour.jpg

@@ -50,3 +50,4 @@ NAT-7,"45.39146021,",-76.071336,na,7999,2.142,0.005
 NAT-8,"45.046375,",-75.858456,na,1383,1.001,0.008
 NAT-9,"45.38772056,",-76.07981221,na,1586,2.081,0.0003
 NAT-10,"45.38854686,",-76.08141043,na,9379,2.081,0.0003
+NAT-11,45.388351,-76.070518,na,3641,na,na

input/pond_descriptive.csv

@@ -30,8 +30,9 @@ sscol <- ggplot() +
         panel.border = element_rect(size = 1, fill = NA),
         panel.background = element_rect(fill = NA),
         panel.grid = element_line(color = '323232', size = 0.2),
-        axis.text = element_text(size = 11, color = 'black'),
+        axis.text = element_text(size = 13, color = 'black'),
         axis.title = element_blank(), 
+        legend.text = element_text(size = 20),
         plot.background = element_rect(fill = NA, colour = NA))
 
 # satellite imagery
@@ -46,7 +47,13 @@ register_google(key = "AIzaSyDlRF5BYeskCH7qWtq13WUV5ifG9Q1kT1c")
 satcol <- qmap(location = "Ottawa, Ontario", zoom = 9, maptype = "satellite", source = "google") +
   geom_point(data = ponds_e, aes(x = lat, y = long, shape = Group), size = 2) + 
   scale_shape_manual(values = c(21, 24)) + 
-  theme(legend.position = 'none')
+  theme(legend.position = 'none',
+        panel.border = element_rect(size = 1, fill = NA),
+        panel.background = element_rect(fill = NA),
+        panel.grid = element_line(color = 'black', size = 0.2),
+        axis.text = element_text(size = 13, color = 'black'),
+        axis.title = element_blank(), 
+        panel.ontop = TRUE)
 
 sscol + satcol + plot_layout(widths = c(2,1))