Сохраняйте скрипт и отправляйте своим вторым половинкам💕

library(ggplot2)
t <- seq(0, 2*pi, by = 0.01)
x <- 16*sin(t)^3
y <- 13*cos(t)-5*cos(2*t)-2*cos(3*t)-cos(4*t)
ggplot(data = NULL, mapping = aes(x, y)) +
geom_point(color = 'red')