revert certifications in cum plot, not a bad idea but ugly, find anot…

…her way
rubenpp7 · Mar 8, 2021 · c7faef7 · c7faef7
1 parent 819a34c
commit c7faef7
Showing 1 changed file with 8 additions and 8 deletions.
diff --git a/R/cum_dives.R b/R/cum_dives.R
@@ -23,7 +23,7 @@ cum_dives <- function(path = getwd()){
   if(dir.exists(paste0(path, "/divewatchr_data"))){
 
     load('divewatchr_data/scuba_map.RData')
-    load('divewatchr_data/scuba_cert.RData')
+  # load('divewatchr_data/scuba_cert.RData')
   }
 
   # } else {
@@ -54,7 +54,7 @@ ggplot(scuba_map_cum,
   # Format dates in axis labels and date ticks
   scale_x_date(breaks=date_breaks("12 months"), 
                labels=date_format("%Y")) +
-  theme(axis.text.x = element_text(angle = 45, hjust = 1)) +
+  theme(axis.text.x = element_text(angle = 45, hjust = 1)) #+
 
 
   # geom_vline(xintercept = as.Date(c("2011-10-23", "2012-06-17", "2014-08-27", "2016-07-15")),
@@ -64,12 +64,12 @@ ggplot(scuba_map_cum,
   #            alpha = 0.6) +
 
  # geom_label_repel(data = scuba_cert, aes(x = as.Date(certificationDate), y = nrow(scuba_map)/5, label = certificationName)) +
-  geom_jitter(data = scuba_cert, aes(x = as.Date(certificationDate), 
-                                         y = -nrow(scuba_map)/(nrow(scuba_map)/10), 
-                                         color = certificationName),
-             alpha = 0.35, size = 6) + 
-
-  guides(color=guide_legend(title="Certification Name"))
+  # geom_jitter(data = scuba_cert, aes(x = as.Date(certificationDate), 
+  #                                        y = -nrow(scuba_map)/(nrow(scuba_map)/10), 
+  #                                        color = certificationName),
+  #            alpha = 0.35, size = 6) + 
+  # 
+  # guides(color=guide_legend(title="Certification Name"))
 
 }