search for: ychar

...g = par("bg"), xjust = 0, yjust = 1, ...) { xlog <- par("xlog") ylog <- par("ylog") if (xlog) x <- log10(x) if (ylog) y <- log10(y) xchar <- xinch(par("cin")[1]) ychar <- yinch(par("cin")[2]) * 1.2 xbox <- xinch(par("cin")[2] * 0.8) ybox <- yinch(par("cin")[2] * 0.8) yline <- 2 * xchar w <- 2 * xchar + max(strwidth(legend)) h <- (length(legend) + 1) * ychar if (missing...

...if(has.pch <- !missing(pch)) { if(is.character(pch) && nchar(pch[1]) > 1) { if(length(pch) > 1) *************** *** 98,108 **** } else {## nx == 1 ## -- (w,h) := (width,height) of the box to draw -- computed in steps ! h <- n.leg * ychar + yc ! w <- text.width + (1.5 + x.intersp) * xchar ! if(!missing(fill)) w <- w + dx.fill ! if(has.pch && !merge) w <- w + dx.pch ! if(do.lines) w <- w + (2+x.off) * xchar ##-- (w,h) are now the final box width/height. l...

...179) Should be an easy fix... Consider the examble below: plot(0,0) legend(0,0,c("Hello!","Hi!"),pch=1:2,lty=1:2,trace=T) It gives the following trace: > plot(0,0) > legend(0,0,c("Hello!","Hi!"),pch=1:2,lty=1:2,trace=T) xchar= 0.05178 ; (yextra,ychar)= 0 0.07941 rect2(0,0, w=0.3474, h=0.2382...) segments2(0.015540.01554,-0.07941-0.1588, dx=0.1036, dy=0, ...) points2( 0.06732 0.06732 , -0.07941 -0.1588 , pch= 1 2 ...) On the line starting by "segment2", the coordinates are not separated by a space like on the line starting by &q...

Hi Folks, I'm trying to find a neat solution to an apparently simple problem, but one which turns out to be a bit more intricate and tricky than one might expect. Suppose I have numbers given to a large number of digits. For example 1234567021 where (though I don't know this beforehand) only the last 3 digits will be varying (and all 3 will vary). What I want is, give a vector x of

Hi, are there any plans to add a colorbar legend to image()? Or such a possibility already implemented which I just haven't discovered yet. Anyway, I will be willing to spent some time on the implementation if there isn't anyone working on that already. Thanks Thomas -.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.- r-devel mailing list -- Read

...d, and to be able to put symbols and lines in the same column (option "merge"). The spacing's not quite perfect, though. 3c3 < xjust=0, yjust=1, merge=FALSE, ...) --- > xjust=0, yjust=1, ...) 5,8c5,8 < xchar <- xinch(par("cin")[1])*par("cex") < ychar <- yinch(par("cin")[2])*1.2*par("cex") < xbox <- xinch(par("cin")[2]*0.8)*par("cex") < ybox <- yinch(par("cin")[2]*0.8)*par("cex") --- > xchar <- xinch(par("cin")[1]) > ychar <- yinch(par("cin&...

...0^right } + if (ylog) { top <- 10^top; bottom <- 10^bottom } if (bty != "n") - rect(x, y, x+w, y-h, col = bg) + rect(left, top, right, bottom, col = bg) ## (xt[],yt[]) := 'current' vectors of (x/y) legend text - xt <- rep(x, n.leg) + xchar - yt <- y - (1:n.leg) * ychar + xt <- rep(left, n.leg) + xchar + yt <- top - (1:n.leg) * ychar if (!missing(fill)) { #- draw filled boxes ------------- xx <- cbind(xt, xt + xbox) if (xlog) xx <- 10^xx Paul> (ii) i am told that the "!missing(col)" condition that meant a Paul> legend...

Hello, In order to reduce the width of my legend in a plot I introduced line jumps in the title. Here's the problem; the legend box hasn't adapted accordingly and part of the title is printed out of the frame. See the example below: plot(1:10) legend("bottomright", bg="white", fill=c(7,8,12,13,19),

In Version 1.1.0 Under development (unstable) (June 8, 2000) there seems to be a problem with an internal variable w0 in legend that generates the following new error: Error in legend((par()$usr)[1:2], (par()$usr)[3:4], Legend, lty = lty, : Object "w0" not found > -.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.- r-devel mailing list -- Read