ggplot2绘图时可以添加回归线与回归方程吗

Question

如题所述

Answer 1

给你一个示例的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));                 

}

效果大致是这样的：