# HG changeset patch
# User davidvanzessen
# Date 1441974719 14400
# Node ID f5b242a5337febfe55da32b95030f239bb9717d8
# Parent  623bbe972363ddafd7fd977f012d9cf4aa635dda
Uploaded

diff -r 623bbe972363 -r f5b242a5337f RScript.r
--- a/RScript.r	Fri Sep 11 08:26:18 2015 -0400
+++ b/RScript.r	Fri Sep 11 08:31:59 2015 -0400
@@ -317,7 +317,7 @@
       if(nrow(scatterplot_locus_data) != 0){
         if(on == "normalized_read_count"){
           scales = 10^(0:6) #(0:ceiling(log10(max(scatterplot_locus_data$normalized_read_count))))
-          p = ggplot(scatterplot_locus_data, aes(type, normalized_read_count)) + scale_y_log10(breaks=scales,labels=scales)
+          p = ggplot(scatterplot_locus_data, aes(type, normalized_read_count)) + scale_y_log10(breaks=scales,labels=scales) + expand_limits(y=10^6)
         } else {
           p = ggplot(scatterplot_locus_data, aes(type, Frequency)) + scale_y_continuous(limits = c(0, 100)) + expand_limits(y=c(0,100))
         }