stat_poly_eq posición
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)
Rocku0