转：R语言在已有图形上面添加一条直线

如何在已有图形上面添加一条直线？
使用abline()函数。示例代码如下。
>x <- c(1.0, 2.0, 3.0, 4.0, 5.0)
>y <- c(1.0, 1.9, 3.1, 4.0, 4.9)
>plot(x,y)>abline(v=3,lwd=4,col="blue")#添加一条垂直直线x=3，线宽为4，颜色蓝色
>abline(h=3,lwd=4,col="blue")#添加一条水平直线y=3，线宽为4，颜色蓝色
>abline(lm(y~x), lwd=4, col="red")#添加一条一元线性回归拟合直线，线宽为4，颜色为红色