如何确定R中的联合绘图

我在做R的心脏功能

我把它写下来了，图中并没有显示整个坐标轴的功能

x<-seq(-1,1,0.001)
length(x)
m<-c(abs(x)^1/2)
n<-c((1-x^2)^1/2)
y1<-c(m+n)
y2<-c(m-n)
plot(x,y2,type="l",col="red",)
lines(x,y1,col="red")

---

xfirst
plot
函数确定轴范围，因此使用了
y2
的最大值和最小值。
将两者合并并传递给
ylim

plot(x,y2,type="l",col="red",ylim = c(min(y1,y2),max(y1,y2)))
lines(x,y1,col="red")

首先
绘图
功能确定轴范围，因此使用了
y2
的最大值和最小值。
将两者合并并传递给
ylim

plot(x,y2,type="l",col="red",ylim = c(min(y1,y2),max(y1,y2)))
lines(x,y1,col="red")