R语言一箭绘心
如何利用R语言中的arrows进行心的绘制。
大家好，今天是情人节，给大家，尤其是男同胞，安利一个撩妹的技巧。
就是利用R语言画心（或者叫牙签插桃也行）。大家先不要慌，虽然网上有很多画心的方法，但是小编跟大家保证，我这个方法绝对原创，而且还是最为简单的。
首先跟大家说下arrows这个函数。因为接下来这个心都是利用这个函数绘制的。
了解下这个函数。
arrows(x0, y0, x1 = x0, y1 = y0, length = 0.25, angle = 30,
code = 2, col = par("fg"), lty = par("lty")， lwd = par("lwd"), ...)
其实很简单，我们只需要知道这个函数是画箭头的，并且其重要的参数有坐标，包括起始和终止。另外还有箭头的长度还有箭头的角度。这里箭头的长度和角度是画心得关键。
第一步绘制一个空白的桌布
plot(1:10,col="white",axes=FALSE, xlab = " ", ylab = " ")
第二步绘制桃型心
for(i in 1:180)
{
arrows(5,7,5,7.1,col="red",length =i/100, angle =180-i)
}
其中在箭头的长度和角度这里进行循环，这用循环180次，角度就正好变了一圈。然后长度也正好由短变到最长。也就实现了心的绘制。样子如下
其动态效果如下
第三步绘制箭头
arrows(2,8,7,4,col="red",lwd=2)
k=-0.8
第四步绘制箭头上的羽毛
for(i in 1:10)
{
len=i/10
arrows(2,8,2+len,8-0.8*len,col="red")##这里是重点，大家自己悟
}
然后完成。
- 发表于 2017-03-28 20:38
- 阅读 ( 5367 )
- 分类：软件工具
