作者 傅兴

提醒大家:在这个浪漫的情人节里也别忘记练习R编程哦!今天的R图秀就用R来制作一张情人节卡片送给你和你的另一半,愿天下有情人终成眷属!

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

画出来的图是这样的:

r语言画心 r语言画爱心_大数据

看上去有点简陋,实在是拿不出手,所以我决定在此基础上进行几点改进:
1. 给爱心填上红色
2. 画两个爱心
3. 用金色的丘比特之箭将两个爱心连在一起
4. 把对Ta说的话写在爱心上方

下面我们就一起来实现这个2.0版本的情人节卡片:
1. 准备工作。准备好填充爱心的颜色和画第一个爱心所需的x和y变量

r语言画心 r语言画爱心_数据可视化_02

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

r语言画心 r语言画爱心_数据挖掘_03

效果如下:

r语言画心 r语言画爱心_大数据_04

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

r语言画心 r语言画爱心_大数据_05

效果如下:

r语言画心 r语言画爱心_大数据_06


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

r语言画心 r语言画爱心_数据挖掘_07

效果如下:

r语言画心 r语言画爱心_数据挖掘_08

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

r语言画心 r语言画爱心_r语言画心_09

效果如下:

r语言画心 r语言画爱心_r语言画心_10

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

r语言画心 r语言画爱心_数据可视化_11

效果如下:

r语言画心 r语言画爱心_数据可视化_12

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

r语言画心 r语言画爱心_大数据_13

最终的效果如下:

r语言画心 r语言画爱心_大数据_14

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

r语言画心 r语言画爱心_r语言画心_15

最后祝大家情人节快乐!!!