【R图秀】教你用R画心

感谢关注天善智能，走好数据之路↑↑↑

欢迎关注天善智能，我们是专注于商业智能BI，人工智能AI，大数据分析与挖掘领域的垂直社区，学习，问答、求职一站式搞定！

对商业智能BI、大数据分析挖掘、机器学习，python，R等数据领域感兴趣的同学加微信：tstoutiao，邀请你进入数据爱好者交流群，数据爱好者们都在这儿。

---

本文作者：傅兴

个人公众号：Rapp

---

3月是属于春天的一个月，万物复苏，欣欣向荣。在这个浪漫的月份，也别忘了联系R编程哦！今天的R图秀就用R来制作一张充满爱意的卡片送给你和你的另一半，愿天下有情人终成眷属！

表达爱意肯定离不开❤️，所以首先要解决的问题是如何用R来画❤️。我在网上找到了一个很简单的方法：https://www.r-bloggers.com/make-a-valentines-heart-with-r/ 代码如下：

画出来的图是这样的：

看上去有点简陋，实在是拿不出手，所以我决定在此基础上进行几点改进：1. 给爱心填上红色2. 画两个爱心3. 用金色的丘比特之箭将两个爱心连在一起4. 把对Ta说的话写在爱心上方下面我们就一起来实现这个2.0版本的情人节卡片：1. 准备工作。准备好填充爱心的颜色和画第一个爱心所需的x和y变量

2. 为了给爱心填色，我们使用polygon函数取代原来的lines函数：

效果如下：

3. 用同样的方法在右边画第二个爱心

效果如下：

看上去2个爱心连成一片，效果不好，我打算用lines函数给爱心加上边：

效果如下：

4. 用4个arrows函数来画穿过爱心的丘比特之箭：

效果如下：

这支箭看上去是放在爱心上而不是穿过爱心，所以我们需要调整一下画arrows的顺序：

效果如下：

5. 把你对Ta说的话写下来吧：

最终的效果如下：

下面是完整的代码供大家参考：

最后祝大家三月也要元气满满！！！