Subversion Repositories bdplot

Rev

Rev 65 | Rev 69 | Go to most recent revision | Only display areas with differences | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 65 Rev 68
1 
 
 1 
 
2 
## so far, there's no end function, so should it just be called bdsharex?
 2 
## so far, there's no end function, so should it just be called bdsharex?
3 
bdsharex.start <- function(nplots,heights=NULL){
 3 
bdsharex.start <- function(nplots,heights=NULL){
4 
  if(!is.null(heights)){
 4 
  if(!is.null(heights)){
5 
    if(length(heights)!=nplots) stop("If !is.null(heights), heights must be of length nplots.")
 5 
    if(length(heights)!=nplots) stop("If !is.null(heights), heights must be of length nplots.")
6 
  }
 6 
  }
7 
  layout(1:(nplots+2), heights=c(lcm(0.1), rep(1,nplots), lcm(1)))
 7 
  layout(1:(nplots+2), heights=c(lcm(0.1), heights, lcm(1)))
8 
  ##  bdp(mar.lab=c(0,5,0.1,1),xaxt="n",las=1,mgp=c(3.5, 1, 0))
 8 
  ##  bdp(mar.lab=c(0,5,0.1,1),xaxt="n",las=1,mgp=c(3.5, 1, 0))
- 
 
 9 
 
- 
 
 10 
  ## Labels seem to be scaled. Need adjustment. This looks ok at least sometimes.
- 
 
 11 
  bdp(cex.lab=bdp()$cex.lab*1.3)
- 
 
 12 
  bdp(cex.axis=bdp()$cex.axis*1.3)
- 
 
 13 
  bdp(cex.legend = bdp()$cex.legend*1.3)
- 
 
 14 
 
- 
 
 15
9 
  bdp(mar.nolab=c(0,bdp()$mar.nolab[2],0,bdp()$mar.nolab[4]))
 16 
  bdp(mar.nolab=c(0,bdp()$mar.nolab[2],0,bdp()$mar.nolab[4]))
10 
  bdp(mar.lab=c(0,bdp()$mar.lab[2],0,bdp()$mar.lab[4]))
 17 
  bdp(mar.lab=c(0,bdp()$mar.lab[2],0,bdp()$mar.lab[4]))
11
18
12 
  bdp(xaxt="n",las=1,mgp=c(3.5, 1, 0))
 19 
  bdp(xaxt="n",las=1,mgp=c(3.5, 1, 0))
13 
  bdplot(0, type="n", yaxt="n", bty="n", xlab="", ylab="")
 20 
  bdplot(0, type="n", yaxt="n", bty="n", xlab="", ylab="")
14 
  bdp(mar.nolab=c(0,bdp()$mar.nolab[2],0,bdp()$mar.nolab[4]))
 21 
  bdp(mar.nolab=c(0,bdp()$mar.nolab[2],0,bdp()$mar.nolab[4]))
15 
}
 22 
}
16 
 
 23 
 
17 
bdsharex.end <- function(xlab=bdp()$xlab){
 24 
bdsharex.end <- function(xlab=bdp()$xlab){
18 
  mtext(xlab,1,line=1.5,cex=bdp()$cex.lab*par("cex"))
 25 
  mtext(xlab,1,line=1.5,cex=bdp()$cex.lab*par("cex"))
19 
##  par(bty="n")
 26 
##  par(bty="n")
20 
  oldbdp <- list()
 27 
  oldbdp <- list()
21 
  oldbdp$grid.h <- bdp()$grid.h
 28 
  oldbdp$grid.h <- bdp()$grid.h
22 
  oldbdp$grid.v <- bdp()$grid.v
 29 
  oldbdp$grid.v <- bdp()$grid.v
23 
  bdp(grid.v=NA)
 30 
  bdp(grid.v=NA)
24 
  bdp(grid.h=NA)
 31 
  bdp(grid.h=NA)
25 
  bdp(grid=FALSE)
 32 
  bdp(grid=FALSE)
26 
  bdplot(1,1,type="n",xaxt="n",yaxt="n",bty="n",ylab="",rlab="")
 33 
  bdplot(1,1,type="n",xaxt="n",yaxt="n",bty="n",ylab="",rlab="")
27 
  bdp(grid.h=oldbdp$grid.h,grid.v=oldbdp$grid.v)
 34 
  bdp(grid.h=oldbdp$grid.h,grid.v=oldbdp$grid.v)
28 
}
 35 
}
29 
 
 36