I am trying to add regression line equation, R square and P value to my plot, any thoughts on how I can do it?
Here is the code that I am using in R:
plot<- plot(Q,CALCIUM.DISSOLVED) fit<-(lm(CALCIUM.DISSOLVED ~ Q)) abline (fit) Using the data set cars
m <- lm(dist ~ speed, data = cars) plot(dist ~ speed,data = cars) abline(m, col = "red") Here we use summary() to extract the R-squared and P-value.
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)