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)