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)