プロットに回帰直線方程式を追加するにはどうすればよいですか？

Question

私は回帰直線の方程式、Rの正方形とPの値を私のプロットに追加しようとしています、どのように私はそれを行うことができますか？ここで

は、私がRで使用していたコードです：データを使用して

plot<- plot(Q,CALCIUM.DISSOLVED) 
fit<-(lm(CALCIUM.DISSOLVED ~ Q)) 
abline (fit) 

Answer 1

はここで車

m <- lm(dist ~ speed, data = cars) 

plot(dist ~ speed,data = cars) 

abline(m, col = "red") 

を設定し、我々はR二乗およびP-値を抽出するために）（要約を使用します。

m1 <- summary(m) 

mtext(paste0("R squared: ",round(m1$r.squared,2)),adj = 0) 

mtext(paste0("P-value: ", format.pval(pf(m1$fstatistic[1], # F-statistic 
            m1$fstatistic[2], # df 
            m1$fstatistic[3], # df 
            lower.tail = FALSE)))) 

mtext(paste0("dist ~ ",round(m1$coefficients[1],2)," + ", 
        round(m1$coefficients[2],2),"x"), 
     adj = 1)