林筱越:华东政法大学 社会学专业 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(d