Add shapes on top of another plot

Add shapes on top of another plot

draw(x, gg, ...)

Arguments

x	a Momocs object
gg	ggplot object, default to ggplot2::last_plot
...	additional parameters to feed geoms

Value

a ggplot object

Examples

bot %>% pick(1) %>% gg()
bot %>% pick(2) %>% draw()

bot %>% pile(alpha=0.2)
bot %>% coo_rotate(pi/2) %>% draw(col="slateblue")
#> ℹ unfold.mom_tbl: can only handle a single coo_list, using coo column