R语言中使用lines函数绘制直线

在上一篇文章中介绍了abline()函数的使用方法。abline函数主要在当前图中添加一条直线，该直线可以通过给定截距和斜率，或者垂直于横轴或纵轴的向量，或者是回归对象等。

lines()函数也是一个低水平绘图函数。它主要是在当前绘图中通过线段依次将点连接起来。

其语法格式为：

lines(x, ...)

默认格式为：

lines(x, y = NULL, type = "l", ...)

x, y是数值向量，表示点的坐标。

type字符串，表示绘图类型。默认为划线。

...为附加参数，如线型，线的颜色等等。

下面举例说明，本例统计了一周当中，工作日和非工作日下午1点到8点的网站访问情况，绘制图查看趋势。

编写R程序如下：

t <- rep(1:8)  #向量t表示时间1~8点

#v1为非工作日时网站在1~8点时的平均访问量
v1 <- c(245,356,210,189,345,234,191,452)

#v2工作日时网站在1~8点时的平均访问量
v2 <- c(345,451,541,548,600,720,650,560)

#使用plot绘制一个空图，lines函数必须是在已有图形上绘制
plot(c(1,8), c(100, 750), type = "n", xlab = "时间", ylab = "访问次数")

#使用abline函数添加网格线
abline(h = seq(100, 750, by = 20),v = 0:8, col = "lightgray", lty = 3)

#绘制折线，分别用红色和蓝色加以区分
lines(t, v1, col = "red")
lines(t, v2, col = "blue")

绘图结果如下图所示：