Subversion Repositories bdplot

Rev

Rev 55 | Rev 58 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 55 Rev 56
Line 195... Line 195...
195 
    ## Not cleaned up/checked
 195 
    ## Not cleaned up/checked
196 
    plot(x, xlab="", ylab="", xaxt=xaxt, yaxt=yaxt, cex=prm$cex.plot, xlim=prm$xlim, ylim=prm$ylim,col=col,...)
 196 
    plot(x, xlab="", ylab="", xaxt=xaxt, yaxt=yaxt, cex=prm$cex.plot, xlim=prm$xlim, ylim=prm$ylim,col=col,...)
197 
  }  else if( class(x) == "histogram"){
 197 
  }  else if( class(x) == "histogram"){
198 
    ## Notice: the color of the bars can ONLY be set width bdp(hcol="color").
 198 
    ## Notice: the color of the bars can ONLY be set width bdp(hcol="color").
199 
    plot(x,
 199 
    plot(x,
200 
         xlab=xlab, ylab=ylab,
 200 
         xlab=xlab,ylab=ylab,
201 
         main=prm$main,
 201 
         main=prm$main,freq=freq,
202 
         xaxt=xaxt,yaxt=yaxt,col=bdp()$hcol,
 202 
         xaxt=xaxt,yaxt=yaxt,col=bdp()$hcol,
203 
         border=border,
 203 
         border=border,
204 
         ...)
 204 
         ...)
205 
  } else if( class(x) == "trellis"){
 205 
  } else if( class(x) == "trellis"){
206 
    ## Not cleaned up/checked
 206 
    ## Not cleaned up/checked
Line 311... Line 311...
311 
 
 311 
 
312 
  ##Title stuff
 312 
  ##Title stuff
313 
  ## Hvorfor??
 313 
  ## Hvorfor??
314 
  scale <- 1
 314 
  scale <- 1
315 
 
 315 
 
316 
  ##  if( prm$type=="hist" & !is.na(prm$xlab) )
 - 
 
317 
#  if( !is.na(prm$xlab)  ){ mtext(prm$xlab, line=prm$xlabLine, side=1, cex=prm$cex.lab/scale) }
 - 
 
- 
 
 316 
 
318 
  ##  if( prm$type=="hist" &!is.na(prm$ylab) )
 317 
  if( !is.na(prm$tlab) ){
319 
#  if( !is.na(prm$ylab)  ){ mtext(prm$ylab, line=prm$ylabLine, side=2, cex=prm$cex.lab/scale) }
 - 
 
320 
  if( !is.na(prm$tlab) ){ mtext(prm$tlab, side=3, line=0.25, cex=prm$cex.lab/scale) }
 318 
    mtext(prm$tlab, side=3, line=0.25, cex=prm$cex.lab/scale)
- 
 
 319 
  }
321 
  if( !is.na(rlab) ){
 320 
  if( !is.na(prm$rlab) ){
322 
    mtext(prm$rlab, side=4, line=0.75, cex=prm$cex.lab/scale,mgp=prm$mgp.raxis)
 321 
    mtext(prm$rlab, side=4, line=0.75, cex=prm$cex.lab/scale,mgp=prm$mgp.raxis)
323 
  }
 322 
  }
324 
}
 323 
}
325 
 
 324 
 
326 
 
 325