R语言同时3条曲线到一个画布

    在R语言中，可以使用"一次plot()+多次lines()"的方法，在一个画布里绘制多条曲线。下面介绍，在一个画布里画出3条反比例y = k/x 的曲线，如下：

    绘制曲线的R语言源码如下:
    //draw.R

x <- seq(100,400,by=1)
y1 <- 40000/x
y2 <- 20000/x
y3 <- 30000/x

plot(y1 ~ x, type = "l",bty="l" ,col="red",xlab = "x", ylab = "y")
lines(y2 ~ x, col = "green")
lines(y3 ~ x, col = "blue")

    效果如下：

图(1) 同一个画布，绘制3条曲线