diff --git a/R/cum_dives.R b/R/cum_dives.R index b25a617..ac1aa85 100644 --- 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")) }