ggplot üzerinde regresyon doğrusu denklemi ve R^2 eklemek için nasıl merak ediyorum. Benim kodudur

library(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()
p

Herhangi bir yardım çok takdir edilecektir. Şimdiden teşekkürler.

İşte bir çözüm

# GET EQUATION AND R-SQUARED AS STRING
# SOURCE: http://goo.gl/K4yh

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));                 
}

p1 <- p   geom_text(x = 25, y = 300, label = lm_eqn(df), parse = TRUE)

EDİT. Bu kodu aldığım yerden kaynak buldum. Burada ggplot2 google grupları özgün yazı link