ggplot2添加地理分界线

ggplot2添加地理分界线的方法如下：

在作图过程中，有时我们可能需要通过添加一些线条，使得图形的可视化变得更好，比如一些趋势线等等。

下面我们来看下，一些线条的添加方式。

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轴截距或直线所在位置

给你一个示例的example；如何添加线性回归线以及线性回归方程：

libray(ggplot2)

df <- data.frame(x = c(1:100))

df$y <- 2 + 3 * df$x + rnorm(100, sd = 40)

p <- ggplot(data = df, aes(x = x, y = y)) +

geom_smooth(method = "lm", se=FALSE, color="black", formula = y ~ x) +

geom_point()

lm_eqn <- function(df){

m <- lm(y ~ x, df)

eq <- substitute(italic(y) == a + b %.% italic(x)*","~~italic(r)^2~"="~r2,

                 list(a = format(coef(m)[1], digits = 2),

                      b = format(coef(m)[2], digits = 2),

                      r2 = format(summary(m)$r.squared, digits = 3)))

as.character(as.expression(eq))             

}

效果大致是这样的：

---