R中使用abline函数在当前图中添加直线

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

在绘图中可以设置的参数一般包括：直线的截距（a），直线的斜率（b），水平线的纵轴取值（h）、垂直线的横轴取值（v）等。

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函数绘制一个空图，并设置坐标系的纵坐标与横坐标的比例为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")  #这里指定直线颜色为红色

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

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

#在散点图中绘制趋势线
#（数据含义见：使用R语言绘制散点图）
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")

结果见下图