# HG changeset patch
# User moheydarian
# Date 1491943897 14400
# Node ID 9577cd390ee677104946397cc72868670f35d904
# Parent  19546f3ef70a7747baa0ab31eccbce006907fa4c
Uploaded

diff -r 19546f3ef70a -r 9577cd390ee6 ggplotscripthistogram.R
--- a/ggplotscripthistogram.R	Tue Apr 11 16:43:46 2017 -0400
+++ b/ggplotscripthistogram.R	Tue Apr 11 16:51:37 2017 -0400
@@ -68,9 +68,11 @@
 
 #density 
 if(options$density == "counts"){
-    gg_density = NULL
+    gg_density = ggplot(input,aes(value ,color=variable))
+
 } else {
-    gg_density = , ...density...,
+    gg_density = ggplot(input,aes(value, ...density...,color=variable))
+
 }
 
 #Choose between automatically scaled x and y axis or user defined
@@ -120,7 +122,7 @@
     gg_colorscale = scale_color_brewer(palette=options$colors, direction=options$colororder)
   }
 
-ggplot(input,aes(value gg_density,color=variable)) +
+gg_density +
 geom_freqpoly(binwidth=options$binwidth,size=options$size)+gg_facet+gg_colorscale+
 gg_scalex+gg_scaley+theme_bw()+xlab(options$xlab)+ylab(options$ylab)+gg_legend+
 ggtitle(options$title)