The R Project SVN R-packages

Rev

Rev 5455 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 5455 Rev 5540
Line 117... Line 117...
117 
             contour = FALSE,
 117 
             contour = FALSE,
118 
             region = TRUE,
 118 
             region = TRUE,
119 
             col = add.line$col,
 119 
             col = add.line$col,
120 
             lty = add.line$lty,
 120 
             lty = add.line$lty,
121 
             lwd = add.line$lwd,
 121 
             lwd = add.line$lwd,
- 
 
 122 
             border = "transparent",
122 
             ...,
 123 
             ...,
123 
             col.regions = regions$col,
 124 
             col.regions = regions$col,
124 
             alpha.regions = regions$alpha)
 125 
             alpha.regions = regions$alpha)
125 
{
 126 
{
126 
    if (length(subscripts) == 0) return()
 127 
    if (length(subscripts) == 0) return()
Line 144... Line 145...
144 
    zcol <- level.colors(z, at, col.regions, colors = TRUE)
 145 
    zcol <- level.colors(z, at, col.regions, colors = TRUE)
145 
 
 146 
 
146 
    x <- x[subscripts]
 147 
    x <- x[subscripts]
147 
    y <- y[subscripts]
 148 
    y <- y[subscripts]
148 
    minXwid <- if (length(unique(x)) > 1) min(diff(sort(unique(x)))) else 1
 149 
    minXwid <- if (length(unique(x)) > 1) min(diff(sort(unique(x)))) else 1
149 
    minYwid <- if (length(unique(x)) > 1) min(diff(sort(unique(y)))) else 1
 150 
    minYwid <- if (length(unique(y)) > 1) min(diff(sort(unique(y)))) else 1
150 
    fullZrange <- range(as.numeric(z), finite = TRUE) # for shrinking
 151 
    fullZrange <- range(as.numeric(z), finite = TRUE) # for shrinking
151 
    z <- z[subscripts]
 152 
    z <- z[subscripts]
152 
    zcol <- zcol[subscripts]
 153 
    zcol <- zcol[subscripts]
153 
 
 154 
 
154 
    ## Do we need a zlim-like argument ?
 155 
    ## Do we need a zlim-like argument ?
Line 235... Line 236...
235 
                  height = ly[idy] * scaleWidth(z, shrinky[1], shrinky[2], fullZrange),
 236 
                  height = ly[idy] * scaleWidth(z, shrinky[1], shrinky[2], fullZrange),
236 
                  default.units = "native",
 237 
                  default.units = "native",
237 
                  gp =
 238 
                  gp =
238 
                  gpar(fill = zcol,
 239 
                  gpar(fill = zcol,
239 
                       lwd = 0.00001,
 240 
                       lwd = 0.00001,
240 
                       col = "transparent",
 241 
                       col = border,
241 
                       alpha = alpha.regions))
 242 
                       alpha = alpha.regions))
242 
 
 243 
 
243 
    if (contour)
 244 
    if (contour)
244 
    {
 245 
    {
245 
        ## calculate aspect ratio of panel to use in calculating label alignment
 246 
        ## calculate aspect ratio of panel to use in calculating label alignment