R/panel.cor.R

In helophilus/ColsTools: A variety of convenience tools and short-cuts

#' This is not my code, but I can't find it in a package
#' I've changed it to use Spearman's correlation
#'
#' \code{pairs(DF, upper.panel = panel.points,
#'             lower.panel = panel.cor, diag.panel = panel.hist)}
#'

panel.cor <- function(x, y, digits=2, prefix="", cex.cor)
{
  usr <- par("usr"); on.exit(par(usr))
  par(usr = c(0, 1, 0, 1))
  r <- cor(x, y, method="spearman")
  rs = abs(r)
  txt <- format(c(r, 0.123456789), digits=digits)[1]
  txt <- paste(prefix, txt, sep="")
  if(missing(cex.cor)) cex <- 0.4/strwidth(txt)
  text(0.5, 0.5, txt, cex = cex * rs+1)
}