heart animation

heart.R

library(tidyverse)
library(gganimate)

p <- crossing(t = (1:4)*pi/2, 
              x = seq(0, 2*pi, length = 501)) %>% 
    mutate(y = 2 - 2*sin(x) + sin(x) * sqrt(abs(cos(x)))/(sin(x) + 1.4), 
           x = (x + t) %% (2*pi)) %>% 
    ggplot(aes(x, y, color = x)) + 
    geom_path(size = 2, show.legend = FALSE) +
    scale_color_gradient2(low = '#7a0177', mid = '#f768a1', high = '#fcc5c0') + 
    coord_polar() + 
    theme_void() + 
    transition_states(t, 1, 0)

animate(p, nframes = 300, fps = 30)