R语言画心形图

• 花匠小妙招
• 2025-01-03 19:20

首先声明我只是代码的搬运工，这些都是百度上比较火的心形图，马上就是情人节了，复制粘贴一下送给小姐姐逗人家笑一下也是很好的。

第一个如图：

附上代码：

x<-seq(-1.1,1.1,length = 3000)

rep<-30

y<-matrix(,3000,rep) #创建矩阵

yx<-matrix(,3000,rep) #创建矩阵

xx<-matrix(,3000,rep) #创建矩阵

c<-seq(0,1,length=rep) #立体效果

for (i in 1:rep)

for (p in 1:3000){

y[p,i]<-(1-(x[p])^2)^(1/2)+((x[p])^2)^(1/4)+c[i]

yx[p,i]<--(1-(x[p])^2)^(1/2)+((x[p])^2)^(1/4)+c[i]

xx[,i]<-x}

for (q in 2:15){

par(bg="pink")

plot(c(rev(xx),xx),c(rev(y),yx),type='l',xlim = c(-1,1),xlab = "瘦、白、美、头发多、暴富、健康 还有长高高",col.lab="red",font.lab=9,cex.lab=1,ylab = "",axes=F,col=q)

Sys.sleep(1)} #Sys.sleep(1)动态效果

第二个：

附上代码：

rm(list=ls())

library(grid)

heart <- function(lcolor){

t=seq(0, 2*pi, by=0.1)

x=16*sin(t)^3

y=13*cos(t)-5*cos(2*t)-2*cos(3*t)-cos(4*t)

a=(x-min(x))/(max(x)-min(x))

b=(y-min(y))/(max(y)-min(y))

grid.lines(a,b,gp=gpar(col=lcolor,lty = "solid",lwd = 3))

}

vp <- viewport(.10, .15, w=.3, h=.6)

grid.newpage()

vp1 <- viewport(.4, .5, w=.5, h=.5,angle=15)

pushViewport(vp1)

heart("red")

vp2 <- viewport(0.9, .27, w=.7, h=.7,angle=-30)

pushViewport(vp2)

heart("hotpink")

grid.text("Hello,World。",

x=0.2,y =1.2, just = c("center", "bottom"),

gp = gpar(fontsize=20), vp = vp)

第三个：

附上代码：

library(grid)

heart<-function(lcolor)

{

t<-seq(0,2*pi,by=0.1)

x<-16*sin(t)^3

y<-13*cos(t)-5*cos(2*t)-2*cos(3*t)-cos(4*t)

a<-(x-min(x))/(max(x)-min(x))

b<-(y-min(y))/(max(y)-min(y))

grid.lines(a,b,gp=gpar(col=lcolor,lty="solid",lwd=3))

}

grid.newpage()

for(j in 1:30)

{

vp<-viewport(0.5,0.5,w=0.9,h=0.9,angle=15)

pushViewport(vp)

heart("hotpink")

}

第四个：

附上代码：

library(grid)

heart<-function(lcolor)

{

t<-seq(0,2*pi,by=0.1)

x<-16*sin(t)^3

y<-13*cos(t)-5*cos(2*t)-2*cos(3*t)-cos(4*t)

a<-(x-min(x))/(max(x)-min(x))

b<-(y-min(y))/(max(y)-min(y))

grid.lines(a,b,gp=gpar(col=lcolor,lty="solid",lwd=3))

}

grid.newpage()

ang<-15*c(1,rep(0,29))

for(j in 1:30)

{

vp<-viewport(0.5,0.5,w=0.9,h=0.9,angle=ang[j])

pushViewport(vp)

heart("hotpink")

}

ang<--15*c(1,rep(0,29))

for(j in 1:30)

{

vp<-viewport(0.5,0.5,w=0.9,h=0.9,angle=ang[j])

pushViewport(vp)

heart("red")

}

第五个：

附上代码：

library(grid)

heart<-function(lcolor)

{

t<-seq(0,2*pi,by=0.1)

x<-16*sin(t)^3

y<-13*cos(t)-5*cos(2*t)-2*cos(3*t)-cos(4*t)

a<-(x-min(x))/(max(x)-min(x))

b<-(y-min(y))/(max(y)-min(y))

grid.lines(a,b,gp=gpar(col=lcolor,lty="solid",lwd=3))

}

grid.newpage()

ang<-15*c(1,rep(0,29))

for(j in 1:30)

{

vp<-viewport(0.5,0.5,w=0.9,h=0.9,angle=ang[j])

pushViewport(vp)

heart("hotpink")

}

ang<--30*c(1,rep(0,29))

vp<-viewport(3.3,-2.9,w=1.09,h=1.09,angle=ang[1],just="bottom")

pushViewport(vp)

heart("red")

for(j in 2:30)

{

vp<-viewport(0.5,0.5,w=1.09,h=1.09,angle=ang[j])

pushViewport(vp)

heart("red")

}

相关知识

七夕，来用R画朵玫瑰
R语言“
R语言数据分析案例：鸢尾花（IRIS）
matlab中画花瓣,matlab画心，画玫瑰花，表白合集
用c语言画玫瑰花
R语言高效自学—R粉们最值得关注的几个社区
用R语言绘制玫瑰花
使用R绘制花瓣图
R语言的apply族函数
心形花束(心形花束包装教程)

网址: R语言画心形图 https://m.huajiangbk.com/newsview1432014.html