# ggplot2.aes_string(x='wt', y='mpg') + \ # ggplot2.geom_point() + \ # ggplot2.scale_y_reverse() # pp.plot() # #-- ggplot2coordtransreverse-end # grdevices.dev_off() grdevices.png('../../_static/graphics_ggplot2map_polygon.png', width=612, height=612, antialias="subpixel", type="cairo") #-- ggplot2mappolygon-begin map = importr('maps') fr = ggplot2.map_data('france') # add a column indicating which region names have an "o". fr = fr.cbind(fr, has_o=base.grepl('o', fr.rx2("region"), ignore_case=True)) p = ggplot2.ggplot(fr) + \ ggplot2.geom_polygon(ggplot2.aes(x = 'long', y = 'lat', group = 'group', fill = 'has_o'), col="black") p.plot() #-- ggplot2mappolygon-end grdevices.dev_off() grdevices.png('../../_static/graphics_ggplot2mtcars_coordtrans.png', width=936, height=624, antialias="subpixel",
# #-- ggplot2coordtransreverse-begin # pp = gp + \ # ggplot2.aes_string(x='wt', y='mpg') + \ # ggplot2.geom_point() + \ # ggplot2.scale_y_reverse() # pp.plot() # #-- ggplot2coordtransreverse-end # grdevices.dev_off() grdevices.png('../../_static/graphics_ggplot2map_polygon.png', width = 612, height = 612, antialias="subpixel", type="cairo") #-- ggplot2mappolygon-begin map = importr('maps') fr = ggplot2.map_data('france') # add a column indicating which region names have an "o". fr = fr.cbind(fr, has_o = base.grepl('o', fr.rx2("region"), ignore_case = True)) p = ggplot2.ggplot(fr) + \ ggplot2.geom_polygon(ggplot2.aes(x = 'long', y = 'lat', group = 'group', fill = 'has_o'), col="black") p.plot() #-- ggplot2mappolygon-end grdevices.dev_off()