程序员的浪漫--R语言画小心心

x <- seq(-1,1,length = 5000)

y1 <- (1-x 2) (1/2)+(x 2) (1/3)

y2 <- -(1-x 2) (1/2)+(x 2) (1/3)

plot(c(rev(x),x),c(rev(y2),y1), type = 'l' ,xlim = c(-1,1), xlab = "",ylab = "", axes = F,col=2)

library("RColorBrewer")

col<-brewer.pal(3,'Set1')[1]

t<-seq(0,60,len=100)

x<--0.01 (-t^2+40 t+1200) sin(pi t/180)

y<- 0.01 (-t^2+40 t+1200) cos(pi t/180)

plot(c(-12,14),c(0,20),type = '答樱n',axes = T,xlab = '',ylab = '')

arrows(-11,8,14,8,lwd=8,col='gold')

arrows(14,8,-11,8,lwd=8,col='gold',angle = 120)

polygon(x,y,col=col,border = NA)

polygon(-x,y,col=col,border = NA)

lines(x,y,lwd=1)

lines(-x,y,lwd=1)

参考文献：

https://blog.csdn.net/kMD8d5R/article/details/79327603

https://www.r-bloggers.com/make-a-valentines-heart-with-r/

​

https://mp.weixin.qq.com/s/Iqcqo5YTy1qmXdsuIrlrYQ

http://www.matrix67.com/blog/archives/4139 </pre>

PS：

据说笛卡尔最后还是没能等到 自己等了很久的那个人

但是这不重要，重要的是。。。群里好多有心型图啊

不知道作者们愿不愿或举源意放上来分享一下（哈哈哈哈）

各位端午节快乐，没脱单的早日脱单

以及，下次再有人问你R语言能干衫态什么，告诉他可以拿去表白

和大神们比画图我还是嫩了点（顶锅盖逃走）

在R语拿胡言中，可以使用plot()函数来绘制函数空心点图。首先，需要定义函数，然后使用plot()函数绘制函数图像，并在其中消困拦指定参数type="h"，以绘制函数空心点尺碧图。

饼图或者说扇形图在统计分析结果展示中非常常用，R语言自带做饼图的函数pie，做迟迟起来非手旦没常简单，只需提供比例，样品名称即可。

默认的颜色只有6中，循环使用的，不过这个颜色可以自定义。

用pie作图其实就够了，但奈何很“卷”，有其他好看的饼图，所以接下来还是结合ggplot2与ggforce做可以变换的饼图，例如空心饼图。单独用ggplot2作图比较繁琐，不建议去尝试了，太费时间没必要。

先做一个基本的饼图。

要想得到空心饼图，只需要将geom_arc_bar参数中毕纳r0改为1即可。

想要分割饼图，geom_arc_bar中添加explode参数。

可以发现，以上作图有一个bug就是添加比例标记很麻烦，要想实现自动化需要编写函数很麻烦。参考： https://stackoverflow.com/questions/52960015/how-to-avoid-label-overlap-in-pie-chart 。可以先将每个标签角度计算好，再添加，结果还好。

好了以上就是饼图的内容了，其本质是为了统计比例，结果解读比较直观，我们也是跟风做了一些变换的图形，其实最简单的饼图就可以了，各取所需。此外，还有很多其他方法制作饼图，感兴趣的自行百度了解。

---