R ggplot2 線性迴歸

摘自  http://f.dataguru.cn/thread-278300-1-1.html

 

library(ggplot2)

x=1:10
y=rnorm(10)
a=data.frame(x= x, y= y)

# plot(y~x,data=a)

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

p=ggplot(a,aes(x,y))+geom_point()+geom_smooth(method="lm")

p+geom_text(aes(x=5,y=0,label=lm_eqn(a)),parse=T) ###座標能夠調