Rafael Irizarry's default `par` for R. From a discussion on the Simply Stats about the paste0 function: http://disq.us/8ier3p

rafa_par.R

library(RColorBrewer)
mypar <- function(a = 1, b = 1, brewer.n = 8, brewer.name = "Dark2",...){
  par(mar=c(2.5,2.5,1.6,1.1),mgp=c(1.5,.5,0))
  par(mfrow=c(a,b),...)
  palette(brewer.pal(brewer.n,brewer.name))
}