comparison ggplotscripthistogram.R @ 9:90be6d1315a4 draft

Uploaded

8:a5969083902c

cat("\n output: ",options$output)

integrated <- read.csv(options$input,sep='\t',header=TRUE)
input <- melt(integrated)

gg_legend = show.legend=options$legend

#Choose between automatically scaled x and y axis or user defined
if(options$scaling == "Automatic"){
    gg_scalex = NULL
    gg_scaley = NULL

9:90be6d1315a4

cat("\n output: ",options$output)

integrated <- read.csv(options$input,sep='\t',header=TRUE)
input <- melt(integrated)

#Show/hide legend
if(options$legend == "TRUE"){
    gg_legend = NULL
} else {options$legend == "FALSE"
    gg_legend = theme(legend.position="none")
}

#Choose between automatically scaled x and y axis or user defined
if(options$scaling == "Automatic"){
    gg_scalex = NULL
    gg_scaley = NULL