r - 结合R中的隐式图

Question

我一直在尝试在 R 中组合两个或多个影响图，但一直没能做到。我正在尝试创建相空间图。这是我到目前为止的代码

 r= 0.083
 ka= 100
 e= 0.3
 a= 1.2883
 t= 0.2313
 uj= 0.01
ua= 0.004
m= 0.005


 juvenile <- function(x,y){r*y*(1-y/ka)-(((1-e)*a*x*y)/(1+t*a*x))-(uj+m)+x}
 x<-seq(0,150,length=1000)
 y<-seq(0,150,length=1000)
 z<-outer(x,y,juvenile)
 a<-contour(x,y,z,level=0)



 adult <- function(x,y){m*x-ua*y}
 x<-seq(0,150,length=1000)
 y<-seq(0,150,length=1000)
 z<-outer(x,y,adult)
 b<-contour(x,y,z,level=0)`

有没有办法将它们绘制在一起？

Answer 1

这行吗？

 a<-contour(x,y,z,level=0, xlim=range(x), ylim=range(y))
 b<-contour(x,y,z,level=0, xlim=range(x), ylim=range(y), add=TRUE)