diff ggplotscripthistogram.R @ 24:b9118a9b5109 draft

Uploaded

--- a/ggplotscripthistogram.R	Tue Apr 11 18:17:16 2017 -0400
+++ b/ggplotscripthistogram.R	Tue Apr 11 18:22:45 2017 -0400
@@ -68,14 +68,16 @@
 
 #density 
 if(options$density == "counts"){
-    gg_density = ggplot(input,aes(value ,color=variable))
+    gg_density = ggplot(input,aes(value, color=variable))
     gg_freq = NULL
 } else if(options$density == "ndensity"){
-    gg_density = ggplot(input,aes(value, ..ncount..,color=variable))
+    gg_density = ggplot(input,aes(value, ..ncount.., color=variable))
     gg_freq = NULL
 } else if(options$density == "freq"){
-    gg_density = ggplot(input,aes(value,color=variable))
+    gg_density = ggplot(input,aes(value, color=variable))
     gg_freq = aes(y=..count../sum(..count..))
+} else {
+  
 }
 
 #Choose between automatically scaled x and y axis or user defined