使用R语言绘制心形图

今天七夕，正好看到高等数学的心形线，想到心形线的函数应该可以用R语言来绘制，就尝试了一下。

心形线的参数方程为：
其中r是半径，t为弧度。

有了参数方程之后，我们的作图就变得简单了，其基本思路是：首先计算出x和y坐标的位置，接下为使用plot函数绘图，最后使用polygon函数填充即可。

下面我们就尝试一下：

par(pin=c(1.5, 1.5)) #设定图形的大小，长和宽定义为2，此处可以进行调整t<-seq(0, 2*pi, 0.01)  #设定弧度的值x=2*(cos(t)-0.5*cos(2*t))
y=2*(sin(t)-0.5*sin(2*t)) #计算(x, y)的值，半径定为1plot(x, y, type="l", ann=F, bty="n",xaxt="n",yaxt="n")   #进行绘图，图的形式为线形，去掉坐标轴polygon(x,y, col="red", border = "red") #把图形填充为红色，边框也填充为红色在这里插入代码片

这时，我们可以看到心形图绘制如下：
我们想把心形图换个方向，这时改下参数方程即可：

par(pin=c(1.5, 1.5)) t<-seq(0, 2*pi, 0.01)  x=2*(sin(t)-0.5*sin(2*t))
y=2*(cos(t)-0.5*cos(2*t)) #计算(x, y)的值，此处与上段代码有差异plot(x, y, type="l", ann=F, bty="n",xaxt="n",yaxt="n")  polygon(x,y, col="red", border = "red")

绘制图形如下：
但可能有人觉得这个还是有点不像心形，于是我在网上找了一个新的参数方程，使之更像心形；在代码上，只需要改(x, y)坐标设定的两行即可：

par(pin=c(1.5,1.5))t<-seq(0, 2*pi, 0.01)x=16*(sin(t))^3
y=13*cos(t)-5*cos(2*t)-2*cos(3*t)-cos(4*t)plot(x,y, type="l", ann=F, bty="n",xaxt="n",yaxt="n")polygon(x,y, col="red", border = "red")

得到图形如下：
这就是统计学人浪漫吧。

使用R语言绘制心形图相关推荐

绘制动态心形图案：：R语言绘制心形图
原始方程源于此贴一楼:直通车整理修改后: 被窝修改成这样: x<-seq(-1.1,1.1,length = 3000) rep<-30 y<-matrix(,3000,rep) ...
R语言绘制核密度图实战（Kernel Density Plot）
R语言绘制核密度图实战(Kernel Density Plot) 目录 R语言绘制核密度图实战(Kernel Density Plot) #仿真数据
r语言绘制精美pcoa图_R语言绘制交互式热图
热图通过热图可以简单地聚合大量数据,并使用一种渐进的色带来优雅地表现,最终效果一般优于离散点的直接显示,可以很直观地展现空间数据的疏密程度或频率高低.但也由于很直观,热图在数据表现的准确性并不能保证 ...
R语言绘制气泡矩阵图
R语言绘制气泡矩阵图示例图之前在一些文章中看到过气泡矩阵的表达方法,该图形表达的意思就是不同样本中不同物种的丰度分布情况,气泡越大则是代表物种的相对丰度(或者说16S得到的绝对丰度)越大,在这个例 ...
matlab心形图c语言,MATLAB心形图.doc
MATLAB心形图三维图表达你对他的爱 [X,Y,Z] = meshgrid(linspace(-3,3,101)); F = -X.^2.*Z.^3-(9/80).*Y.^2.*Z.^3+(X. ...
python心脏线绘制代码_C++和Java命令行绘制心形图代码分享
C++和Java命令行绘制心形图案心形线心形线,是一个圆上的固定一点在它绕着与其相切且半径相同的另外一个圆周滚动时所形成的轨迹,因其形状像心形而得名. 心脏线亦为蚶线的一种.在曼德博集合正中间的图 ...
使用R语言绘制地图，图审号地图：2019年中国地图-审图号GS（2019）1822号为基础制作的矢量shp 地图数据
下面介绍用R语言如何绘制: 1 加载数据 · 以民政部网站数据为例,利用R语言如何下载数据和绘制地图.民政部数据的API为http://xzqh.mca.gov.cn/data/,全国边界矢量为qua ...
R 语言绘制环状热图
作者:佳名来源:简书 - R 语言文集 1. 读取并处理基因表达数据这是我的基因表达量数据: 图 Fig 1 > myfiles <- list.files(pattern = &qu ...
R语言绘制堆叠面积图
areaplot包绘制堆叠面积图 library(areaplot) #数据 df <- longley x <- df$Year y <- df[, c(1, 2, 3, 4, 6 ...

使用R语言绘制心形图

使用R语言绘制心形图相关推荐

最新文章

热门文章