For #15: expand plot area slightly

Expands the x axis' lower bound to -1 and y axis' upper bound to 101 so
that points lying directly at 0% divergence or 100% mAb identity are
still plotted (see warning about removal of data outside limits in
?ggplot2::scale_continuous) and expands available selection area in
interactive plot to match

Author: ressy

lineage/2.2-get_island_interactive.R

@@ -29,7 +29,7 @@ Copyright (c) 2016 Columbia University and Vaccine Research Center, National
 
 
 #### WRAPPER FOR gglocator() TO LIMIT TO POINTS WITHIN PLOT ####
-getLocation <- function(xmin=0,xmax=50,ymin=50,ymax=100) {
+getLocation <- function(xmin=-1,xmax=50,ymin=50,ymax=101) {
 
   myPoint <- data.frame( x=c(xmin-1), y=c(ymax+1) )
   while( myPoint$x<xmin || myPoint$x>xmax || myPoint$y<ymin || myPoint$y>ymax ) {

plottingFunctions.R

@@ -36,8 +36,8 @@ plot_all <- function (data, native, pretty, heavy, plot_title=NULL, color=TRUE,
 				na.value="white", breaks=r, labels=signif(r/b,1),
 			        guide = guide_colorbar( title="number of\nsequences", title.theme=element_text(size=4,angle=0),
 				        barheight = unit(.5,"in"), barwidth = unit(.1,"in"), label.theme=element_text(size=3,angle=0,) ) )+
-			theme_bw() + scale_x_continuous(expand=c(0,0),limits=c(0,50)) +
-			scale_y_continuous(expand=c(0,1),limits=c(50,100)) +
+			theme_bw() + scale_x_continuous(expand=c(0,0),limits=c(-1,50)) +
+			scale_y_continuous(expand=c(0,1),limits=c(50,101)) +
 	     		theme(plot.background = element_blank(),panel.grid.major = element_blank(),
 				axis.ticks.length = unit(.02,"in"), axis.ticks = element_line(size = .5),
 		          	panel.grid.minor = element_blank(), axis.text = element_text(size = 6),