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语言能干什么，告诉他可以拿去表白
和大神们比画图我还是嫩了点（顶锅盖逃走）
is.vector(A)：判断A是否为向量；
as.vector(A)：如A是矩阵（数组），as.vector就是将矩阵转化为向量。
R中的vector分为两类，atomic和list，二者的区别在于,前者元素类型必须相同，后者可以不同。前者的代表是向量和矩阵，后者的代表是list和数据框。
is.vector
由于它们都是vector,所以用is.vector检验无法区分向量和列表。当然，也无法用as.vector将列表转换成向量。
同样是vector，矩阵和数据框用is.vector检验就返回的是FALSE，这说明is.vector也不是检验vector的，它的真正原理在于，检查是否最多只有一个属性：name。即查看其属性，如果没有属性或者只有一个name属性，才返回TRUE。
扩展资料
R语言强大的功能：
1、R的标记语言可以制作可重复生成的Word和Powerpoint文档
R语言中的rmarkdown包可以制作可重复生成的Word文档和Powerpoint幻灯片，而这只需要改变一行YAML的代码。
2、组建和运行一个可交互的网络应用只需要几行代码
几行R代码就可以生成一个可交互的网络应用。比方说如果使用R语言的flexdashboard包， 只需要36行代码，就可以生成一个可交互的动态报表，来探索BMI指数与全国健康营养检查样本结果的关联。
3、几行甚至一行R代码就可以支持网络应用的运行
另外一个很酷的功能是，通过rsconnect包，R语言还可以仅用一两行代码就支持网络应用的运行。这些应用既可以通过自己的服务器来支持，也可以用shinyapps.io这种云服务器。
4、通过使用R语言的dplyr/dbplyr，几乎各种数据库都可以连接
使用dbplyr包，用R语言连接各种数据库，无论是本地的还是远程的，都非常方便。这个功能使R语言用户可以不用担心底层的数据库，而独立地从主流数据库中抽取数据。R语言的bigrquery包还可以直接利用BigQuery和其他大规模数据存储。
