r - R で暗黙的なプロットを組み合わせる

Question

R で 2 つ以上の影響プロットを結合しようとしましたが、結合できませんでした。位相空間図を作成しようとしています。これは私がこれまでに得たコードです

 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)