search for: lablist

...= FALSE)#, lwd=2) axis.POSIXct(1, at=seq(r[1], r[2], by=60), tcl = -.7, labels = FALSE) axis.POSIXct(1, at=seq(r[1], r[2], by=15), tcl = -.35, labels = FALSE) title(main="Codes Over Time of Transcript",xlab="Transcript Time (min)", ylab="Codes") par(yaxt="n")lablist.y<-as.vector(c("Code 1", "Code 2", "Code 3"))axis(2, at=seq(2, 27, length=3), labels = FALSE)text(y = seq(2, 27, length=3), par("usr")[1], labels = lablist.y, srt = 35, pos = 2, xpd = TRUE) grid(nx=80, ny=3, lty="solid", col="gray90")bo...

...e at and label functions were ProcLab <- function(DateData,breakNum){ maxplot <- round(as.numeric(max(DateData)),digits=0) minplot <- round(as.numeric(min(DateData)),digits=0) maxplotnum<- round(((maxplot-minplot)/86400)+1,digits=0) jumpnum <- (maxplotnum/((breakNum)-1))*.98 lablist <- seq(min(DateData),max(DateData),jumpnum*86400) } ProcAt <- function(DateData,breakNum){ maxplot <- round(as.numeric(max(DateData)),digits=0) minplot <- round(as.numeric(min(DateData)),digits=0) maxplotnum<- round(((maxplot-minplot)/86400)+1,digits=0) jumpnum <- (maxplotnu...