如何把三个函数画在一张图上？

分别是：
y=1+sqrt(x)
y=1-sqrt(x)
y=x

x<-seq(0,3,by=0.001)
y1<-1+sqrt(x)
y2<-1-sqrt(x)
y3<-x
plot(x,y1,type="l",ylim = c(-1,3),ylab = "y",col="blue")
lines(x,y2,type = "l",col="red")
lines(x,y3,type = "l",col="green")
如果需要图例，可以留言，生成图例

x<-seq(0,3,by=0.001)
y1<-1+sqrt(x)
y2<-1-sqrt(x)
y3<-x
plot(x,y1,type="l",ylim = c(-1,3),ylab = "y",col="blue")
lines(x,y2,type = "l",col="red")
lines(x,y3,type = "l",col="green")
生成的函数图如附件所示

觅寄忧谷 发表于 2019-10-24 14:23
x

多谢朋友！