I am able to prepare the graph with scattered line but I could not put the regression equatin and r2 into the graph.

Please help me if any one can.

My code for scatter graph with regression line:

ggplot (data = data, mapping = aes(x= CCNDVI, y= DW)) + xlim(0.4, 0.8) + ylim (50, 350) + geom_point(color = "Red", shape = 20, size = 4) + geom_smooth(method = "lm",se = FALSE)+ theme_bw()