comparison ggplotscripthistogram.R @ 15:19546f3ef70a draft

Uploaded

14:bd1c3f88daa9

  'woutputdim', 'w', 2, 'integer',
  'houtputdim', 'd', 2, 'integer',
  'dim', 'k', 2, 'character',
  'scaling', 'j', 2, 'character',
  'legend', 'l', 2, 'character',
  'output', 'o', 2, 'character'
  ), byrow=TRUE, ncol=4);

# Parse options
options = getopt(option_specification);

#Show/hide legend
if(options$legend == "yes"){
    gg_legend = NULL
} else {
    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_colorscale = NULL
  } else {
    gg_colorscale = scale_color_brewer(palette=options$colors, direction=options$colororder)
  }

ggplot(input,aes(value,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)

15:19546f3ef70a

  'woutputdim', 'w', 2, 'integer',
  'houtputdim', 'd', 2, 'integer',
  'dim', 'k', 2, 'character',
  'scaling', 'j', 2, 'character',
  'legend', 'l', 2, 'character',
  'density', 'm', 2, 'character',
  'output', 'o', 2, 'character'
  ), byrow=TRUE, ncol=4);

# Parse options
options = getopt(option_specification);

#Show/hide legend
if(options$legend == "yes"){
    gg_legend = NULL
} else {
    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)