哎

从看到你这个问题

我就一直在想

直到今天才有点头绪

因为你的是隐函数，又是那种解不出来的。

所以我后来把它扩展到三维，

用等高线图就差不多了

x<-y<-seq(-1,1,0.1)
f<-function(x,y){sin(x)*cos(y)+x+y}
z<-outer(x,y,f)
contour(x,y,z)
你可以运行一下

不过

我这个函数选的不好

你可以自己改动。