grid.newpage()gp < - map(gpar,fill = fill_pattern(patterns = c(“ grid_3lwd”,“ stripe_longdash”,“ herringbone45”,“ herringbone45”,“ hexagon_lg”),fg = c(“黑色”,“白色”,“”,“”,“”,“”,“”,“”(“”,“”(“”,“”(“”,“”(“”(blake cyan) )grid.circle(gp = gp [[1],x = 1/4,y = 3/4,r = 1/5)grid.poly.polygon(gp = gp [[2]],x = c(9,12,15)/16,y = c(15,9,9,15)/16)/16)/16)gp = gp = gp = gp = gp = gp = gp = gp = 3] 2/5,高度= 2/5)grect(gp = gp [[4]],x = 3/4,y = 1/4,宽度= 2/5,高度= 2/5)