R/plotText.R

In prettyGraphs: Publication-Quality Graphics

plotText <-
function(data_matrix,col,x_axis=1,y_axis=2,pos=3,text.cex=0.8,contributionCircles=FALSE,contributions=NULL){
#	thesecontributions <- 0
	if(contributionCircles){
#		if(!is.null(contributions)){
#			thesecontributions <- rowSums(contributions[,c(x_axis,y_axis)])
#			thesecontributions <- (thesecontributions / ((max(thesecontributions) - min(thesecontributions)) / (1.2 - 0))) + 0
#			thesecontributions[thesecontributions > 1.2] <- 1.2
#		}
		if( !is.null(contributions) && !(nrow(as.matrix(contributions))!=nrow(data_matrix)) ){
			thesecontributions <- rowSums(contributions[,c(x_axis,y_axis)]^1.5)
			thesecontributions <- (thesecontributions / ((max(thesecontributions) - min(thesecontributions)) / (1 - 0))) + 1
			thesecontributions[which(thesecontributions > 2)] <- 2
			text.cex <- as.matrix(text.cex * thesecontributions)
		}
	}
	if(pos < 1 || pos > 4){
		text(data_matrix[,x_axis],data_matrix[,y_axis],col=col,labels=rownames(data_matrix),cex=text.cex,pos=3,offset=0.75)
	}else{
		text(data_matrix[,x_axis],data_matrix[,y_axis],col=col,labels=rownames(data_matrix),cex=text.cex,pos=pos,offset=0.75)
	}
}