SHARE
TWEET

Untitled

a guest Feb 17th, 2019 55 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. df <- data_frame(t = seq(-pi,0,0.001),
  2.                  x1 = 16 * (sin(t)) ^ 2,
  3.                  x2 = -x1,
  4.                  y = 13* cos(t) - 5 * cos(2*t) -2*cos(3*t) - cos(4*t))
  5.  
  6. df %>%
  7.     gather(side,x,x1,x2) %>%
  8.     ggplot(aes(x,y)) +
  9.     geom_polygon(fill = "red") +
  10.     coord_fixed() +
  11.     theme_minimal()
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top