weitinglin

# Construct new_Geom class inheired from Geom class
new_Geom <- ggproto("new_Geom", Geom,
                      required_aes = c("x", "y"),
                      defaut_aes = aes(fill="yello"),
                      draw_key_key = draw_key_polygon,
                      draw_group = function(data, panel_scales, coord){
                      
                      coords <- coord$transform(data, panel_scales)
                      
                      grid::polygonGrob(

weitinglin

##date  日期##

weitinglin

date  日期