x <- seq(-1,1,length = 100);
第一句中的length表示取值的多少，如果取更大的值则可以得到更细腻的图
下图为length=1000时得到的图形



下面我们对这个爱心进行完善升级
下图为length=10000，并将线条改成红色的结果图
代码如下：
x <- seq(-1,1,length = 10000);
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)


x <- seq(-1,1,length = 100);
y1 <- (1-x^2)^(1/3)+(x^2)^(1/3);
y2 <- -(1-x^2)^(1/3)+(x^2)^(1/3);
plot(c(rev(x),x),c(rev(y2),y1), type = 'l' ,xlim = c(-1,1), xlab = "",ylab = "", axes = F,col=3)

用polygon应该可以画实心的吧。

> x <- seq(-1,1,length = 100);
> 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);
> polygon(c(x[x>=-1],x[x<=1]),c(y2,y1),col="red")
最后加了一行，可以填充颜色了。

明显来自matlab的公式~

请教一下，如果想在上面加一些字，比如 I&U之类的应该怎么做呢？谢谢啦

如果想学的话，要看什么类型的书啊谢谢哦

哈哈哈哈哈哈，窝又来了 ，威力加强版 @平易近人奥萨玛
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 1:10){
par(bg="pink")
plot(c(rev(xx),xx),c(rev(y),yx), type = 'l' ,xlim = c(-1,1), xlab = "",ylab = "", axes = F,col=q)
Sys.sleep(1)}

厉害厉害

66666

加个好友求学