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)

结合R中的隐式图

1 个答案: