Add regression line equation and R^2 on graph

by

Here is one solution

# GET EQUATION AND R-SQUARED AS STRING
# SOURCE: https://groups.google.com/forum/#!topic/ggplot2/1TgH-kG5XMA

lm_eqn <- function(df){
    m <- lm(y ~ x, df);
    eq <- substitute(italic(y) == a + b %.% italic(x)*","~~italic(r)^2~"="~r2, 
         list(a = format(unname(coef(m)[1]), digits = 2),
              b = format(unname(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)

EDIT. I figured out the source from where I picked this code. Here is the link to the original post in the ggplot2 google groups

Output

More Related Contents:

  1. Order Bars in ggplot2 bar graph
  2. ggplot with 2 y axes on each side and different scales
  3. Plotting two variables as lines using ggplot2 on the same graph
  4. Add legend to ggplot2 line plot
  5. Order discrete x scale by frequency/value
  6. Issue when passing variable with dollar sign notation ($) to aes() in combination with facet_grid() or facet_wrap()
  7. Side-by-side plots with ggplot2
  8. How to use a variable to specify column name in ggplot
  9. How to save a plot as image on the disk?
  10. Plot two graphs in same plot in R
  11. Using ggplot2, can I insert a break in the axis?
  12. ggplot’s qplot does not execute on sourcing
  13. ggplot2 line chart gives “geom_path: Each group consist of only one observation. Do you need to adjust the group aesthetic?”
  14. Plot multiple columns on the same graph in R [duplicate]
  15. Generate multiple graphics from within an R function
  16. How do you specifically order ggplot2 x axis instead of alphabetical order? [duplicate]
  17. How to plot a function curve in R
  18. How to order data by value within ggplot facets
  19. Adding a regression line on a ggplot
  20. Different legend-keys inside same legend in ggplot2
  21. Plot two graphs in a same plot
  22. Why is `[` better than `subset`?
  23. Remove duplicated rows
  24. Looping over variables in ggplot
  25. Customize axis labels
  26. Displaying a greater than or equal sign
  27. Modifying fonts in ggplot2
  28. How to fill with different colors between two lines? (originally: fill geom_polygon with different colors above and below y = 0 (or any other value)?)
  29. ggplot geom_point() with colors based on specific, discrete values
  30. GGplot custom scale transformation with custom ticks

Leave a Comment