r - ggplot : Adding Regression Line Equation and R2 with Facet

Question

这个问题在这里已经有了答案:





Add regression line equation and R^2 on graph

(9 个回答)


7年前关闭。




我用 ggplot 创建了一个多面散点图但我正在努力将回归线方程添加到每个方面。没有分面的简单情况已得到解答 here但这种方法不会扩展到分面图。

任何想法如何以干净的方式实现这一目标？

Answer 1

这是一个从这里开始的示例 answer

require(ggplot2)
require(plyr)

df <- data.frame(x = c(1:100))
df$y <- 2 + 3 * df$x + rnorm(100, sd = 40)


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

创建两个要分面的组

df$group <- c(rep(1:2,50))

为两组创建方程标签

eq <- ddply(df,.(group),lm_eqn)

和情节

p <- ggplot(data = df, aes(x = x, y = y)) +
            geom_smooth(method = "lm", se=FALSE, color="black", formula = y ~ x) +
            geom_point()
p1 = p + geom_text(data=eq,aes(x = 25, y = 300,label=V1), parse = TRUE, inherit.aes=FALSE) + facet_grid(group~.)
p1