Attribution function for R

README.md

An attribution function for R. Borrowed from Kieran Healy's code.

attribution.r

# An attribution function adapted from Kieran Healy
attribution <- function(text = "Lincoln Mullen <http://lincolnmullen.com>",
                        size = 0.75, color = "gray10") {
  require(grid)
  pushViewport(viewport())
  grid.text(label = text ,
            x = unit(1, "npc") - unit(2, "mm"),
            y = unit(2, "mm"),
            just = c("right", "bottom"),
            gp = gpar(cex = size, col = color))
  popViewport()
}