在作圖過程中，有時我們可能需要通過添加一些線條，使得圖形的可視化變得更好，比如一些趨勢線等等。
下面我們來看下，一些線條的添加方式。
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)
|
這幾個函數畫線條的強大地方在於可以在線上的任意位置上畫出你想要的線條。