Mercurial > repos > davidvanzessen > clonal_sequences_in_paired_samples

diff RScript.r @ 31:ce8bd23d0335 draft

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Uploaded
author davidvanzessen
date Tue, 02 Jun 2015 05:26:52 -0400
parents 45554fd15511
children dde5ec847549
line wrap: on
line diff
--- a/RScript.r	Tue May 26 10:37:51 2015 -0400
+++ b/RScript.r	Tue Jun 02 05:26:52 2015 -0400
@@ -288,7 +288,7 @@
 
 cat("</table></html>", file=logfile, append=T)
 
-scales = 10^(0:ceiling(log10(max(single_patients$normalized_read_count))))
+scales = 10^(0:6) #(0:ceiling(log10(max(scatterplot_locus_data$normalized_read_count))))
 p = ggplot(single_patients, aes(Rearrangement, normalized_read_count)) + scale_y_log10(breaks=scales,labels=scales)
 p = p + geom_point(aes(colour=type), position="jitter")
 p = p + xlab("In one or both samples") + ylab("Reads")
@@ -447,7 +447,7 @@
       p = NULL
       if(nrow(scatterplot_locus_data) != 0){
         if(on == "normalized_read_count"){
-          scales = 10^(0:ceiling(log10(max(scatterplot_locus_data$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)
         } else {
           p = ggplot(scatterplot_locus_data, aes(type, Frequency))