爱心直角坐标系如何画——直角坐标系爱心函数…

在今天这样一个特殊的日子——七夕情人节，工科男的世界也藏了一颗浪漫的心，一份特殊的礼物表白最爱的人，希望你会喜欢。

今天我们就来说说如何用R语言绘制一幅浪漫的爱心图形，工科男也可以很浪漫，喜欢的话赶快转给自己最爱的人勇敢表白吧。

心形线的由来

说到心形线，就不得不提一提数学天才笛卡尔的爱情故事，1649年，已经52岁的笛卡尔邂逅了刚刚满18岁的瑞典公主克里斯汀，但是笛卡尔回法国后不久便因病去世，他给公主写得最后一封信仅有短短的一个公式：r=a(1-sinθ），这就是著名的心型函数的极坐标方程。

心形函数的表达方式有很多，包括：极坐标方程，直角坐标方程和参数方程，本文使用参数方程绘制心形图形。

心形函数的参数方程

x = 10*sin(t)^3

y = 15*cos(t)-6*cos(2*t) - 3*cos(3*t) - cos(4*t)

• 心形函数的参数方程不止这一种，还有很多种，形状略有区别，作者经过尝试后，这个参数方程画出来的形状相对好看

• 心形函数的参数方程前面的系数都可以自己设定，由此得到不同的心形形状
  

简单心形图形绘制

t = seq(0, 2 * pi, by = 0.1) x = 10*sin(t)^3 y = 15*cos(t)-6*cos(2*t) - 3*cos(3*t) - cos(4*t) plot(x,y,type = "l",col="pink",lwd=10,bty="n",yaxt="n",xaxt="n",xlab ="",ylab = "")

type = "l"，设置绘制的图形类型为线形，默认为点图

col="pink"，设置图形的颜色为粉红色

lwd=10，设置线条的粗细为默认的10倍粗

bty="n",yaxt="n",xaxt="n"，设置图形的边框，横坐标和纵坐标轴都不显示

xlab ="",ylab = ""，设置图形的横坐标和纵坐标轴的标签为空，即不显示

简单心形

嵌套心形图形绘制

绘制代码

for( )循环，多次进行lines( )操作

lines( )函数，用于要向一幅已经存在的简单心形图形上再叠加一条心形图形

嵌套心形图形

执子之手心形绘制

plot(x,y,type = "l",col="black",lwd=10,bty="n",yaxt="n",xaxt="n",xlab ="",ylab = "") line*x+4,0.6*y,col="pink",lwd=10) title(main="情人节快乐",col.main="red",cex.main=2,;祝天下有情人终成眷属",)

title( )函数，用来给图形添加标题，横坐标和纵坐标轴的标签等信息

col.main="red"，用来设置标题的颜色

cex.main=2，用来设置标题的大小，为默认值的两倍大

，用来设置标题的字体样式。1=常规.； 2=粗体.； 3=斜体.； 4=粗斜体.； 5=符号字体(以Adobe符号编码表示)

xlab=" "，用来设置横坐标的标签

，用来设置坐标轴标签的字体样式

执子之手心形

这一份特殊的礼物希望你和你的女朋友会喜欢~

单身的人也不用灰心，勇敢地转给自己喜欢的人吧~