def render_plot(gp, args): """Render a plot using ggplot :gp: A base ggplot2 object :x: The x value expression :y: The y value expression :type: The type of plot to make """ args = util.Namespace(args) import rpy2.robjects.lib.ggplot2 as ggplot2 pp = gp + ggplot2.aes_string(x=args.x, y=args.y) if args.type == 'points': pp += ggplot2.geom_point() elif args.type == 'lines': pp += ggplot2.geom_line() elif args.type == 'boxplot': pp += ggplot2.geom_boxplot() else: raise Exception("{0} not implemented".format(args.type)) if args.facets is not None: try: pp += ggplot2.facet_grid(ro.Formula(args.facets)) except Exception: pass try: pp.plot() except Exception: pass
ggplot2.geom_point() pp.plot() #-- ggplot2mtcarscolcyl-end grdevices.dev_off() grdevices.png('../../_static/graphics_ggplot2_ggplot_1.png', width=936, height=312, antialias="subpixel", type="cairo") #-- ggplot1-begin pp = gp + \ ggplot2.aes_string(x='wt', y='mpg') + \ ggplot2.geom_point() + \ ggplot2.facet_grid(ro.Formula('. ~ cyl')) pp.plot() #-- ggplot1-end grdevices.dev_off() grdevices.png('../../_static/graphics_ggplot2aescolsize.png', width=612, height=612, antialias="subpixel", type="cairo") #-- ggplot2aescolsize-begin pp = gp + \ ggplot2.aes_string(x='wt', y='mpg', size='factor(carb)', col='factor(cyl)', shape='factor(gear)') + \ ggplot2.geom_point()
pp = (gp + ggplot2.aes_string(x='wt', y='mpg', col='factor(cyl)') + ggplot2.geom_point()) pp.plot() #-- ggplot2mtcarscolcyl-end grdevices.dev_off() grdevices.png('../../_static/graphics_ggplot2_ggplot_1.png', width=936, height=312, antialias=ANTIALIAS, type="cairo") #-- ggplot1-begin pp = (gp + ggplot2.aes_string(x='wt', y='mpg') + ggplot2.geom_point() + ggplot2.facet_grid(ro.Formula('. ~ cyl'))) pp.plot() #-- ggplot1-end grdevices.dev_off() grdevices.png('../../_static/graphics_ggplot2aescolsize.png', width=612, height=612, antialias=ANTIALIAS, type="cairo") #-- ggplot2aescolsize-begin pp = (gp + ggplot2.aes_string(x='wt', y='mpg', size='factor(carb)', col='factor(cyl)',
pp = gp + \ ggplot2.aes_string(x='wt', y='mpg', col='factor(cyl)') + \ ggplot2.geom_point() pp.plot() #-- ggplot2mtcarscolcyl-end grdevices.dev_off() grdevices.png('../../_static/graphics_ggplot2_ggplot_1.png', width = 612, height = 612, antialias="subpixel", type="cairo") #-- ggplot1-begin pp = gp + \ ggplot2.aes_string(x='wt', y='mpg') + \ ggplot2.geom_point() + \ ggplot2.facet_grid(ro.Formula('. ~ cyl')) pp.plot() #-- ggplot1-end grdevices.dev_off() grdevices.png('../../_static/graphics_ggplot2aescolsize.png', width = 612, height = 612, antialias="subpixel", type="cairo") #-- ggplot2aescolsize-begin pp = gp + \ ggplot2.aes_string(x='wt', y='mpg', size='factor(carb)', col='factor(cyl)', shape='factor(gear)') + \ ggplot2.geom_point()