Simple love-card written on R

Prepare letters

# L
x1 <- seq(0, 10, 0.1)
y1 <- 1 / x1
q1 <- qplot(x1, y1, geom = "path", xlab = "x", ylab = "y")

# O 
radius <- 5
theta <- seq(0, 2 * pi, length = 200)
x2 <- 5 + radius * cos(theta)
y2 <- 5 + radius * sin(theta)

q2 <- qplot(x2, y2, geom = "path", xlab = "x", ylab = "y")

# L
x3 <- seq(0, 10, 1)
y3 <- abs(-2 * x3 + 10)
q3 <- qplot(x3, y3, geom = "path", xlab = "x", ylab = "y")

# E
y4 <- seq(0, 10, 0.1)
x4 <- 10 * (1 - abs(sin(y4 * 0.628)))
q4 <- qplot(x4, y4, geom = "path", xlab = "x", ylab = "y")

Show card

grid.arrange(q1, q2, q3, q4, ncol = 4, 
             top = textGrob("From Russia with", gp = gpar(fontsize = 34)))

Used equations

\[y = 1/x\] \[(x-5)^2 + (y-5)^2 = 25\] \[y = \lvert { -2*x + 10 } \rvert\] \[x = 10 - 10 * \lvert sin(y*0.628) \rvert\]