今天看到统计之都上的情人节心形图。

这次画的心形函数是： $ x = 16 (sin t)^3$ $ y = 13 cos t - 5 cos 2t - 2 cos 3t - cos 4t$

尝试用ggplot2来画，结果如下：

代码见Github.

类似的心形图以前也是画过的，当然这样的函数图有很多，详见http://www.mathematische-basteleien.de/heart.htm，画起来也很容易。

倒是以前画过的蝙蝠侠logo，更有成就感些。