comparison ggplotscripthistogram.R @ 16:9577cd390ee6 draft

Uploaded

15:19546f3ef70a

    gg_legend = theme(legend.position="none")
}

#density 
if(options$density == "counts"){
    gg_density = NULL
} else {
    gg_density = , ...density...,
}

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

    gg_colorscale = NULL
  } else {
    gg_colorscale = scale_color_brewer(palette=options$colors, direction=options$colororder)
  }

ggplot(input,aes(value gg_density,color=variable)) +
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)

ggsave(file=options$output)

16:9577cd390ee6

    gg_legend = theme(legend.position="none")
}

#density 
if(options$density == "counts"){
    gg_density = ggplot(input,aes(value ,color=variable))

} else {
    gg_density = ggplot(input,aes(value, ...density...,color=variable))

}

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

    gg_colorscale = NULL
  } else {
    gg_colorscale = scale_color_brewer(palette=options$colors, direction=options$colororder)
  }

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)

ggsave(file=options$output)