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)