Guest User

Untitled

a guest
Aug 25th, 2019
74
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. library(ggforce)
  2. library(ggplot2)
  3.  
  4. leaf <- data.frame(
  5. x = c(1.6, 1.5, 1.8, 1.5, 1.6, 1.3),
  6. y = c(2, 2, 1.5, 1, 1, 1.5)
  7. )
  8.  
  9. ggplot(leaf, aes(x, y)) +
  10. geom_polygon(fill = NA, colour = 'grey') +
  11. geom_point(colour = 'red') +
  12. geom_bspline_closed(alpha = 0.7) +
  13. coord_fixed()
RAW Paste Data