library(tidyverse)

heartdf = data_frame(
  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), 
  x2 = 3*sqrt(2)*cos(t)/(sin(t)^2 + 1), 
  y2 = 20 + 4*sqrt(2)*cos(t)*sin(t)/(sin(t)^2 + 1) 
)

# Gráfico 
namorados = ggplot(data = heartdf, aes(x, y)) + 
  geom_path(aes(group = 1)) +
  geom_polygon(aes(group = 1), fill = "red") +
  geom_text(aes(x = 0, y = 0, label = "Feliz dia dos namorados!"), 
            size = 10, colour = "white")
namorados