create heart for valentine's day using ggplot2 and gganimate

Valentine.R

library(ggplot2)
library(dplyr)
library(gganimate)

heartdf = tibble(
	t = seq(0, 2*pi, pi/60),
	x = 16*sin(t)^3,
	y = 13*cos(t) - 5*cos(2*t) - 2*cos(3*t) - cos(4*t)
)

textdf = tibble(t = max(heartdf$t) + 1:15)

ggplot(data = heartdf, aes(x, y)) + 
	geom_polygon(aes(group = 1), fill = "red") +
	geom_text(aes(x = 0, y = 0, label = "情人节快乐!!!"), 
			  data = textdf, size = 12, colour = "white") +
	transition_reveal(t)


anim_save("mygirl.gif")