Mercurial > repos > moheydarian > ggplot_histogram
comparison ggplotscripthistogram.R @ 28:1d1518b029d1 draft
Uploaded
| author | moheydarian |
|---|---|
| date | Tue, 11 Apr 2017 18:35:55 -0400 |
| parents | b4d1be4880da |
| children |
comparison
equal
deleted
inserted
replaced
| 27:9e4be820b5ee | 28:1d1518b029d1 |
|---|---|
| 68 | 68 |
| 69 #density | 69 #density |
| 70 if(options$density == "counts"){ | 70 if(options$density == "counts"){ |
| 71 gg_density = ggplot(input,aes(value, color=variable)) | 71 gg_density = ggplot(input,aes(value, color=variable)) |
| 72 gg_freq = NULL | 72 gg_freq = NULL |
| 73 } else if(options$density == "cat"){ | 73 } else if(options$density == "nfreq"){ |
| 74 gg_density = ggplot(input,aes(value, ..ncount.., color=variable)) | 74 gg_density = ggplot(input,aes(value, ..ncount.., color=variable)) |
| 75 gg_freq = NULL | 75 gg_freq = NULL |
| 76 } else if(options$density == "freq"){ | 76 } else if(options$density == "freq"){ |
| 77 gg_density = ggplot(input,aes(value, color=variable)) | 77 gg_density = ggplot(input,aes(value, color=variable)) |
| 78 gg_freq = aes(y=..count../sum(..count..)) | 78 gg_freq = aes(y=..count../sum(..count..)) |