R/plot_text.r

In alex-robinson/myr: My R

#' @export
shadowtext <- function(x, y=NULL, labels, col='white', bg='black',
                       theta= seq(pi/4, 2*pi, length.out=8), r=0.1, ... ) 
{

  xy <- xy.coords(x,y)
  xo <- r*strwidth('A')
  yo <- r*strheight('A')

  for (i in theta) {
    text( xy$x + cos(i)*xo, xy$y + sin(i)*yo, labels, col=bg, ... )
  }
  text(xy$x, xy$y, labels, col=col, ... )
}

#' @export
format_r2 <- function(fit,digits=2,units="")
{ # return the r^2 value ready for plotting
  r2 = summary(fit)$adj.r.squared
  myr2 = bquote(r^2 == .(format(r2, digits = 2)))
  return(myr2)
}