二元多项式方程的图解

Question

如何在R中绘制该方程的解？

  

（x²+y²-1）³=x²y³

Answer 1

x <- seq(-2, 2, length.out = 100)
y <- seq(-2, 2, length.out = 100)
z <- outer(x, y, function(x,y) (x^2+y^2-1)^3 - x^2*y^3)
contour(x, y, z, levels = 0, drawlabels = FALSE)