R Squared regresión en R con GGPLOT
+ geom_smooth(method=lm, se=F) +
stat_poly_eq(formula = my.formula,
aes(label = paste(..eq.label.., ..rr.label.., sep = "~~~")),
parse = T)
Rocku0