Stamp inverse of a polygon of n sides

This function adds a text annotation layer. Contribute or help document https://github.com/EvaMaeRey/ggstamp/blob/master/R/stamp_polygon.R

stamp_polygon_inverse(
  x0 = 0,
  y0 = 0,
  n_vertices = 6,
  radius = 1,
  radius_outer = radius * 2^0.5,
  size = 0,
  alpha = 1,
  rotation = -0.5,
  linetype = "solid",
  fill = "white",
  color = "black",
  x0y0 = NULL
)

Arguments

x0	numeric x center of shape, defaults to 0
y0	numeric y center of shape, defaults to 0
n_vertices	numeric number of vertices
radius	a numeric value, the distance between x0 and y0 and the vertices
size	numeric value indicating line width, defaults to 1.5
alpha	numeric between 0 and 1 indicating transparency, defaults to 1 fully opaque, zero is fully transparent
rotation	numeric indicating how much polygon should be turned from first vertex along positive horizontal
linetype	a string indicating linetype, "solid", "dashed", "dotted", defaults to "solid"
fill	a character string indicating fill color, defaults to "grey35", for other named colors check out https://evamaerey.github.io/ggplot2_grammar_guide/named_colors
color	a character string indicating color, defaults to "black", for other named colors check out https://evamaerey.github.io/ggplot2_grammar_guide/named_colors
x0y0	dataframe indicating center of shapes, where first column is vector for x values and second column is vector for y values, defaults to NULL

Value

Examples

# on plot space
library(ggplot2)
ggplot(cars) +
 aes(speed, dist) +
 geom_point() +
 stamp_polygon_inverse(x0 = 20, y0 =50, color = "darkred",
 size = .5,
 radius = 10)

# on a canvas
 ggcanvas() +
  stamp_polygon_inverse(n = 3, x0 = c(0,2.5),
  fill = "magenta", color = "purple") +
  stamp_label(x = pos_polygon_x(x0 = 0, n = 3),
              y = pos_polygon_y(y0 = 0, n = 3),
              label = c("hi", "hello", "bye")) +
  stamp_point(color = "turquoise")

# lots of polygons
 ggcanvas() +
 stamp_polygon_inverse(radius = 3, n_vertices = 5,
                       fill = "turquoise") +
 stamp_polygon_inverse(fill = "slateblue2",
                       radius = 1.5, n_vertices = 7) +
 stamp_polygon_inverse(linetype = "dashed",
                       alpha = .5, fill = "plum2") +
 stamp_polygon_inverse(x0 = 1, y0 = 1.5, n_vertices = 3,
                       rotation = .25, size = 0,
                       fill = "goldenrod2") +
 stamp_polygon_inverse(n_vertices = 50, radius = .2,
                       size = 0) +
 stamp_spoke(angle = pi * 1:7/15, radius = 2)

# some more
 ggcanvas() +
  stamp_png() +
  stamp_polygon_inverse(radius = .45,
                        radius_outer = Inf) +
  stamp_polygon(alpha = .2, radius = .45,
                color = "grey30")