大家好，今天是情人节，给大家，尤其是男同胞，安利一个撩妹的技巧。

就是利用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")##这里是重点，大家自己悟

}

然后完成。

祝大家情人节快乐