Breaking News: Grepper is joining You.com. Read the official announcement!

linear regression r text label coefficient ggplot

Elated Eagle answered on September 9, 2021 Popularity 1/10 Helpfulness 1/10

answer linear regression r text label coefficient ggplot

related linear regression r text label coefficient ggplot

linear regression r text label coefficient ggplot

Comment

lm_eqn = function(m) {

  l <- list(a = format(coef(m)[1], digits = 2),
      b = format(abs(coef(m)[2]), digits = 2),
      r2 = format(summary(m)$r.squared, digits = 3));

  if (coef(m)[2] >= 0)  {
    eq <- substitute(italic(y) == a + b %.% italic(x)*","~~italic(r)^2~"="~r2,l)
  } else {
    eq <- substitute(italic(y) == a - b %.% italic(x)*","~~italic(r)^2~"="~r2,l)    
  }

  as.character(as.expression(eq));                 
}

Popularity 1/10 Helpfulness 1/10 Language r

Source: stackoverflow.com

Tags: label linear-regression r text

Link to this answer
Share Copy Link

Contributed on Sep 09 2021

Elated Eagle

0 Answers Avg Quality 2/10

Closely Related Answers

linear regression r text label coefficient ggplot

Comment

# 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)

Popularity 1/10 Helpfulness 1/10 Language r

Source: stackoverflow.com

Tags: label linear-regression r text

Link to this answer
Share Copy Link

Contributed on Sep 09 2021

Elated Eagle

0 Answers Avg Quality 2/10

linear regression r text label coefficient ggplot

Contents

More Related Answers

linear regression r text label coefficient ggplot

Closely Related Answers

linear regression r text label coefficient ggplot

Grepper

Documentation

Social

Legal

Contact

Oops, You will need to install Grepper and log-in to perform this action.