For box plots of expression levels when there are a very small number of samples for one factor.

boxplot

generate.dataset <- function() {
	return(data.frame( 
		ccsk=runif(20, 2.5, 5.0),
		wt=runif(20, 1.5, 4.5),
		ak=runif(20, 1.0, 1.25),
		fk=runif(20, 0.5, 1.0)))
}

build.plot <- function() {
	synthetic <- generate.dataset()


	fk = synthetic[,"fk"]
	synthetic[,"fk"]=NA

	boxplot(synthetic, xlab="Sample Type", ylab="Gene Expression Level", cex=0)
	

	synthetic[,"fk"]=fk
	synthetic[,c("ccsk","wt","ak")]=NA
	stripchart(synthetic, vertical=T, method="jitter", pch=16, add=T, col=1)
}