R/crosschart.R

In TRSbook: Functions and Datasets to Accompany the Book "The R Software: Fundamentals of Programming and Statistical Analysis"

crosschart <- function(x,my.title,col,family="Courier") {
  if (missing(my.title)) {
    my.title <- paste("Cross chart",paste("of variable",
                                          deparse(substitute(x))),sep="\n")
  }
  lx <- levels(x)
  n <- if (is.null(lx)) length(unique(x)) else length(lx)
  if (missing(col)) col <- 1:n
  ux <- if (is.factor(x)) mapLevels(x) else unique(x)
  plot(rep(as.numeric(ux),table(x)),sequence(table(x)),pch="-",axes=F,
       xlab="Levels",xlim=c(0,n+1),ylab="Counts",family="HersheyScript",
       col=rep(col,table(x)))
  title(my.title,family=family)
  at <- if(is.null(lx)) as.numeric(unique(x)) else 1:n
  for (i in 1:n) axis(side=1,at=at[i],labels=lx[i],
                      col.axis=col[i])
  axis(side=1,at=at,labels=rep("",n))
  axis(side=2)
  arrowaxis(x=FALSE,y=TRUE)
}