R语言练习（二）

op <- par(mfrow = c(2, 2)) #设置画布
p2 <- curve(x^2, 0, 1) #绘制曲线
legend("topleft", inset = .05, title = " Functions", legend = " y = x^2")  #添加标注
abline(h = 0, v = 0.3, lty = 3, col = "red") #绘制参考线
p3 <- curve(x^3, 0, 1)
legend("topleft", inset = .05, title = " Functions", legend = " y = x^3")
abline(h = 0, v = 0.4, lty = 3, col = "red")
p4 <- curve(x^4, 0, 1)
legend("topleft", inset = .05, title = " Functions", legend = " y = x^4")
abline(h = 0, v = 0.5, lty = 3, col = "red")
p5 <- curve(x^5 ,0, 1)
legend("topleft", inset = .05, title = " Functions", legend = " y = x^5")
abline(h = 0, v = 0.6, lty = 3, col = "red")