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")

绘图结果如下图所示：