在作图过程中，有时我们可能需要通过添加一些线条，使得图形的可视化变得更好，比如一些趋势线等等。
下面我们来看下，一些线条的添加方式。
geom_abline(mapping = NULL, data = NULL, ..., slope, intercept, na.rm = FALSE, show.legend = NA)
geom_hline(mapping = NULL, data = NULL, ..., yintercept, na.rm = FALSE, show.legend = NA)
geom_vline(mapping = NULL, data = NULL, ..., xintercept, na.rm = FALSE, show.legend = NA)
三个函数的作用分别是，geom_abline添加斜线， geom_hline添加水平线，geom_vline添加垂直线
参数slope 表示斜率 intercept表示截距
参数yintercept 表示y轴截距或直线所在位置
参数xintercept 表示x轴截距或直线所在位置
下面来看些具体的例子
|
1
2
3
|
library(ggplot2)p<-ggplot(economics,aes(pop,psavert))p+geom_point() |
|
1
|
p+geom_point()+geom_abline(intercept=2.709e+01,slope=-7.447e-05 ) |
通过斜率和截距可以添加线性拟合线，至于两个参数的值可以同线性函数lm()获得。
当然拟合线也可以用geom_smooth(),相对而言这种方法更直接,p+geom_point()+geom_smooth(method="lm",se=FALSE)可以画出以上相同效果图。
|
1
|
p+geom_point()+geom_hline(yintercept = c(5,10,15)) |
|
1
|
p+geom_point()+geom_vline(xintercept = 245000) |
这几个函数画线条的强大地方在于可以在线上的任意位置上画出你想要的线条。