1、abline(摘录:R语言中使用abline函数为当前绘图添加直线_reg<-lm (sohu.com))
在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")
结果见下图