# NOT RUN {
# polygon glyph
p <- ggplot(data = data.frame(x = 1:4, y = 1:4),
mapping = aes(x = x, y = y)) +
geom_polygonGlyph(polygon_x = list(x_star, x_cross, x_hexagon, -x_airplane),
polygon_y = list(y_star, y_cross, y_hexagon, y_airplane),
colour = 'black', fill = 'red')
p
# }
Run the code above in your browser using DataLab