我想知道如何在ggplot上添加回归线方程和R^2。我的代码是：
库（ggplot2）
df<；-数据帧（x=c（1:100））
df$y<；-2+3*df$x+rnorm（100，sd=40）
p<；-ggplot（数据=df，aes（x=x，y=y））+
几何平滑（方法=“lm”，se=假，颜色=“黑色”，公式=y~x）+
几何点（）
P
我们将非常感谢您的帮助
这里有一个解决方案
#将方程和R平方作为字符串
#资料来源：https://groups.google.com/forum/#!主题/ggplot2/1TgH-kG5XMA
lm_eqn<；-功能（df）{
m<；-lm（y~x，df）；
等式<；-替换（斜体（y）==a+b%。%italic（x）*“，“~~斜体（r）^2~”=”~r2，
列表（a=格式（未命名（coef（m）[1]），数字=2），
b=格式（未命名（coef（m）[2]），数字=2），
r2=格式（汇总（m）$r.平方，数字=3）））
as.字符（as.表达式（eq））；
}
p1<；-p+geom_文本（x=25，y=300，label=lm_eqn（df），parse=TRUE）
编辑。我找到了我从哪里得到这段代码的来源。这里是ggplot2谷歌群组中原始帖子的链接