Heart equation with gganimate

tsu.R

library(gganimate)
library(dplyr)
th <- seq(-1,1,by=0.001)
ran <- c(-0.85,-0.2)
df <- data.frame(x = sin(th)*cos(th)*log(abs(th)),
                 y = (abs(th)^0.3)*sqrt(abs(cos(th))),
                 theta=th) %>% 
  mutate(f = ran[1]<theta & theta<ran[2]) %>% 
  mutate(time_dummy = row_number())

ggplot(df, aes(x=x, y=y, colour=f, group=1))+
  geom_path(linewidth=2)+
  theme_classic()+
  transition_reveal(time_dummy)
anim_save("tsu.gif")