在R语言中，可以使用abline()函数给当前绘图添加一条或多条直线。abline()函数的使用格式为：

abline(a = NULL, b = NULL, h = NULL, v = NULL, reg = NULL, coef = NULL, untf = FALSE, ...)

各参数的含义为：

（1）a 要绘制的直线截距

（2）b 直线的斜率

（3）h 绘制水平线时的纵轴值

（4）v 绘制垂直线时的横轴值

（5）reg 是一个具有coef方法的回归对象名称。若该对象返回的向量长度为1，则该值会作为该该函数的斜率，否则前两个值将会分别作为所绘直线的截距和斜率。

（6）coef 一个二维向量，给出截距和斜率

（7）untf 逻辑值，如果UNTF为真，且坐标轴中的一个或两个进行了对数变换，则会绘制对应于原始坐标系中的直线的曲线，否则在变换坐标系中绘制线。

abline()函数典型的用法

（1）abline(a, b, untf = FALSE, ...)

（2）abline(h =, untf = FALSE, ...)

（3）abline(v =, untf = FALSE, ...)

（4）abline(coef =, untf = FALSE, ...)

（5）abline(reg =, untf = FALSE, ...)

附加参数还可以给出线型、线条颜色，线条宽度等等。

下面举几个例子：

绘制空图

首先使用plot函数绘制一个空图，即参数type设置为"n",并设置坐标系的纵坐标与横坐标的比例为1:

plot(c(-2,3), c(-1,5), type = "n", xlab = "x", ylab = "y", asp = 1)

其效果如下图所示：

绘制水平线和垂直线

绘制一条水平线和垂直线，并指定颜色

abline(h = 0, v = 0, col = "gray60")

结果如下图所示：

添加网格线或参考线

abline(h = -1:5, v = -2:3, col = "lightgray", lty = 3)

结果如下图所示：

绘制一条斜线

#如绘制y = 2x + 1，即绘制斜率为2，截距为1的直线

abline(a = 1, b = 2, col="red") #这里指定直线颜色为红色

结果如下图中红色直线所示：

在回归方程中可以添加趋势线

#在散点图中绘制趋势线（x为广告次数，y为销售额，即销售额是否与广告次数有关）

x <- c(2,5,1,3,4,1,5,3,4,2)

y <- c(50, 57, 41, 54, 54, 38, 63, 48, 59, 46)

reg <- lm(y~x)

plot(x, y, xlab = "广告次数", ylab = "销售额(100美元)")

abline(reg,col="blue")

结果见下图

如果你喜欢本文章，请关注本号，本号将持续更新R语言方面的文章，内容由浅入深，由基本语法到具体的数据分析应用。希望您能喜欢。