CODE EXAMPLE FOR R

stat_poly_eq position

my.formula = df$y ~ df$x
ggplot(..) +
	stat_poly_eq(formula = my.formula, aes(label=paste(..eq.label.., ..rr.label.., sep = "~~~")),
		geom="label", parse = T, label.y=10, label.x=10)