在作图过程中，有时我们可能需要通过添加一些线条，使得图形的可视化变得更好，比如一些趋势线等等。
下面我们来看下，一些线条的添加方式。
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轴截距或直线所在位置
下面来看些具体的例子
library(ggplot2)
p<-ggplot(economics,aes(pop,psavert))
p+geom_point()
