shenqi

library(ggplot2)
require(ggplot2)

# usage
#
# stat_r2(lm_obj, x, y, adjusted = FALSE, digits=NULL, ...)
#   lm_obj      lm object given by lm()
#   x, y        positional coordinate of r2 value
#   adjusted    use adjusted R2 instead
#   digits      see format()