diff makeblobplot.R @ 6:b45fc20c7acd

resize legend and removed facet

--- a/makeblobplot.R	Wed Nov 25 13:54:48 2015 +0000
+++ b/makeblobplot.R	Sat Nov 28 11:26:37 2015 +0000
@@ -68,8 +68,8 @@
 }
 #y_axis_breaks = c(1,2,5,10,20,50,100,200,500,1000);
 g<-g +
-  facet_wrap(~read_set, ncol=numcols) + 
-  #scale_y_log10() + 
+  #facet_wrap(~read_set, ncol=numcols) + 
+  scale_y_log10() + 
 scale_x_continuous(limits=c(1e-307, 1),breaks = seq(0,1,.1)) +
   labs(x="GC content", y="Read coverage") + 
   guides(colour = guide_legend(nrow=3, override.aes = list(alpha = 1,size=10))) + 
@@ -79,8 +79,8 @@
     axis.text.y  = element_text(colour = "black", size = 25, vjust = 0.5),
     axis.title.x = element_text(colour = "black", size = 25, vjust = 0),
     axis.title.y = element_text(colour = "black", size = 25, hjust = 0.5, vjust = 0.5, angle=90),
-    legend.text  = element_text(colour = "black", size = 25, vjust = 0),
-    legend.title = element_text(colour = "black", size = 25, vjust = 0, hjust = 0, lineheight=1),
+    legend.text  = element_text(colour = "black", size = 15, vjust = 0),
+    legend.title = element_text(colour = "black", size = 15, vjust = 0, hjust = 0, lineheight=1),
     legend.justification=c(1,1), legend.position="bottom", legend.direction="horizontal"
   )
 g