使用ggplot2绘制心形

作者简介Introduction

林筱越：华东政法大学 社会学专业 R语言爱好者 

由于最近在学习Hadley大神的《R for data science》和Winston Chang的《R graphics cookbook》，并且受到傅兴[R图秀：情人节快乐]的启发并且想检验一下自己学习的成果，所以就打算给gf用ggplot2包画了爱心（因为忘记买礼物了！）

---

绘制思路：

总体而言思路还是比较简单的，主要为以下部分：

• 绘制心形：主要通过函数来构建(本人文科生……所以只能寻求google和百度帮助了)；当然最后还是参考了统计之都一篇文章的步骤： (https://cosx.org/2012/02/valentines-gift-by-using-r)

• 心形上色并添加想要说的话的文本

• 删除多余的图像元素：网格线、背景、边框等

准备工作

#加载包

library(tidyverse) # 或者使用'ggplot2'包也是可以的

#设定数据集

t = seq(0, 2 * pi, by = 0.1)

x = 16 * sin(t)^3

y = 13 * cos(t) - 5 * cos(2 * t) - 2 * cos(3 * t) - cos(4 * t)

a = (x - min(x))/(max(x) - min(x))

b = (y - min(y))/(max(y) - min(y))

绘图

 #绘图构造：

 ##用线图`geom_line`来画出大致轮廓

 ##用`geom_polygon`来进行填充

 ggplot(data=NULL, aes(x=x, y=y)) +

 geom_line(aes(color=I('white'))) + #