1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
|
bumpchart<-function (y,top.labels=colnames(y),labels=rownames(y),rank=TRUE,
mar=c(2,8,5,8),pch=19,col=par("fg"),lty=1,lwd=1,...) {
if(missing(y))
stop("Usage: spread.labels(y,labels,...)")
ydim<-dim(y)
if(is.null(ydim)) stop("y must be a matrix or data frame")
oldmar<-par("mar")
par(mar=mar)
if(rank) y<-apply(y,2,rank)
# to get things the right way round, reverse the order of everything
labels<-rev(labels)
pch=rev(pch)
col=rev(col)
lty=rev(lty)
lwd=rev(lwd)
y<-apply(y,2,rev)
matplot(t(y),ylab="",type="b",pch=pch,col=col,lty=lty,lwd=lwd,axes=FALSE,...)
par(xpd=TRUE)
xylim<-par("usr")
minspacing<-strheight("M")*1.5
text(1:ydim[2],xylim[4],top.labels)
labelpos<-spreadout(y[,1],minspacing)
text(xylim[1],labelpos,labels,adj=1)
labelpos<-spreadout(y[,ydim[2]],minspacing)
text(xylim[2],labelpos,labels,adj=0)
par(mar=oldmar,xpd=FALSE)
}
|
